org_roam/build.el~

;; -----------------------------
;; Package bootstrap (BATCH SAFE)
;; -----------------------------
(require 'package)

(setq package-user-dir (expand-file-name "./.packages"))
(setq package-archives
      '(("melpa" . "https://melpa.org/packages/")
        ("gnu"   . "https://elpa.gnu.org/packages/")))

(package-initialize)

(unless package-archive-contents
  (package-refresh-contents))

(unless (package-installed-p 'org-roam)
  (package-install 'org-roam))

(require 'ox-publish)
(require 'org)
(require 'ox-html)
(require 'json)
(require 'org-roam)
(require 'ob-latex)
(require 'seq)
(require 'cl-lib)


(setq org-id-locations-file "~/.emacs.d/.org-id-locations")
 
(defun z/org-html-wrap-content-for-stack (orig-fun contents info)
  "Wrap Org HTML #content in stack container, leaving postamble outside."
  (let* ((html (funcall orig-fun contents info))
         (page (file-name-base (plist-get info :output-file)))

         (stack-close
          "</div></article></div></div>"))

    (setq html
          (replace-regexp-in-string
           "<div id=\"content\" class=\"content\">"
           (format
            "<div id=\"stack-root\">
  <div class=\"stack-track\">
    <article class=\"stack-pane pane-root\" data-url=\"/%s.html\">
      <div id=\"content\" class=\"content\">"
            page)
           html
           nil t))

    (setq html
          (replace-regexp-in-string
           "<div id=\"postamble\" class=\"status\">"
           (concat stack-close "\n<div id=\"postamble\" class=\"status\">")
           html
           nil t))

    html))

(advice-add 'org-html-template :around #'z/org-html-wrap-content-for-stack)


(add-to-list 'load-path default-directory)

(defvar z-shared-head
      "
<link rel=\"stylesheet\" href=\"/assets/styles/style.css\" />
<link rel=\"stylesheet\" href=\"/assets/styles/bigger-picture.min.css\" />
<link rel=\"stylesheet\" href=\"/assets/styles/media.css\" />

<script src=\"/assets/scripts/script.js\" defer></script> 
<script src=\"/assets/scripts/search.js\" defer></script> 
<script src=\"/assets/scripts/bigger-picture.min.js\" defer></script>
<script src=\"/assets/scripts/svg-pan-zoom.min.js\" defer></script>
<script src=\"/assets/scripts/gallery-init.js\" defer></script>
"
      )

(defvar z-preamble
  "
<div class=\"banner-header\">
  <a href=\"/20241210233721-brain_moc.html\"> <img src=\"/assets/gr.png\" alt=\"Site Logo\" class=\"banner-logo\" /> </a>

  <div class=\"banner-search\">
    <input id=\"search-box\"
           type=\"search\"
           placeholder=\"Search notes…\"
           aria-label=\"Search notes\"
           autocomplete=\"off\" />
    <div id=\"search-results\"></div>
  </div>

  <div id=\"updated\">Updated: %C</div>

<button id=\"close-all\">Close All</button>
</div>
"
  )

(defvar z-postamble
  "<footer>
<div class=\"copyright-container\">
<div class=\"copyright\">
Copyright &copy; 2022-2025 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>")

(defvar z/build-full-rebuild t
  "If non-nil, generate expensive artifacts like search-index.json.")

(defun z/generate-all-files-page ()
  "Generate all-files.org from search-index.json."
  (let* ((json-file "~/master-folder/org_files/org_roam/output/search-index.json")
         (out-file  "~/master-folder/org_files/org_roam/all-files.org")
         (data (append (json-read-file json-file) nil)))

    (message "🔎 Loaded %d entries from search-index.json" (length data))

    (with-temp-file out-file
      (insert "#+title: All Files\n")
      (insert "#+options: toc:nil\n\n")
      (insert "A complete alphabetical index of all published pages.\n\n")

      (setq data
            (sort data
                  (lambda (a b)
                    (string-lessp
                     (downcase (cdr (assoc 'title a)))
                     (downcase (cdr (assoc 'title b)))))))

      (let ((current-letter nil))
        (dolist (entry data)
          (let* ((title   (cdr (assoc 'title entry)))
                 (raw-url (cdr (assoc 'url entry)))
		 (id (cdr (assoc 'id entry)))
                 (letter  (upcase (substring title 0 1))))

            (unless (equal letter current-letter)
              (setq current-letter letter)
              (insert (format "* %s\n" letter)))

            (insert (format "- [[id:%s][%s]]\n" id title))))))))


;; Babel language support
(org-babel-do-load-languages
 'org-babel-load-languages
 '((latex . t)
   (org . t)))

(setq org-confirm-babel-evaluate nil     ;; Disable confirmation for code block evaluation
      org-export-with-smart-quotes t     ;; turns " into curly quotes
      org-html-self-link-headlines t     ;; headlines link to self
      org-html-validation-link nil       ;; dont validate html (in order to check it is up to web standards)
      org-html-inline-images t           ;; self-expl
      org-export-with-sub-superscripts t ;; render h_x as large h with subscript x
      )
(load-file (expand-file-name "macros.el" default-directory))

;; Configure LaTeX image generation
(setq org-latex-create-formula-image-program 'imagemagick)




(defun my/get-org-roam-backlinks (filename)
  "Return backlinks for the given org-roam file. FILENAME should be the full path to the org-roam file."
  (save-excursion
    (with-current-buffer (find-file-noselect filename)
      (goto-char (point-min))
      (if (and (featurep 'org-roam) (org-roam-node-at-point))
          (let* ((node (org-roam-node-at-point))
                 (backlinks (org-roam-backlinks-get node)))
            (mapcar (lambda (backlink)
                      (let ((source-node (org-roam-backlink-source-node backlink)))
                        (list
                         :file (org-roam-node-file source-node)
                         :title (org-roam-node-title source-node)
                         :content (with-current-buffer 
                                     (find-file-noselect (org-roam-node-file source-node))
                                   (goto-char (org-roam-backlink-point backlink))
                                   (thing-at-point 'sentence t))
                         :link (format "[[id:%s][%s]]"
                                       (org-roam-node-id source-node)
                                       (org-roam-node-title source-node)))))
                    backlinks)
            )
        nil))))


(defun my/org-export-insert-backlinks (_backend)
  "Insert Org-roam backlinks before export, with HTML attributes."
  (when (and (featurep 'org-roam)
             (org-roam-node-at-point))
    (let ((backlinks (my/get-org-roam-backlinks (buffer-file-name))))
      (when backlinks
        (goto-char (point-max))
        (insert "\n#+ATTR_HTML: :class backlinks-section :id backlinks\n Backlinks\n")
        (insert "#+ATTR_HTML: :class backlinks-list\n")
        (dolist (bl backlinks)
          (insert (format "- %s\n"
                          (plist-get bl :link))))))))


(add-hook 'org-export-before-processing-hook
          #'my/org-export-insert-backlinks)


(setq org-id-locations-file "~/.emacs.d/.org-id-locations")
(setq org-roam-directory "~/master-folder/org_files/org_roam/")
(org-id-update-id-locations)

(setq org-html-link-home "")
(setq org-html-link-up "")

(defun z/generate-search-index (&rest _)
  "Generate search-index.json with title, url, and id."
  (when z/build-full-rebuild
    (message "Generating search-index.json...")
    (let* ((org-dir "~/master-folder/org_files/org_roam/")
           (out-file "~/master-folder/org_files/org_roam/output/search-index.json")
           (files
            (seq-filter
             (lambda (f)
               (not (string-match-p "/\\.#[^/]+\\.org$" f)))
             (directory-files-recursively org-dir "\\.org$")))
           (index '()))
      (dolist (file files)
        (with-current-buffer (find-file-noselect file)
          (let ((id (org-id-get nil)))
            (when id
              (push `((title . ,(or (org-get-title) "Untitled"))
                      (url   . ,(concat "/" (file-name-base file) ".html"))
                      (id    . ,id))
                    index)))))
      ;; De-duplicate by ID
      (setq index
            (cl-remove-duplicates
             index
             :key (lambda (e) (cdr (assoc 'id e)))
             :test #'string=))
      (with-temp-file out-file
        (insert (json-encode index)))
      (message "search-index.json generated (%d entries)." (length index)))))


(add-hook 'org-publish-after-publishing-hook
          #'z/generate-search-index)




(setq org-publish-project-alist
      `(
        ("org-roam"
         :base-directory "~/master-folder/org_files/org_roam/"
         :base-extension "org"
         :publishing-directory "~/master-folder/org_files/org_roam/output/"
         :recursive t
         :publishing-function org-html-publish-to-html

         :with-author nil
         :with-creator nil
         :with-date t
         :with-toc nil
         :section-numbers nil

         :html-preamble ,z-preamble
         :html-postamble ,z-postamble
         :html-head ,z-shared-head)

        ("org-static"
         :base-directory "~/master-folder/org_files/org_roam/assets/"
         :base-extension "css\\|js\\|png\\|jpg\\|gif"
         :publishing-directory "~/master-folder/org_files/org_roam/output/assets/"
         :recursive t
         :publishing-function org-publish-attachment)))

;(delete-directory "~/master-folder/org_files/org_roam/output/" t)
(message "Directory deleted")


(defun z/build-full ()
  "Full rebuild: Org, assets, and search index."
  (interactive)
  (setq z/build-full-rebuild t)
  (org-id-update-id-locations)
  (z/generate-all-files-page)
  (org-publish "org-roam" t)
  (org-publish "org-static" t)
  (message "✅ Full rebuild complete"))

(defun z/build-fast ()
  "Fast rebuild: Org + assets only (no JSON)."
  (interactive)
  (setq z/build-full-rebuild nil)
  (z/generate-all-files-page)
  (org-publish "org-roam" t)
  (org-publish "org-static" t)
  (message "⚡ Fast rebuild complete (no search index)"))



(org-id-update-id-locations)
(cond
 ((member "--fast" command-line-args-left)
  (z/build-fast))
 (t
  (z/build-full)))