The Lambda Lab
/
projects
/
scratchy.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
15927e2
)
Improved git browser example.
author
Tim Vaughan
<tgvaughan@gmail.com>
Sun, 9 Jun 2019 20:01:44 +0000
(22:01 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Sun, 9 Jun 2019 20:01:44 +0000
(22:01 +0200)
examples/browse-git.scm
patch
|
blob
|
history
diff --git
a/examples/browse-git.scm
b/examples/browse-git.scm
index
f9cd019
..
75b940c
100755
(executable)
--- a/
examples/browse-git.scm
+++ b/
examples/browse-git.scm
@@
-26,7
+26,8
@@
(define (serve-tree)
(let ((entries (git "ls-tree" branch path))
(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)
(append
(list
(conc "Git repository " repo)
@@
-42,8
+43,19
@@
refname)
(conc "browse-git.scm|tree|" repo "|" refname "|" path))))
references)
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) " "))))
(map (lambda (entry)
(let* ((l (string-split entry "\t"))
(type (string->symbol (cadr (string-split (car l) " "))))