536 lines
19 KiB
EmacsLisp
Executable File
536 lines
19 KiB
EmacsLisp
Executable File
;;; build-site.el --- Publish my website using org-publish -*- lexical-binding: t; -*-
|
|
|
|
;; Author: Zaine Qayyum <zaineulabideen@outlook.com>
|
|
;; Created: 2025-08-08
|
|
;; Purpose: Build and publish my static site from Org files.
|
|
|
|
;;; Commentary:
|
|
;; Run this file with:
|
|
;; emacs -Q --script build-site.el
|
|
|
|
;;; Code:
|
|
|
|
(require 'package)
|
|
(defvar site-root
|
|
(file-name-directory
|
|
(or load-file-name buffer-file-name)))
|
|
|
|
(defun site-path (path)
|
|
(expand-file-name path site-root))
|
|
|
|
|
|
(add-to-list 'load-path
|
|
(expand-file-name "lisp"
|
|
(file-name-directory
|
|
(or load-file-name buffer-file-name))))
|
|
|
|
(require 'recently-updated)
|
|
(require 'tags)
|
|
(require 'sidenotes)
|
|
(require 'sitemaps)
|
|
|
|
(setq package-user-dir (expand-file-name "./.packages"))
|
|
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
|
|
("elpa" . "https://elpa.gnu.org/packages/")))
|
|
|
|
(require 'ox-publish)
|
|
(require 'cl-lib)
|
|
(require 'org)
|
|
(require 'ox)
|
|
(require 'ox-html)
|
|
(require 'ox-md)
|
|
|
|
(package-initialize)
|
|
(unless package-archive-contents
|
|
(package-refresh-contents))
|
|
|
|
(package-install 'htmlize)
|
|
(add-to-list 'load-path "~/master-folder/org_files/org_web/")
|
|
(require 'htmlize)
|
|
|
|
(defvar z-shared-head
|
|
"
|
|
<link rel=\"icon\" type=\"image/png\" sizes=\"48x48\" href=\"/assets/icons/icons8-film-tape-100.png\" />
|
|
|
|
<link rel=\"stylesheet\" href=\"/assets/styles/style.css\" />
|
|
<link rel=\"stylesheet\" href=\"/assets/styles/bigger-picture.min.css\" />
|
|
<link rel=\"stylesheet\" href=\"/assets/styles/comments.css\" />
|
|
<link rel=\"stylesheet\" href=\"/assets/styles/kanban.css\" />
|
|
<link rel=\"stylesheet\" href=\"/assets/styles/org-syntax.css\" />
|
|
<link rel=\"stylesheet\" href=\"/assets/styles/misc.css\" />
|
|
<link rel=\"stylesheet\" href=\"/assets/styles/toc.css\" />
|
|
<link rel=\"stylesheet\" href=\"/assets/styles/media.css\" />
|
|
<link rel=\"stylesheet\" href=\"/assets/styles/wird-tracker.css\" />
|
|
|
|
<script src=\"/assets/scripts/script.js\" defer></script>
|
|
<script src=\"/assets/scripts/lunr.js\" defer></script>
|
|
<script src=\"/assets/scripts/competency-status-board.js\" defer></script>
|
|
<script src=\"/assets/scripts/notes.js\" defer></script>
|
|
<script src=\"/assets/scripts/comments.js\" defer></script>
|
|
<script src=\"/assets/scripts/bigger-picture.min.js\" defer></script>
|
|
<script src=\"/assets/scripts/search.js\" defer></script>
|
|
<script src=\"/assets/scripts/svg-pan-zoom.min.js\" defer></script>
|
|
<script src=\"/assets/scripts/gallery-init.js\" defer></script>
|
|
<script src=\"/assets/scripts/sitemap-interactive.js\" defer></script>
|
|
<script src=\"/assets/scripts/wird-tracker.js\" defer></script>
|
|
"
|
|
)
|
|
|
|
(setq org-export-global-macros
|
|
(append
|
|
'(("sidenote"
|
|
. "@@html:<label for=\"sn$1\" class=\"margin-toggle sidenote-number\"></label><input type=\"checkbox\" id=\"sn$1\" class=\"margin-toggle\"/><span class=\"sidenote\">$2</span>@@")
|
|
("epigraph" . "@@html:<div class=\"epigraph\"><blockquote>$1<footer>$2</footer></blockquote></div>@@")
|
|
("epigraph_single" . "@@html:<div class=\"epigraph\"><blockquote>$1</blockquote></div>@@")
|
|
("epigraph3" . "@@html:<div class=\"epigraph\"><blockquote>$1<footer>$2, <cite>$3</cite></footer></blockquote></div>@@")
|
|
("kbd" . "@@html:<kbd>$1</kbd>@@@@latex:\\texttt{$1}@@")
|
|
("margimg"
|
|
. "@@html:<aside class=\"marginnote\"><figure class=\"mn-fig\"><img src=\"$1\" alt=\"$2\" class=\"mn-img\" loading=\"lazy\" decoding=\"async\"/>$3</figure></aside>@@")
|
|
("countdown" . "@@html:<time class=\"countdown\" datetime=\"$1\" data-label=\"$2\"></time>@@")
|
|
|
|
|
|
org-export-global-macros)))
|
|
|
|
|
|
(defvar z-preamble
|
|
"
|
|
<div class=\"banner-header\">
|
|
<a href=\"/\"> <img src=\"/assets/images/gr.png\" alt=\"Site Logo\" class=\"banner-logo\" /> </a>
|
|
<nav>
|
|
<a href=\"/\">Home | </a>
|
|
<a href=\"/blogs/blogs-list.html \">Blogs | </a>
|
|
<a href=\"/posts/career/career-list.html\">Career | </a>
|
|
<a href=\"https://zone.zainezq.com\">Dashboard</a>
|
|
|
|
<input type=\"search\\\" id=\"search-input\" placeholder=\"Search…\" aria-label=\"Search notes\" />
|
|
<button id=\"search-btn\" aria-label=\"Search\">🔍</button>
|
|
</nav>
|
|
<button class=\"theme-toggle\" id=\"theme-toggle\" type=\"button\" aria-label=\"Toggle dark mode\">🌗 Theme</button>
|
|
|
|
</div>
|
|
<div id=\"updated\">Updated: %C</div>
|
|
|
|
"
|
|
)
|
|
|
|
(defvar z-postamble
|
|
"<footer>
|
|
<div class=\"copyright-container\">
|
|
<div class=\"copyright\">
|
|
Copyright © 2022-2026 Zaine Qayyum. All rights reserved unless otherwise noted.</div></div>
|
|
<div class=\"generated\">
|
|
Created with %c on <a href=\"https://www.archlinux.org/\">Arch</a> <a href=\"https://www.gnu.org\">GNU</a>/<a href=\"https://www.kernel.org/\">Linux</a>
|
|
</div>
|
|
</footer>")
|
|
|
|
|
|
|
|
(defun z/comments-file-p (file)
|
|
"Return non-nil if FILE has comments enabled.
|
|
A file has comments if:
|
|
- It has a #+COMMENTS: keyword with value \"t\" (case-insensitive)."
|
|
(when (file-exists-p file)
|
|
(with-temp-buffer
|
|
(insert-file-contents file)
|
|
(org-mode)
|
|
(let* ((keywords (org-collect-keywords '("COMMENTS")))
|
|
(comments (cadr (assoc "COMMENTS" keywords))))
|
|
(print keywords)
|
|
|
|
(and comments
|
|
(string-match-p "^\\s-*t\\s-*$"
|
|
(downcase comments)))))))
|
|
|
|
(defun z/comments-file-slug (file)
|
|
"Return page slug from #+SLUG: or fallback to filename."
|
|
(with-temp-buffer
|
|
(insert-file-contents file)
|
|
(org-mode)
|
|
(let* ((keywords (org-collect-keywords '("SLUG")))
|
|
(slug (cadr (assoc "SLUG" keywords))))
|
|
(if (and slug (string-match-p "\\S-" slug))
|
|
slug
|
|
(file-name-base file)))))
|
|
|
|
(defun z/org-html-insert-comments-into-body (body backend info)
|
|
"Insert comments section at the end of the document body."
|
|
(when (org-export-derived-backend-p backend 'html)
|
|
(let ((input-file (plist-get info :input-file)))
|
|
(if (and input-file
|
|
(z/comments-file-p input-file))
|
|
(let* ((slug (z/comments-file-slug input-file))
|
|
(comments-html
|
|
(format
|
|
"
|
|
<section id=\"comments\" class=\"comments\" data-slug=\"%s\">
|
|
<h2>Comments</h2>
|
|
|
|
<div id=\"comments-list\" class=\"comments-list\">
|
|
<noscript>Please enable JavaScript to view comments.</noscript>
|
|
</div>
|
|
|
|
<form id=\"comment-form\" class=\"comment-form\">
|
|
<label class=\"comment-author\">
|
|
<span>Name (optional)</span>
|
|
<input type=\"text\" name=\"author\"/>
|
|
</label>
|
|
|
|
<label class=\"comment-content\">
|
|
<span>Your comment</span>
|
|
<textarea name=\"content\" required></textarea>
|
|
</label>
|
|
|
|
<button type=\"submit\">Post comment</button>
|
|
</form>
|
|
</section>
|
|
"
|
|
slug)))
|
|
(concat body comments-html))
|
|
body))))
|
|
|
|
|
|
(defun z/org-html-add-body-classes (output backend info)
|
|
"Add layout-related classes to <body> based on file metadata."
|
|
(when (org-export-derived-backend-p backend 'html)
|
|
(let* ((input-file (plist-get info :input-file))
|
|
(classes
|
|
(delq nil
|
|
(list
|
|
(when (and input-file
|
|
(z/wip-file-p input-file))
|
|
"wip")
|
|
(when (and input-file
|
|
(z/no-sidenotes-file-p input-file))
|
|
"no-sidenotes")))))
|
|
(if classes
|
|
(replace-regexp-in-string
|
|
"<body\\([^>]*\\)>"
|
|
(format "<body\\1 class=\"%s\">"
|
|
(string-join classes " "))
|
|
output)
|
|
output))))
|
|
|
|
(add-to-list 'org-export-filter-final-output-functions
|
|
#'z/org-html-add-body-classes)
|
|
(add-to-list 'org-export-filter-body-functions
|
|
#'z/org-html-insert-comments-into-body)
|
|
|
|
(defun z/lima--ensure-sitemap-file (project)
|
|
"Ensure the sitemap source file exists under the project's base directory."
|
|
(let* ((base-dir (file-name-as-directory
|
|
(org-publish-property :base-directory project)))
|
|
(fname (or (org-publish-property :sitemap-filename project)
|
|
"lima-list.org"))
|
|
(title (or (org-publish-property :sitemap-title project)
|
|
"Lima"))
|
|
(sitemap-path (expand-file-name fname base-dir)))
|
|
;; If file missing or you want to always regenerate, write header.
|
|
(unless (file-exists-p sitemap-path)
|
|
(with-temp-file sitemap-path
|
|
(insert "#+TITLE: " title "\n"
|
|
"#+OPTIONS: toc:nil num:nil\n\n")))))
|
|
|
|
(defun z/lima-sitemap-format-entry (entry style project)
|
|
"Format sitemap entry for Lima; skip dirs, keep nested paths, and prefix /lima/."
|
|
(let* ((file (if (listp entry) (car entry) entry))
|
|
(base-dir (file-name-as-directory
|
|
(org-publish-property :base-directory project)))
|
|
;; Ensure we work with an absolute file path under base-dir
|
|
(abs (if (file-name-absolute-p file)
|
|
file
|
|
(expand-file-name file base-dir))))
|
|
;; Skip directories
|
|
(unless (file-directory-p abs)
|
|
(let* ((rel (file-relative-name abs base-dir)) ;; guaranteed no “…/..” backtracking now
|
|
(rel-noext (file-name-sans-extension rel))
|
|
(title (org-publish-find-title abs project)))
|
|
(format "[[file:%s.html][%s]]"
|
|
rel-noext
|
|
(or title (file-name-nondirectory rel-noext)))))))
|
|
|
|
(defun z/copy-neighbor-attachments (source-dir pub-dir)
|
|
"Copy sibling directories named .attachments.* from SOURCE-DIR to PUB-DIR."
|
|
(let ((dirs (directory-files source-dir t "^\\.attachments\\..+")))
|
|
(dolist (d dirs)
|
|
(when (file-directory-p d)
|
|
(let* ((target (expand-file-name (file-name-nondirectory d) pub-dir)))
|
|
(make-directory target t)
|
|
;; copy-directory: (DIRECTORY NEWNAME &optional KEEP-TIME PARENTS COPY-CONTENTS)
|
|
(copy-directory d target t t t))))))
|
|
|
|
(defun z/publish-lima-file (plist filename pub-dir)
|
|
"Publish Org or Markdown file from lima directory."
|
|
(let* ((ext (downcase (or (file-name-extension filename) "")))
|
|
(base (file-name-base filename))
|
|
(src-dir (file-name-directory filename)))
|
|
|
|
(cond
|
|
;; ORG FILES (publish as-is)
|
|
((string= ext "org")
|
|
;; Ensure sibling .attachments.* are published
|
|
(z/copy-neighbor-attachments src-dir pub-dir)
|
|
(org-publish-org-to 'z-html filename ".html" plist pub-dir))
|
|
|
|
;; MARKDOWN FILES
|
|
((string= ext "md")
|
|
(let* ((temp-org
|
|
(expand-file-name
|
|
(concat base ".org")
|
|
(make-temp-file "lima-build-" t))))
|
|
|
|
;; Convert Markdown → Org with pandoc
|
|
(call-process "pandoc" nil nil nil
|
|
filename "-f" "markdown" "-t" "org" "-o" temp-org)
|
|
|
|
;; Ensure #+TITLE exists
|
|
|
|
;; Ensure front matter at top of temp-org
|
|
(with-temp-buffer
|
|
(insert-file-contents temp-org)
|
|
|
|
;; Build values
|
|
(let* ((title base)
|
|
(slug base)
|
|
(date (format-time-string "<%Y-%m-%d %a %H:%M>")))
|
|
(goto-char (point-min))
|
|
|
|
;; Insert front matter
|
|
;; (Always ensure they are at the absolute top)
|
|
(insert "#+TITLE: " title "\n"
|
|
"#+OPTIONS: num:nil\n"
|
|
"#+DATE: " date "\n"
|
|
"#+COMMENTS: t\n"
|
|
"#+SLUG: " slug "\n\n"))
|
|
|
|
;; Write back to file
|
|
(write-region (point-min) (point-max) temp-org))
|
|
|
|
;; Ensure sibling .attachments.* are published
|
|
(z/copy-neighbor-attachments src-dir pub-dir)
|
|
|
|
;; Publish using ORIGINAL base name
|
|
(let ((output-file (expand-file-name (concat base ".html") pub-dir)))
|
|
(org-publish-org-to 'z-html temp-org ".html" plist pub-dir)
|
|
;; temp-org base may differ; normalize to requested base
|
|
(let ((generated (expand-file-name
|
|
(concat (file-name-base temp-org) ".html")
|
|
pub-dir)))
|
|
(when (and (file-exists-p generated)
|
|
(not (string-equal generated output-file)))
|
|
(rename-file generated output-file t))))))
|
|
|
|
(t
|
|
;; Default: treat as attachment
|
|
(org-publish-attachment plist filename pub-dir)))))
|
|
|
|
|
|
(setq org-html-htmlize-output-type 'css)
|
|
|
|
(org-export-define-derived-backend 'z-html 'html
|
|
:filters-alist '((:filter-final-output . z/insert-filetags-after-title)))
|
|
|
|
(defun z/org-main-prep (_project)
|
|
(z/generate-recently-updated-org 26))
|
|
|
|
(defun z/z-publish-to-html (plist filename pub-dir)
|
|
"Publish FILENAME to HTML using the z-html backend."
|
|
(org-publish-org-to 'z-html filename ".html" plist pub-dir))
|
|
|
|
;; Define the publishing project
|
|
(setq org-publish-project-alist
|
|
`(("org-main"
|
|
:recursive t
|
|
:base-directory ,(site-path "")
|
|
:publishing-function z/z-publish-to-html
|
|
:publishing-directory ,(site-path "output/")
|
|
:base-extension "org"
|
|
:auto-sitemap t
|
|
:sitemap-filename "sitemap.org"
|
|
:sitemap-title "Sitemap"
|
|
:sitemap-sort-files chronologically
|
|
:html-preamble ,z-preamble
|
|
:html-postamble ,z-postamble
|
|
:html-head ,z-shared-head
|
|
:preparation-function z/org-main-prep)
|
|
|
|
("org-categories-sitemap"
|
|
:recursive t
|
|
:base-directory ,(site-path "home/")
|
|
:publishing-directory ,(site-path "output/home/")
|
|
:base-extension "org"
|
|
:auto-sitemap t
|
|
:sitemap-filename "categories.org"
|
|
:sitemap-title "Categories"
|
|
:sitemap-function z/categories-sitemap
|
|
:html-preamble ,z-preamble
|
|
:html-postamble ,z-postamble
|
|
:html-head ,z-shared-head)
|
|
|
|
("org-posts"
|
|
:base-directory ,(site-path "posts/")
|
|
:publishing-directory ,(site-path "output/posts/")
|
|
:recursive t
|
|
:base-extension "org"
|
|
:publishing-function z/z-publish-to-html
|
|
:with-author nil
|
|
:with-creator nil
|
|
:html-validation-link nil
|
|
:with-toc t
|
|
:section-numbers t
|
|
:html-preamble ,z-preamble
|
|
:html-postamble ,z-postamble
|
|
:auto-sitemap t
|
|
:sitemap-filename "posts-list.org"
|
|
:sitemap-title "Posts List"
|
|
:sitemap-style list
|
|
:sitemap-function z/posts-sitemap
|
|
:sitemap-sort-files anti-chronologically
|
|
:html-head ,z-shared-head)
|
|
|
|
("org-blogs"
|
|
:base-directory ,(site-path "blogs/")
|
|
:publishing-directory ,(site-path "output/blogs/")
|
|
:recursive t
|
|
:base-extension "org"
|
|
:publishing-function z/z-publish-to-html
|
|
:with-author nil
|
|
:with-creator nil
|
|
:html-validation-link nil
|
|
:html-preamble ,z-preamble
|
|
:html-postamble ,z-postamble
|
|
:auto-sitemap t
|
|
:sitemap-filename "blogs-list.org"
|
|
:sitemap-title "Blogs List"
|
|
:sitemap-style list
|
|
:sitemap-function z/blogs-grouped-sitemap
|
|
:sitemap-sort-files anti-chronologically
|
|
:html-head ,z-shared-head)
|
|
|
|
("org-books"
|
|
:base-directory ,(site-path "books/")
|
|
:publishing-directory ,(site-path "output/books/")
|
|
:recursive t
|
|
:base-extension "org"
|
|
:publishing-function z/z-publish-to-html
|
|
:html-preamble ,z-preamble
|
|
:html-postamble ,z-postamble
|
|
:auto-sitemap t
|
|
:sitemap-filename "books-list.org"
|
|
:sitemap-title "Books List"
|
|
:sitemap-style list
|
|
:sitemap-function z/books-sitemap
|
|
:sitemap-sort-files anti-chronologically
|
|
:html-head ,z-shared-head)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ("org-2025" ;;
|
|
;; :base-directory ,(site-path "blogs/2025/") ;;
|
|
;; :publishing-directory ,(site-path "output/blogs/2025/") ;;
|
|
;; :recursive t ;;
|
|
;; :base-extension "org" ;;
|
|
;; :publishing-function z/z-publish-to-html ;;
|
|
;; :html-preamble ,z-preamble ;;
|
|
;; :html-postamble ,z-postamble ;;
|
|
;; :auto-sitemap t ;;
|
|
;; :sitemap-filename "2025-list.org" ;;
|
|
;; :sitemap-title "2025 List" ;;
|
|
;; :sitemap-style list ;;
|
|
;; :sitemap-function z/2025-sitemap ;;
|
|
;; :sitemap-sort-files anti-chronologically ;;
|
|
;; :html-head ,z-shared-head) ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; ("org-2026"
|
|
;; :base-directory ,(site-path "blogs/2026/")
|
|
;; :publishing-directory ,(site-path "output/blogs/2026/")
|
|
;; :recursive t
|
|
;; :base-extension "org"
|
|
;; :publishing-function z/z-publish-to-html
|
|
;; :html-preamble ,z-preamble
|
|
;; :html-postamble ,z-postamble
|
|
;; :auto-sitemap t
|
|
;; :sitemap-filename "2026-list.org"
|
|
;; :sitemap-title "2026 List"
|
|
;; :sitemap-style list
|
|
;; :sitemap-function z/2026-sitemap
|
|
;; :sitemap-sort-files anti-chronologically
|
|
;; :html-head ,z-shared-head)
|
|
|
|
("org-career"
|
|
:base-directory ,(site-path "posts/career/")
|
|
:publishing-directory ,(site-path "output/posts/career/")
|
|
:recursive t
|
|
:base-extension "org"
|
|
:publishing-function z/z-publish-to-html
|
|
:html-preamble ,z-preamble
|
|
:html-postamble ,z-postamble
|
|
:auto-sitemap t
|
|
:sitemap-filename "career-list.org"
|
|
:sitemap-title "Career List"
|
|
:sitemap-style list
|
|
:sitemap-function z/career-sitemap
|
|
:sitemap-sort-files anti-chronologically
|
|
:html-head ,z-shared-head)
|
|
|
|
("wip-pages"
|
|
:base-directory ,(site-path "")
|
|
:publishing-directory ,(site-path "output/")
|
|
:recursive t
|
|
:base-extension "org"
|
|
:publishing-function z/z-publish-to-html
|
|
:html-preamble ,z-preamble
|
|
:html-postamble ,z-postamble
|
|
:auto-sitemap t
|
|
:sitemap-filename "wip.org"
|
|
:sitemap-title "Work in progress"
|
|
:sitemap-style list
|
|
:sitemap-function z/wip-sitemap
|
|
:sitemap-sort-files anti-chronologically
|
|
:html-head ,z-shared-head)
|
|
|
|
("org-tags"
|
|
:base-directory ,(site-path "tags/")
|
|
:publishing-directory ,(site-path "output/tags/")
|
|
:recursive t
|
|
:base-extension "org"
|
|
:publishing-function org-html-publish-to-html
|
|
:html-preamble ,z-preamble
|
|
:html-postamble ,z-postamble
|
|
:html-head ,z-shared-head)
|
|
|
|
("org-lima"
|
|
:base-directory ,(site-path "lima/")
|
|
:publishing-directory ,(site-path "output/lima/")
|
|
:recursive t
|
|
:base-extension "org\\|md"
|
|
:publishing-function z/publish-lima-file
|
|
:with-author nil
|
|
:with-creator nil
|
|
:html-validation-link nil
|
|
:html-preamble ,z-preamble
|
|
:html-postamble ,z-postamble
|
|
:sitemap-filename "lima-list.org"
|
|
:auto-sitemap t
|
|
:sitemap-title "Lima"
|
|
:sitemap-style list
|
|
:sitemap-sort-files anti-chronologically
|
|
:sitemap-format-entry z/lima-sitemap-format-entry
|
|
:html-head ,z-shared-head)
|
|
|
|
("org-assets"
|
|
:base-directory ,(site-path "assets/")
|
|
:base-extension "css\\|js\\|png\\|jpg\\|gif\\|svg\\|pdf\\|woff\\|woff2\\|ttf"
|
|
:publishing-directory ,(site-path "output/assets/")
|
|
:recursive t
|
|
:publishing-function org-publish-attachment)))
|
|
|
|
(delete-directory (site-path "output/") t)
|
|
(delete-directory (site-path "tags/") t)
|
|
(message "Directory deleted")
|
|
|
|
(z/write-tag-pages)
|
|
(org-publish-all t)
|
|
(message "Build complete!")
|
|
|
|
;;; build-site.el ends here
|