aliens/tekuti
1
0
Fork 0
Code Activity

Hide the `.git' suffix from projects

Browse source
This commit is contained in:
Tom Willemsen 2012-09-11 22:22:35 +02:00
parent 3c72a6ffb2
commit 619d4678ba
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tekuti/projects.scm
View file

@ -50,9 +50,15 @@
"never" "never"
relative-last-update))) relative-last-update)))
(define (gitless name)
(let ((pos (string-contains name ".git")))
(if pos
(substring name 0 pos)
name)))
(define (project->row dir project) (define (project->row dir project)
`(tr `(tr
(td ,project) (td ,(gitless project))
(td ,(project-description project)) (td ,(project-description project))
(td ,(git-last-update project)) (td ,(git-last-update project))
(td ""))) (td "")))