分享：使用advice自动更新ox-publish的待发布org-roam文件目录

Org-mode
1

最近在研究用Emacs写博客。由于并不在意博客样式，因此选择用ox-publish直接将指定的org-roam文件导出为html再上传GitHub通过GitHub Pages托管。

参考文献：
Emacs: 使用 org publish 生成个人博客
26.ox-html 浅析与 ox-publish 使用介绍

由于org-roam的所有文件均在一个文件夹内，又不需要将所有的文件作为博客内容发表，因此接下来会利用org-roam的功能，动态发布打上了 blog 标签的文件。

获取带 blog 标签的文件

参考Vulpea的org-roam动态agenda文件，创建函数如下：

(defun my/ox-files ()
  "Return a list of note files containing 'blog' tag." ;
  (seq-uniq
   (seq-map
    #'car
    (org-roam-db-query
     [:select [nodes:file]
              :from tags
              :left-join nodes
              :on (= tags:node-id nodes:id)
              :where (like tag (quote "%\"blog\"%"))]))))

上述函数可以返回org-roam-db中标有“blog”的文件路径列表。

配置ox-publish

根据参考文献，需要指定 org-publish-project-alist 如下：

(setq org-publish-project-alist
        `(("posts"
           :base-directory ,website-directory
           :base-extension "org"
           :publishing-directory ,my/publish-directory
           :publishing-function org-html-publish-to-html
           :with-author t
           :auto-sitemap t
           :recursive nil
           :exclude ".*"
           :include ,(my/ox-files)
           :html-link-home "index.html"
           :sitemap-filename "index.org"
           :sitemap-title "目录"
           :sitemap-sort-files anti-chronologically
           :html-head:css "<link rel='stylesheet' type='text/css' href='/org.css'/>")
          ("personal-website" :components ("posts"))))

上图代码通过 :exclude ".*" 排除所有文件，然后通过 :include ,(my/ox-files) 将带有blog标签的org-roam文件路径纳入ox-publish的处理范畴中

动态更新待发布文件列表

由于上述 org-publish-project-alist 仅会执行单次，因此需要通过 advice-add 的方式让其在每次发布时均执行一次，达成动态更新的效果。

(defun my/org-project-update (&optional ARG PRED) ;;使用before会接收到原函数参数，因此需要添加optional
  (setq org-publish-project-alist
        `(("posts"
           :base-directory ,website-directory
           :base-extension "org"
           :publishing-directory ,my/publish-directory
           :publishing-function org-html-publish-to-html
           :with-author t
           :auto-sitemap t
           :recursive nil
           :exclude ".*"
           :include ,(my/ox-files)
           :html-link-home "index.html"
           :sitemap-filename "index.org"
           :sitemap-title "目录"
           :sitemap-sort-files anti-chronologically
           :html-head:css "<link rel='stylesheet' type='text/css' href='/org.css'/>")
          ("personal-website" :components ("posts")))))
(advice-add 'org-publish-projects :before 'my/org-project-update)

这样，每次 org-publish-projects 函数运行前，均会更新待发布文件路径。注意这个方法对函数 org-publish-file 无效，所以仅适用于发布整个project的情况。

为每个html文件插入CSS

利用org-export的hook自动设置，读取 ~/.emacs.d/org.css 文件内容并插入发布的html文件中

(defun my/org-inline-css-hook (exporter)
  "Insert custom inline css"
  (when (eq exporter 'html)
    (setq org-html-head-include-default-style nil)
    (setq org-html-head (concat "<style type=\"text/css\">\n <!--/*--><![CDATA[/*><!--*/\n" (with-temp-buffer (insert-file-contents "~/.emacs.d/org.css") (buffer-string)) "/*]]>*/-->\n </style>\n"))
    ;; (setq org-html-head "<link rel=\"stylesheet\" type=\"text/css\" href=\"https://gongzhitaao.org/orgcss/org.css\"/>")
    ))

(add-hook 'org-export-before-processing-hook 'my/org-inline-css-hook)

一些其他的小设置

导出时单换行也视为换行

(setq org-export-preserve-breaks t)
6 个赞