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)))
"Unknown")))
(define (gitless name)
(let ((pos (string-contains name ".git")))
(define (remove-suffix str suffix)
(let ((pos (string-contains str suffix)))
(if pos
(substring name 0 pos)
name)))
(substring str 0 pos)
str)))
(define (project->row dir project prefix)
(let ((project-dir (string-append dir "/" project))
(project-name (gitless project)))
(project-name (remove-suffix project ".git")))
`(tr
(td (@ (class "span3"))
(a (@ (href "http://code.ryuslash.org/cgit.cgi/"