From 541d85d78160aaccaa37d6303a5e85ad1f71d3f3 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Tue, 6 Oct 2020 14:51:20 +0100 Subject: Fix site map generation --- zettelkasten.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/zettelkasten.el b/zettelkasten.el index 9338540..c4fb0f9 100644 --- a/zettelkasten.el +++ b/zettelkasten.el @@ -320,14 +320,6 @@ If PARENT is nil, it will not add a link from a PARENT." #'(lambda (tag) (let* ((ismember (member tag ti)) (currlist (car (cdr ismember)))) - (concat "** " tag "\n :PROPERTIES:\n :CUSTOM_ID: " tag "\n :END:\n\n" - (apply - 'concat - (mapcar - #'(lambda (note) - (concat "- " (zettelkasten--format-link note) "\n")) - currlist)) - "\n") (with-temp-buffer (set-visited-file-name (concat tag ".org")) (set-buffer-file-coding-system 'utf-8) @@ -338,7 +330,15 @@ If PARENT is nil, it will not add a link from a PARENT." #'(lambda (note) (concat "- " (zettelkasten--format-link note) "\n")) currlist)))) - (save-buffer)))) + (save-buffer)) + (concat "** " tag "\n :PROPERTIES:\n :CUSTOM_ID: " tag "\n :END:\n\n" + (apply + 'concat + (mapcar + #'(lambda (note) + (concat "- " (zettelkasten--format-link note) "\n")) + currlist)) + "\n"))) tags))))) (defun zettelkasten-org-export-preprocessor (backend) -- cgit