chris/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

some testing stuff

Browse source
This commit is contained in:
Chris Cochrun 2026-03-25 09:32:31 -05:00
parent 434caf967e
commit ee10fa5485
1 changed files with 51 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

52
org-publish.el
View file

@ -74,7 +74,7 @@
(directory-files "~/docs/site/content/teaching" t ".*.org$")))
(counter 0))
(cl-loop for file in files and index from 0
do (let ((func `(lambda ()
do (let* ((func `(lambda ()
(setq lexical-binding t)
(require 's)
(require 'org)
@ -83,6 +83,8 @@
(require 'htmlize)
(require 'denote)
(require 'denote-org)
(setq find-file-hook '())
(setq org-mode-hook '())
(with-current-buffer (find-file ,file)
(re-search-forward "EXPORT_FILE_NAME" nil t)
(beginning-of-line)
@ -142,6 +144,54 @@
(cl-loop for file in files
do (insert (denote--link-get-description file)))))
(let ((func (lambda ()
(let ((lexical-binding t)
(find-file-hook '())
(gc-cons-threshold 50000000)
(org-mode-hook '()))
(require 's)
(require 'org)
(require 'ox)
(require 'ox-html)
(require 'htmlize)
(require 'denote)
(require 'denote-org)
(with-current-buffer (find-file "/home/chris/docs/site/content/teaching/20260311T141831--zealots-and-cripples__lesson_project_tfc.org")
(re-search-forward "EXPORT_FILE_NAME" nil t)
(beginning-of-line)
(let* ((export-line (delete-and-extract-region
(line-beginning-position) (line-end-position)))
(create-lockfiles nil)
(org-export-with-broken-links 'mark)
(org-export-with-section-numbers nil)
(org-html-html5-fancy t)
(org-html-validation-link nil)
(make-backup-files nil)
(org-export-with-title t)
(org-html-head-include-default-style nil)
(org-html-head "<link rel=\"stylesheet\" href=\"../static/pico.snazzy.css\">")
(denote-directory "/home/chris/docs/site/content")
(export-directory
(concat "/home/chris/"
"docs/site/public/"
(if (s-contains? "content/teaching" "/home/chris/docs/site/content/teaching/20260311T141831--zealots-and-cripples__lesson_project_tfc.org")
"teaching/"
"notes/")))
(html-file (concat export-directory
(org-export-output-file-name ".html")))
(org-export-coding-system org-html-coding-system))
(denote-org-convert-links-to-file-type)
(widen)
(org-update-all-dblocks)
(message "%s" html-file)
(replace-string-in-region "../site/content/" "./"
(point-min) (point-max))
(org-export-to-file 'html html-file)
(insert export-line)
(save-buffer)
(kill-buffer)))))))
(save-excursion
(funcall func)))
;; (add-to-list 'org-dynamic-block-alist '("chris-site-notes" . chris/website-dynamic-block))
;; (setq org-publish-project-alist