Test Blog
Posted on: 2026-04-22 00:55 by clee

(defun custom-org-html-publish-to-html (plist filename pub-dir)
  "Custom publishing function that converts links before HTML export."
  (unless (or (not pub-dir) (file-exists-p pub-dir))
    (make-directory pub-dir t))
  (let* ((org-inhibit-startup t)
         (work-buffer (find-file-noselect filename)))
    (unwind-protect
        (with-current-buffer work-buffer
          ;; Call your custom function to convert links
          (org-mode)
          (denote-org-convert-links-to-file-type)
          (org-html-publish-to-html plist filename pub-dir))
        (kill-buffer work-buffer))))
}