Update license and content slightly.

1 files changed, 20 insertions, 19 deletions

diff --git a/src/operationnull/theme.scm b/src/operationnull/theme.scm
index 7eded32..ba215a7 100644
--- a/src/operationnull/theme.scm
+++ b/src/operationnull/theme.scm
@@ -12,7 +12,7 @@
 
 (define %cc-by-sa-link
   '(a (@ (href "https://creativecommons.org/licenses/by-sa/4.0/"))
-      "CC-BY-SA 4.0"))
+      "CC BY-SA 4.0"))
 
 (define %intro
   `(intro
@@ -22,15 +22,15 @@
          (div (@ (class "intro-left"))
               (nav
                (div (ul (li (a (@ (href "/contact.html"))
-		               "contact"))
+                               "contact"))
                         (li (a (@ (href "/posts/"))
                                "blog"))
-	                (li (a (@ (href "https://git.operationnull.com/"))
-		               "git"))
+                        (li (a (@ (href "https://git.operationnull.com/"))
+                               "git"))
                         (li (a (@ (href "https://codeberg.org/bdunahu"))
-		               "codeberg"))
+                               "codeberg"))
                         (li (a (@ (href "gemini://porphyrion.operationnull.com/"))
-		               "porphyrion"))))))
+                               "porphyrion"))))))
          (div (@ (class "intro-right"))
               (nav (@ (id "umaring-id")))
               (script (@ (id "umaring_js")
@@ -38,24 +38,24 @@
 
 (define %footer
   `(footer (@ (class "footer"))
-           ,(date->string (current-date) "Copyright © 2024-~Y bdunahu")
-           "."
-           (br)
-           "Header art © "
+           ,(date->string (current-date) "Content © 2024-~Y bdunahu")
+           ", art © "
            (a (@ (href "https://rottngutt.rf.gd/about.php"))
               "rottngutt")
-           ", other content available under the " ,%cc-by-sa-link " license "
-	   (a (@ (href "https://git.operationnull.com/operationnull.git/"))
+           "."
+           (br)
+           "Much of this site licensed under the " ,%cc-by-sa-link ", see "
+           (a (@ (href "https://git.operationnull.com/operationnull.git/tree/licenses/README.org"))
               "here")
            "."
            (br)
-	   "Last updated on "
-	   ,(date->string (current-date) "~b ~d, ~Y")
-	   ". Generated with "
-	   (a (@ (href "https://dthompson.us/projects/haunt.html"))
+           "Last updated on "
+           ,(date->string (current-date) "~b ~d, ~Y")
+           ". Generated with "
+           (a (@ (href "https://dthompson.us/projects/haunt.html"))
               "Haunt")
-	   " and "
-	   (a (@ (href "https://gnu.org/software/guile"))
+           " and "
+           (a (@ (href "https://gnu.org/software/guile"))
               "Guile Scheme")
            "."))
 
@@ -89,7 +89,8 @@
               ;;          (type "image/x-icon")
               ;;          (href "/assets/favicon.ico")))
               (title ,(string-append title " — " (site-title site)))
-              ,(stylesheet "site"))
+              ,(stylesheet "site")
+              ,(stylesheet "xtra"))
              ,%intro
              (body
               (div (@ (class "container"))