From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sun, 9 Jun 2019 20:01:44 +0000 (+0200)
Subject: Improved git browser example.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=b415f682a8bbb14d01e8cd132ab16afbdd13d4c8;p=scratchy.git

Improved git browser example.
---

diff --git a/examples/browse-git.scm b/examples/browse-git.scm
index f9cd019..75b940c 100755
--- a/examples/browse-git.scm
+++ b/examples/browse-git.scm
@@ -26,7 +26,8 @@
 
   (define (serve-tree)
     (let ((entries (git "ls-tree" branch path))
-          (references (git "show-ref" "--heads")))
+          (references (git "show-ref" "--heads"))
+          (commits (git "rev-list" "--abbrev-commit" "-n5" branch)))
       (append
        (list
         (conc "Git repository " repo)
@@ -42,8 +43,19 @@
                        refname)
                  (conc "browse-git.scm|tree|" repo "|" refname "|" path))))
             references)
-       (list ""
-             (conc "-----= Files [" path "] =-----"))
+       (list
+        ""
+        (conc "-----= Recent Commits [" branch "] =-----"))
+       (map (lambda (commit)
+              (list
+               1
+               (conc (if (equal? branch commit) "*" "")
+                     (car (git "show" "-s" "--format=%s (%ar)" commit)))
+               (conc "browse-git.scm|tree|" repo "|" commit "|" path)))
+            commits)
+       (list
+        ""
+        (conc "-----= Files [" path "] =-----"))
        (map (lambda (entry)
               (let* ((l (string-split entry "\t"))
                      (type (string->symbol (cadr (string-split (car l) " "))))