blob: f2e323817c41dafeaabedda4f967e778ad92e997 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
#+title: 生成标签页面
#+SETUPFILE: ~/niwa/template/setup/minimal.setup
#+filetags: :emacs:technology:
#+EXPORT_FILE_NAME: /home/yingyu5658/niwa/public/generate-tag-pages.html
为niwa生成一个标签页面。
#+BEGIN_SRC elisp
(defun niwa/generate-tag-pages ()
"Generate tag pages under notes/tags/ from #+filetags."
(interactive)
(let* ((root (expand-file-name "~/niwa"))
(notes-dir (expand-file-name "notes" root))
(tags-dir (expand-file-name "notes/tags" root))
(table (make-hash-table :test 'equal)))
;; 收集 tags
(dolist (file (directory-files notes-dir t "\\.org$"))
(unless (string-match-p "/index\\.org$" file)
(with-temp-buffer
(insert-file-contents file)
(when (re-search-forward "^#\\+filetags:[ \t]*\\(.*\\)$" nil t)
(dolist (tag (split-string (match-string 1) ":" t))
(push file (gethash tag table)))))))
;; 写入 tags/*.org
(make-directory tags-dir t)
(maphash
(lambda (tag files)
(with-temp-file (expand-file-name (concat tag ".org") tags-dir)
(insert "#+title: #" tag "\n")
(insert "#+SETUPFILE: ../../template/setup/minimal.setup\n\n")
(dolist (f (delete-dups files))
(insert
(format "- [[file:../%s][%s]]\n"
(file-name-nondirectory f)
(with-temp-buffer
(insert-file-contents f)
(if (re-search-forward "^#\\+title:[ \t]*\\(.*\\)$" nil t)
(match-string 1)
(file-name-base f))))))))
table)))
#+END_SRC
Tags:
- [[/tags/emacs][Emacs]]
- [[/tags/technology][Technology]]
|
