diff options
| -rw-r--r-- | org-conf.el | 110 |
1 files changed, 109 insertions, 1 deletions
diff --git a/org-conf.el b/org-conf.el index 1f1d8cd..019c033 100644 --- a/org-conf.el +++ b/org-conf.el @@ -6,6 +6,10 @@ ;; org-format-latex-options (plist-put org-format-latex-options :scale 1.5) ) +;;; org-export + +(require 'ox) + ;;; org capture bookmark (setq org-capture-bookmark nil) @@ -542,10 +546,69 @@ If DESC is non-`nil', then it is the description of the new link." ;;; publishing settings +;;;;; Projects settings + (setq org-publish-project-alist (list (list - "blog" + "website" + :components (list "code" "life" "main")) + (list + "code" + :base-directory (directory-file-name + (expand-file-name + "code" (expand-file-name + "blog" org-directory))) + :base-extension "org" + :publishing-directory (directory-file-name + (expand-file-name + "public" org-directory)) + :publishing-function #'org-html-publish-to-html + :section-numbers nil + :with-toc nil + :with-email t + :with-creator t + :auto-sitemap t + :recursive t + :sitemap-function #'durand-org-publish-sitemap + :sitemap-format-entry #'durand-org-publish-sitemap-format + :sitemap-date-format "Published: %F %a %R" + :sitemap-filename "code-sitemap.org" + :sitemap-title "About coding" + :html-link-home "index.html" + :sitemap-sort-files 'anti-chronologically + :html-head "<link rel=\"stylesheet\" type=\"text/css\" + href=\"website.css\"/>" + :html-preamble t) + (list + "life" + :base-directory (directory-file-name + (expand-file-name + "life" (expand-file-name + "blog" org-directory))) + :base-extension "org" + :publishing-directory (directory-file-name + (expand-file-name + "public" org-directory)) + :publishing-function #'org-html-publish-to-html + :section-numbers nil + :with-toc nil + :with-email t + :with-creator t + :auto-sitemap t + :recursive t + :sitemap-function #'durand-org-publish-sitemap + :sitemap-format-entry #'durand-org-publish-sitemap-format + :sitemap-date-format "Published: %F %a %R" + :sitemap-filename "life-sitemap.org" + :sitemap-title "My life" + :html-link-home "index.html" + :sitemap-sort-files 'anti-chronologically + :html-head "<link rel=\"stylesheet\" type=\"text/css\" + href=\"website.css\"/>" + :html-preamble t) + (list + "main" :base-directory (directory-file-name (expand-file-name "blog" org-directory)) @@ -556,5 +619,50 @@ If DESC is non-`nil', then it is the description of the new link." :publishing-function #'org-html-publish-to-html :section-numbers nil :with-toc nil + :with-email t + :with-creator t + :auto-sitemap nil + :recursive nil + :html-head "<link rel=\"stylesheet\" type=\"text/css\" + href=\"website.css\"/>" :html-preamble t))) +;;;;; Sitemap function + +;;;;;; A hack to insert some string in the sitemap file. + +(defvar durand-sitemap-custom-string-alist + (list + (cons "About coding" + "This is the coding blog. It contains my coding experiments, or \ +one might think of them as development diaries.") + (cons "My life" + "This is my casual blog. It contains articles about my plain \ +life.")) + "An association list that relates the title of the sitemap and the string to insert.") + +;;;;;; Custom sitemap function + +(defun durand-org-publish-sitemap (title rep) + "Return the sitemap as a string. +TITLE is the title of the sitemap. + +REP is a representation of the files and directories in the +project. Use such functions as `org-list-to-org' or +`org-list-to-subtree' to transform it." + (format "#+TITLE: %s\n#+AUTHOR: JSDurand\n%s#+DATE: <%s>\n\n%s\n\n%s" + title + "#+HTML_LINK_UP: index.html" + (format-time-string "%F %a %R") + (cdr (assoc title durand-sitemap-custom-string-alist #'string=)) + (org-list-to-org rep))) + +;;;;;; Custom sitemap format + +(defun durand-org-publish-sitemap-format (entry _style project) + "Format the entry for the sitemap. +A date is added." + (format "[[file:%s][(%s) %s]]" + entry (format-time-string + "%F %R" (org-publish-find-date entry project)) + (org-publish-find-title entry project))) |