diff options
| author |  Tom Willemsen | 2012-09-11 22:22:35 +0200 |
|---|---|---|
| committer | Tom Willemsen | 2012-09-11 22:22:35 +0200 |
| commit | 619d4678ba94530207009f8199a3a82a4f68d104 (patch) | |
| tree | 985787373c629beee6e6fb2e389757fb1c702bac | |
| parent | 3c72a6ffb2c5175ad2add0d2fb47e479cc26a812 (diff) | |
| download | tekuti-619d4678ba94530207009f8199a3a82a4f68d104.tar.gz tekuti-619d4678ba94530207009f8199a3a82a4f68d104.zip | |
Hide the `.git' suffix from projects
| -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 ""))) |