From 8ccee7a733356de93e43d24c20e6b8b0e77d3522 Mon Sep 17 00:00:00 2001
From: Chris Cochrun <chris@cochrun.xyz>
Date: Tue, 24 Mar 2026 06:33:08 -0500
Subject: [PATCH] publish to include index file

---
 org-publish.el | 29 +++++++++++++++++++++++++----
 1 file changed, 25 insertions(+), 4 deletions(-)

diff --git a/org-publish.el b/org-publish.el
index 7cf0340b..c3fcc6ff 100644
--- a/org-publish.el
+++ b/org-publish.el
@@ -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