说明

-	描述	解决方法
ox-hugo	安装
	导出子树时, 整个文件的所有链接要求正确	提取options和子树文本
	导出子树时, 自动计算weight, 需要保留其他子树	计算子树的weight
	导出文件时, 若在临时文件, 需输入导出文件名	导出子树, 计算子树的导出路径
	转换后的下划线无效	不用
Doks主题	markdown文件图片链接无法正确解析	替换图片链接
	会检查所有文本(包括代码块)的图片链接	分隔"{{“和”< figure src…"
	图片链接后接文本, 会作为图片描述	图片链接和文本之间空一行
org-roam	希望能跳转到博客对应标题	将roam节点链接替换为博客+标题链接
时间戳链接	不需要	删除
源码链接	不需要跳转, 需提供说明	在文本块中显示相对路径

安装ox-hugo

ox-hugo-安装

子树路径

获取导出文件路径

• 保存到列表
  
• 只能有选项SECTION, 子树使用SECTION_FRAG
  
• 缺乏子树从属判断
  

Copy 1(defun my/compute-subtree-path (export-name)
 2  (interactive)
 3  (let ((base-dir)
 4        (section)
 5        (dir)
 6        (slotlist '())
 7        (cur-level)
 8        (frag)
 9        (new-level)
10        )
11    (save-excursion
12      (beginning-of-buffer)
13      (when (re-search-forward (rx "#+" "HUGO_BASE_DIR" ": " (group (0+ (not "\n"))) "\n") nil t)
14        (setq base-dir (string-join (mapcar #'string (match-string 1))))
15        (beginning-of-buffer)
16        (when (re-search-forward (rx "#+" "HUGO_SECTION" ": " (group (0+ (not "\n"))) "\n") nil t)
17          (setq section (string-join (mapcar #'string (match-string 1))))
18          (setq dir (concat base-dir "/content/" section))
19          )
20        )
21      )
22    (add-to-list 'slotlist export-name)
23    (save-excursion
24      (setq cur-level (funcall outline-level))
25      (while (re-search-backward (rx ":" "EXPORT_HUGO_SECTION_FRAG" ": " (group (0+ (not "\n"))) "\n" ) nil t)
26              (setq frag (string-join (mapcar #'string (match-string 1))))
27              (setq new-level (funcall outline-level))
28              (when (< new-level cur-level)
29                ;;(message "%d %d %s" (funcall outline-level) ocur-level ofrag)
30                ;;(sleep-for 5)
31                (add-to-list 'slotlist frag)
32                (setq cur-level new-level)
33                )
34              )
35      )
36    (add-to-list 'slotlist dir)          
37    )
38  )

获取导出文件路径的字符串

Copy 1(defun my/subtree-path-str (export-name)
 2  (interactive)
 3   (let ((slotlist (my/compute-subtree-path export-name))
 4         (slot))
 5     (dolist (item slotlist)
 6       (setq slot (concat slot "/" item))
 7       )
 8     (string-remove-prefix "/" slot)
 9     )
10   )

Doks主题

替换markdown文件图片链接格式

Copy 1;; (defun my/replace-pic-link-format (file)
 2;;   (interactive)
 3;;   (with-current-buffer (find-file-noselect file)
 4;;     (beginning-of-buffer)
 5;;     (while (re-search-forward (rx "{{" "< figure src=\"" (group (0+ (not "\""))) "\" width=\"" (group (0+ (not "\""))) "\" >}}") nil t)
 6;;       (let ((src (string-join (mapcar #'string (match-string 1))))
 7;;             (width (string-join (mapcar #'string (match-string 2)))))
 8;;         (replace-match (format "<img src=\"/%s\" width=\"%s\" /> <br/>" src width))
 9;;        )
10;;       )
11;;     (save-buffer)
12;;     (kill-buffer)
13;;     )
14;;   )

替换子树导出文件图片链接格式

Copy1;; (defun my/amend-pic-link (export-name)
2;;   (interactive)
3;;   (my/replace-pic-link-format (concat (my/subtree-path-str export-name) ".md"))
4;;   )

替换文件内所有子树导出文件图片链接格式

Copy1;; (defun my/amend-pic-link-for-all ()
2;;   (interactive)
3;;   (beginning-of-buffer)
4;;   (while (re-search-forward (rx ":" "EXPORT_FILE_NAME" ": " (group (0+ (not "\n"))) "\n") nil t)
5;;     (my/amend-pic-link (string-join (mapcar #'string (match-string 1))))
6;;     )
7;;   )

org-roam

需设置相对路径

Copy1;; (setq my/roam-prefix "hugo/content/")

将roam节点链接替换为博客+标题链接

相对路径计算采用去除前缀

Copy 1(defun my/replace-roam-link ()
 2  (interactive)
 3  (save-excursion
 4    (beginning-of-buffer)
 5    (while (re-search-forward (rx "[[" "id:" (group (0+ (not "]"))) "][" (group (0+ (not "]"))) "]]") nil t)
 6      (let* ((id (string-join (mapcar #'string (match-string 1))))
 7             (title (string-join (mapcar #'string (match-string 2))))
 8             (title-downcase (string-replace "::" "-" (downcase title)))
 9             (node (org-roam-node-from-id id))
10             (slot))
11        (with-current-buffer (find-file-noselect (org-roam-node-file node))
12          (goto-char (org-roam-node-point node))
13          (outline-next-heading)
14          (when (re-search-backward (rx ":" "EXPORT_FILE_NAME" ": " (group (0+ (not "\n"))) "\n") nil t)
15            (setq slot (my/subtree-path-str (string-join (mapcar #'string (match-string 1)))))
16            )
17          )
18        (when slot
19          (save-excursion
20            (beginning-of-buffer)
21            (when (search-forward (format (concat "[[" "id:%s][%s]]") id title) nil t)
22              ;;(message (format "%s %s" slot title))
23              ;;(sleep-for 1)
24              (replace-match (format "[[file:/%s/#%s][%s]]"
25                                     (downcase (string-remove-prefix my/roam-prefix slot))
26                                     title-downcase
27                                     title) nil t)
28              )
29            )
30          )
31        )
32      )
33    )
34  )

时间戳链接

删除时间戳链接

Copy1(defun my/delete-timestamp-link ()
2  (interactive)
3  (save-excursion
4    (beginning-of-buffer)
5    (while (re-search-forward (rx "[[" "timestamp:" (group (0+ (not "]"))) "][" (group (0+ (not "]"))) "]]") nil t)
6      (replace-match "" nil t)
7      )
8    )
9  )

源码链接

虚幻引擎项目源码

Copy 1(defun my/replace-ue-project-file-link ()
 2  (interactive)
 3  (save-excursion
 4    (beginning-of-buffer)
 5    (while (re-search-forward (rx "[[" "uep:" (group (0+ (not "]"))) "][" (group (0+ (not ":"))) ":" (group (0+ (not "]"))) "]]" ) nil t)
 6      (let ((proj (string-join (mapcar #'string (match-string 2))))
 7            (file (string-join (mapcar #'string (match-string 3)))))
 8        (replace-match (format "=%s: %s=" proj file) nil t)
 9        )
10      )
11    )
12  )

虚幻引擎源码

Copy 1(defun my/replace-ue-engine-file-link ()
 2  (interactive)
 3  (save-excursion
 4    (beginning-of-buffer)
 5    (while (re-search-forward (rx "[[" "ue:" (group (0+ (not "]"))) "][虚幻引擎:" (group (0+ (not "]"))) "]]" ) nil t)
 6      (let ((file (string-join (mapcar #'string (match-string 1)))))
 7        (replace-match (format "=%s=" file) nil t)
 8        )
 9      )
10    )
11  )

虚幻引擎项目源码链接逆向恢复

Copy 1;; (defun my/recover-ue-project-file-link ()
 2;;   (interactive)
 3;;   (beginning-of-buffer)
 4;;   (while (re-search-forward (rx "=ShootThemUp: " (group (0+ (not "="))) "=") nil t)
 5;;     (let ((filename (string-join (mapcar #'string (match-string 1))))
 6;;           (folder))
 7;;       (if (string-suffix-p ".h" filename)
 8;;           (setq folder "Public/"))
 9;;       (if (string-suffix-p ".cpp" filename)
10;;           (setq folder "Private/"))
11;;       (if (string-suffix-p ".cs" filename)
12;;           (setq folder ""))
13;;       (if (string-prefix-p "STUGameModeBase" filename)
14;;           (setq folder ""))
15;;       (replace-match (format (concat "[[" "uep:%s%s][ShootThemUp:%s]]") folder filename filename) nil t)
16;;       )
17;;     )
18;;   )

复制文本内容

选项

Copy 1(defun my/copy-org-options ()
 2  (interactive)
 3  (save-excursion
 4    (beginning-of-buffer)
 5    (let ((op-start (point)))
 6      (outline-next-heading)
 7      (buffer-substring-no-properties op-start (point))
 8      )
 9    )
10  )

子树

Copy 1(defun my/copy-org-subtree ()
 2  (interactive)
 3  (save-excursion
 4    (outline-next-heading)
 5    (when (re-search-backward (rx ":" "EXPORT_FILE_NAME" ": " (group (0+ (not "\n"))) "\n") nil t)
 6      (outline-previous-heading)
 7      (org-copy-subtree)
 8      (current-kill 0)
 9      )
10    )
11  )

计算权重

Copy 1(defun my/backward-heading-same-level ()
 2  (interactive)
 3  (org-backward-heading-same-level 1)
 4  (point)
 5  )
 6(defun my/compute-weight ()
 7  (interactive)
 8  (let ((cur-pos)
 9        (weight 2001))
10    (save-excursion
11      (outline-next-heading)
12      (when (re-search-backward (rx ":" "EXPORT_FILE_NAME" ": " (group (0+ (not "\n"))) "\n") nil t)
13        (org-previous-visible-heading 1)
14        (setq cur-pos (point))
15        (while (/= cur-pos (my/backward-heading-same-level))
16          (setq weight (+ weight 1))
17          (setq cur-pos (point))
18          )
19        (message "%d" weight)
20        )
21      )
22    )
23  )

导出子树

光标所在子树

Copy 1;; (defun my/ox-hugo-export-subtree ()
 2;;   (interactive)
 3;;   (save-excursion
 4;;     (outline-next-heading)
 5;;     (when (re-search-backward (rx ":" "EXPORT_FILE_NAME" ": " (group (0+ (not "\n"))) "\n") nil t)
 6;;       (let* ((export-name (string-join (mapcar #'string (match-string 1))))
 7;;              (subtree (my/copy-org-subtree))
 8;;              (options (my/copy-org-options))
 9;;              (weight (my/compute-weight))
10;;              (slotlist '())
11;;              (slotlist (my/compute-subtree-path export-name))
12;;              (slot)
13;;              (section)
14;;              (cur-level))
15;;         (with-temp-buffer
16;;           (insert options)
17;;           (insert subtree)
18;;           (org-mode)
19;;           (my/delete-timestamp-link)
20;;           (my/replace-ue-project-file-link)
21;;           (my/replace-ue-engine-file-link)             
22;;           (my/replace-roam-link)
23;;           (pop slotlist)
24;;           (setq slotlist (reverse slotlist))
25;;           (pop slotlist)
26;;           (setq slotlist (reverse slotlist))
27;;           (dolist (item slotlist)
28;;             (setq slot (concat slot "/" item))
29;;             )
30;;           (beginning-of-buffer)
31;;           (when (re-search-forward (rx "+" "HUGO_SECTION" ": " (group (0+ (not "\n")))) nil t)
32;;             (setq section (string-join (mapcar #'string (match-string 1))))
33;;             (replace-match (format (concat "+" "HUGO_SECTION" ": %s") (concat section slot)))
34;;             )
35;;           (beginning-of-buffer)
36;;           (when (re-search-forward (rx "EXPORT_HUGO_WEIGHT" ": " (group (0+ (not "\n")))) nil t)
37;;             (replace-match (format (concat "EXPORT_HUGO_WEIGHT" ": %s") weight))
38;;             )
39;;           (beginning-of-buffer)
40;;           (outline-next-heading)
41;;           (setq cur-level (funcall outline-level))
42;;           (while (/= 1 cur-level)
43;;             (org-shiftmetaleft)
44;;             (setq cur-level (funcall outline-level))
45;;             )
46;;           (org-hugo-export-wim-to-md)
47;;           (my/amend-pic-link export-name)
48;;           )
49;;         )
50;;       )
51;;     )
52;;   )
53;; (global-set-key (kbd "C-c h s") 'my/ox-hugo-export-subtree)

文件内所有子树

Copy 1;; (defun my/ox-hugo-export-all-subtrees ()
 2;;   (interactive)
 3;;   (save-excursion
 4;;     (let ((buf-content (buffer-string)))
 5;;       (with-temp-buffer
 6;;         (insert buf-content)
 7;;         (org-mode)
 8;;         (my/delete-timestamp-link)
 9;;         (my/replace-ue-project-file-link)
10;;         (my/replace-ue-engine-file-link)             
11;;         (my/replace-roam-link)
12;;         (org-hugo-export-wim-to-md :all-subtrees)
13;;         (my/amend-pic-link-for-all)
14;;         )
15;;       )
16;;     )
17;;   )
18;; (global-set-key (kbd "C-c h a") 'my/ox-hugo-export-all-subtrees)