summary refs log tree commit diff
path: root/tissue.scm
diff options
context:
space:
mode:
authorArun Isaac2022-07-09 16:38:46 +0530
committerArun Isaac2022-07-09 16:45:20 +0530
commitfc8cf0ed8a5bd1507865df888a37ac5e90a46416 (patch)
treea3ca3075819531898d5d0d10afa5c408315fc4e1 /tissue.scm
parent693d4c492c760794df7186058f95e12f91cfc2be (diff)
downloadtissue-fc8cf0ed8a5bd1507865df888a37ac5e90a46416.tar.gz
tissue-fc8cf0ed8a5bd1507865df888a37ac5e90a46416.tar.lz
tissue-fc8cf0ed8a5bd1507865df888a37ac5e90a46416.zip
commit: Index commit messages too.
* tissue/commit.scm: New file.
* tissue/web/server.scm (%css)[.search-result-commit]: Add COMMIT
marker.
* bin/tissue: Import (tissue commit).
* tissue.scm (#:indexed-documents): Add commits.
* issues/index-commit-messages.gmi: Close issue.
Diffstat (limited to 'tissue.scm')
-rw-r--r--tissue.scm16
1 files changed, 11 insertions, 5 deletions
diff --git a/tissue.scm b/tissue.scm
index 69dba6f..8bef7e7 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -1,10 +1,16 @@
 (tissue-configuration
  #:project "tissue"
- #:indexed-documents (map (lambda (filename)
-                            (slot-set (read-gemtext-issue filename)
-                                      'web-uri
-                                      (string-append "/" (string-remove-suffix ".gmi" filename))))
-                          (gemtext-files-in-directory "issues"))
+ #:indexed-documents (append (map (lambda (filename)
+                                    (slot-set (read-gemtext-issue filename)
+                                              'web-uri
+                                              (string-append "/" (string-remove-suffix ".gmi" filename))))
+                                  (gemtext-files-in-directory "issues"))
+                             (map (lambda (commit)
+                                    (slot-set commit
+                                              'web-uri
+                                              (string-append "https://git.systemreboot.net/tissue/commit/?id="
+                                                             (commit-hash commit))))
+                                  (commits-in-current-repository)))
  #:web-files (cons (file "index.html"
                          (skribe-exporter "website/index.skb"))
                    (filter-map (lambda (filename)