;; sign it with ;; gpg --local-user yann@esposito.host --output project.el.sig --detach-sign project.el (defvar websiteorigin "https://her.esy.fun") (defvar root-dir (projectile-project-root)) (defvar base-dir (concat root-dir "src")) (defvar publish-dir (concat root-dir "_site")) (defvar draft-publish-dir (concat root-dir "_full")) (defvar assets-dir (concat base-dir "/")) (defvar publish-assets-dir (concat publish-dir "/")) (defvar draft-publish-assets-dir (concat draft-publish-dir "/")) (defvar posts-dir (concat base-dir "/posts")) (defvar rss-title "Subscribe to articles") (defvar css-path "/css/mk.css") (defvar author-name "Yann Esposito") (defvar author-email "yann@esposito.host") (require 'org) (require 'ox-publish) (require 'ox-html) (require 'org-element) ;; (setq org-link-file-path-type 'relative) (setq org-publish-timestamp-directory (concat (projectile-project-root) "_cache/")) (defvar org-blog-head (concat "" "" "")) (defun menu (lst) "Blog menu" (concat "")) (defun get-from-info (info k) (let ((i (car (plist-get info k)))) (when (and i (stringp i)) i))) (defun logo () (concat "
#%s
" k))
(cl-sort keywords 'string-lessp :key 'downcase)
" "))))
(defun org-blog-postamble (info)
"Post-amble for whole blog."
(concat
"