emacs-使用pandoc导出当前org-buffer为docx

(defun my/sanitize-windows-filename (filename)
  "Sanitize FILENAME to be a valid Windows filename."
  ;; Replace invalid characters with an underscore
  (replace-regexp-in-string "[<>:\\\"\/\|\?\*]+" "_" filename))

(defun seq-replacer (input)
  (dolist (pair input)
    (goto-char (point-min))
    (while (re-search-forward (car pair) nil t)
      (replace-match (cadr pair)))))
(defun my/pandoc-line-breaker ()
  "pandoc格式化"
  (interactive)
  (seq-replacer '(("\n\n*" "\n")
                  ("\n" "\n\n")
                 )))

(defun my/save-buffer-to-temp-org ()
  "Save the current buffer content to a file in the system's temporary directory.
The file name will be the same as the buffer name, but with a '.org' extension.
Return the path of the saved file."
  (interactive)
  (let* ((buffer-name (buffer-name))
         (file-name (concat (my/sanitize-windows-filename buffer-name) ".org"))
         (temp-dir (if (eq system-type 'windows-nt)
                       (expand-file-name (getenv "TEMP"))
                     (expand-file-name (getenv "TMPDIR"))))
         (full-path (expand-file-name file-name temp-dir)))
    ;; Write buffer content to the file
    ;; (write-region (point-min) (point-max) full-path)
    (with-temp-file full-path
      (insert-buffer-substring buffer-name)
      (my/pandoc-line-breaker))
    ;; Return the full path of the file
    full-path))

(defun my/org-buffer-export-docx ()
  (interactive)
  (let ((docx-file (concat (getenv "UserProfile") "\\desktop\\" (my/sanitize-windows-filename (buffer-name)) ".docx"))
           (template-file (concat (file-truename "~/.emacs.d/org") "/template.docx")))
    (shell-command (format "pandoc %s --from org+east_asian_line_breaks -o %s --reference-doc=%s" (my/save-buffer-to-temp-org) docx-file template-file))
    (message "Convert finish: %s" docx-file)))