Could this support batch exporting modified org-mode files?

[panmengguan]

Hi Ayrat, thank you for your blog and this braindump repository. I have tried the build/export-all elisp script, which can export all the org-mode files in a directory. But I wonder is it possible to only export these modified org-mode files? Thank you very much!

[ayrat555]

@mgpanpan Hello! elisp is a powerful programming language so I'm sure it's possible to implement.

but I'm not sure if it's possible to do with ox-hugo directly - https://github.com/kaushalmodi/ox-hugo/blob/main/doc/ox-hugo-manual.org

[panmengguan]

Thank you for the reply! I have implemented batch exporting modified org-mode files by elisp, based on the comparison of the modified times of the markdown and org-mode files.

(defun build/export-all-modified ()
  "Export all modified org-files (including nested) under org-roam-directory."

  (dolist (org-file (directory-files-recursively org-roam-directory "\.org$"))
    (let* ((md-file-path (concat (file-name-as-directory org-hugo-base-dir) "content/posts/"))
           (org-file-base-name (file-name-base org-file))
           (md-file-fullname (concat (file-name-as-directory md-file-path) org-file-base-name ".md"))
           (org-file-modified-time (file-attribute-modification-time (file-attributes org-file)))
           (md-file-modified-time (file-attribute-modification-time (file-attributes md-file-fullname)))
           )
      (if (or (not (file-exists-p md-file-fullname)) (time-less-p md-file-modified-time org-file-modified-time))
          (with-current-buffer (find-file org-file)
            (message (format "[build] Exporting %s" org-file))
            (org-hugo-export-to-md))
        )
      )
    )
  (message "Done!"))