diff options
| -rw-r--r-- | tekuti/projects.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tekuti/projects.scm b/tekuti/projects.scm index 0017d35..1296c01 100644 --- a/tekuti/projects.scm +++ b/tekuti/projects.scm @@ -50,9 +50,15 @@ "never" relative-last-update))) +(define (gitless name) + (let ((pos (string-contains name ".git"))) + (if pos + (substring name 0 pos) + name))) + (define (project->row dir project) `(tr - (td ,project) + (td ,(gitless project)) (td ,(project-description project)) (td ,(git-last-update project)) (td ""))) |