git.shemshak.org - ~bandali/bndl.org/blob - publish.el

   1 ;; Inspiration: https://gitlab.com/ambrevar/ambrevar.gitlab.io.
   2
   3 ;; TODO: use git time-stamps
   4
   5 (require 'ox-publish)
   6 (require 'seq)
   7
   8 (add-to-list 'load-path ".")
   9
  10 (add-to-list 'load-path "../xah-replace-pairs")
  11 (require 'xah-replace-pairs)
  12
  13 (defun aminb--readfile (filepath)
  14   "Return filepath's content."
  15   (with-temp-buffer
  16     (insert-file-contents filepath)
  17     (buffer-string)))
  18
  19 (defun aminb--find-replace (match-with replace-with string)
  20   "Return the string resulting from replacing `match-with' with
  21   `replace-with' in `string'."
  22   (when (string-match match-with string)
  23     (replace-match replace-with nil nil string)))
  24
  25 (defun aminb--my-html-body-light-filter (output backend info)
  26   "Make adjustments needed for dark/light mode <input> tag to work."
  27   (when (eq backend 'html)
  28     (aminb--find-replace
  29      "</body>\n"
  30      "</div>\n</body>\n"
  31      (aminb--find-replace
  32       "<body>\n"
  33       "<body>\n<input class=\"light-off\" id=\"light-off\" type=\"checkbox\">\n<div class=\"page\">"
  34       output))))
  35
  36 (add-to-list 'org-export-filter-final-output-functions
  37            'aminb--my-html-body-light-filter)
  38
  39 ;; re-defining this (originally in `ox-html.el') to add `?g'
  40 (defun org-html-format-spec (info)
  41   "Return format specification for preamble and postamble.
  42 INFO is a plist used as a communication channel."
  43   (let ((timestamp-format (plist-get info :html-metadata-timestamp-format))
  44         (git-repo "<a href=\"https://git.sr.ht/~aminb/aminb.org/commit/?id=%s\">@%s</a>")
  45         (git-rev (shell-command-to-string "git rev-parse HEAD"))
  46         (git-rev-short (shell-command-to-string "git rev-parse --short HEAD")))
  47     `((?t . ,(org-export-data (plist-get info :title) info))
  48       (?s . ,(org-export-data (plist-get info :subtitle) info))
  49       (?d . ,(org-export-data (org-export-get-date info timestamp-format)
  50                               info))
  51       (?T . ,(format-time-string timestamp-format))
  52       (?a . ,(org-export-data (plist-get info :author) info))
  53       (?e . ,(mapconcat
  54               (lambda (e) (format "<a href=\"mailto:%s\">%s</a>" e e))
  55               (split-string (plist-get info :email)  ",+ *")
  56               ", "))
  57       (?g . ,(format git-repo git-rev git-rev-short))
  58       (?c . ,(plist-get info :creator))
  59       (?C . ,(let ((file (plist-get info :input-file)))
  60                (format-time-string timestamp-format
  61                                    (and file (nth 5 (file-attributes file))))))
  62       (?v . ,(or (plist-get info :html-validation-link) "")))))
  63
  64 ;; timestamps can be used to avoid rebuilding everything
  65 ;; should probably be put inside the public/ directory
  66 (setq org-publish-use-timestamps-flag t
  67       org-publish-timestamp-directory "./")
  68
  69 ;; get rid of index.html~ and other backup files that may be created during generation
  70 (setq make-backup-files nil)
  71
  72 (setq org-export-with-section-numbers nil
  73       org-export-with-smart-quotes t
  74       org-export-with-email t
  75       org-export-with-date t
  76       org-export-with-tags 'not-in-toc
  77       org-export-with-toc t)
  78
  79 (setq org-html-divs '((preamble  "header" "preamble")
  80                       (content   "main"   "content")
  81                       (postamble "footer" "postamble"))
  82       ;; TODO: link last update to commit history of file
  83       org-html-preamble t
  84       org-html-postamble t
  85       org-html-preamble-format  `(("en" ,(aminb--readfile "partials/preamble.html")))
  86       org-html-postamble-format `(("en" ,(aminb--readfile "partials/postamble.html")))
  87       org-html-container-element "section"
  88       org-html-metadata-timestamp-format "%Y-%m-%d"
  89       org-html-checkbox-type 'html
  90       org-html-html5-fancy t
  91       ;; use custom css
  92       ;; this removes the dependency on `htmlize',
  93       ;; but we also lose syntax highlighting.
  94       org-html-htmlize-output-type nil
  95       org-html-validation-link nil
  96       org-html-doctype "html5")
  97
  98 (setq org-publish-project-alist
  99       (list
 100        (list "site-org"
 101              :base-directory "./source/"
 102              :exclude "macros.org"
 103              :recursive t
 104              :publishing-function '(org-html-publish-to-html)
 105              :publishing-directory "./public/"
 106              :html-head-include-default-style nil
 107              :html-head-include-scripts nil)
 108        (list "site-static"
 109              :base-directory "source/"
 110              :exclude "\\.org\\'"
 111              :base-extension 'any
 112              :publishing-directory "./public"
 113              :publishing-function 'org-publish-attachment
 114              :recursive t)
 115        (list "site" :components '("site-org"))))
 116
 117 (defun aminb/publish ()
 118   (org-publish-all))