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

publish to include index file

Browse source
This commit is contained in:
Chris Cochrun 2026-03-24 06:33:08 -05:00
parent 7a43939b29
commit 8ccee7a733
1 changed files with 25 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

29
org-publish.el
View file

@ -17,7 +17,25 @@
(directory-files "~/docs/notes/lessons" t ".*.org$")))
(denote-directory "~/docs/site/content")
(current-notes (directory-files "~/docs/site/content/notes" t ".*.org$"))
(current-lessons (directory-files "~/docs/site/content/teaching" t ".*.org$")))
(current-lessons (directory-files "~/docs/site/content/teaching" t ".*.org$"))
(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-html-style "<link rel=\"stylesheet\" href=\"./static/pico.cyan.css\">
<style>
li:nth-child(n+7) {
display: none;
}
</style>")
(org-html-head-include-default-style nil)
(org-html-head ""))
(when (= 1
(shell-command
"cmp --silent ~/docs/site/assets/pico.cyan.css ~/docs/site/public/static/pico.cyan.css"))
(copy-file "~/docs/site/assets/pico.cyan.css" "~/docs/site/public/static/pico.cyan.css" t))
(message "Starting site build")
(cl-loop for file in current-notes
@ -36,6 +54,9 @@
(copy-file
file (concat "~/docs/site/content/teaching/" filename) t)))
(message "Copied all lessons")
(find-file "~/docs/site/content/index.org")
(org-update-all-dblocks)
(org-export-to-file 'html "~/docs/site/public/index.html")
(let* ((files (seq-concatenate
'list
@ -57,13 +78,13 @@
(beginning-of-line)
(let* ((export-line (delete-and-extract-region
(line-beginning-position) (line-end-position)))
(org-export-with-broken-links t)
(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)
(denote-directory "/home/chris/docs/site/content")
(org-html-head "<link rel=\"stylesheet\" href=\"../static/pico.cyan.css\">")
(denote-directory "/home/chris/docs/site/content")
(export-directory
(concat "/home/chris/"
"docs/site/public/"
@ -84,7 +105,7 @@
(kill-buffer))))))
(setq counter (+ counter 1))
(while (> counter 5)
(while (> counter 8)
(sit-for 0.5))
(async-start
func