aliens/tekuti
1
0
Fork 0
Code Activity

Rename and generalize gitless

Browse source 
Now called `remove-suffix', which removes the given suffix from the
given string.
This commit is contained in:
Tom Willemsen 2012-09-16 15:54:56 +02:00
parent f9ec43653b
commit 3b8eba0f0a
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tekuti/projects.scm
View file

@ -34,15 +34,15 @@
(read-line))) (read-line)))
"Unknown"))) "Unknown")))
(define (gitless name) (define (remove-suffix str suffix)
(let ((pos (string-contains name ".git"))) (let ((pos (string-contains str suffix)))
(if pos (if pos
(substring name 0 pos) (substring str 0 pos)
name))) str)))
(define (project->row dir project prefix) (define (project->row dir project prefix)
(let ((project-dir (string-append dir "/" project)) (let ((project-dir (string-append dir "/" project))
(project-name (gitless project))) (project-name (remove-suffix project ".git")))
`(tr `(tr
(td (@ (class "span3")) (td (@ (class "span3"))
(a (@ (href "http://code.ryuslash.org/cgit.cgi/" (a (@ (href "http://code.ryuslash.org/cgit.cgi/"