aliens/tekuti
1
0
Fork 0
Code Activity

Move git-last-update to git.scm

Browse source
This commit is contained in:
Tom Willemsen 2012-09-16 15:42:25 +02:00
parent 10e7025d6f
commit d71be13c37
1 changed files with 3 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
tekuti/projects.scm
View file

@ -1,11 +1,11 @@
(define-module (tekuti projects) (define-module (tekuti projects)
#:use-module ((tekuti config) #:select (*projects-dir*))
#:use-module (ice-9 ftw) #:use-module (ice-9 ftw)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (tekuti page-helpers) #:use-module (ice-9 popen)
#:use-module ((tekuti config) #:select (*projects-dir*))
#:use-module (ice-9 rdelim) #:use-module (ice-9 rdelim)
#:use-module (tekuti git) #:use-module (tekuti git)
#:use-module (ice-9 popen) #:use-module (tekuti page-helpers)
#:export (page-projects)) #:export (page-projects))
(use-modules (ice-9 ftw) (use-modules (ice-9 ftw)
@ -34,18 +34,6 @@
(read-line))) (read-line)))
"Unknown"))) "Unknown")))
(define (git-last-update project)
"Check when the last update upstream was."
(let* ((pipe (open-input-pipe
(string-append
"git --git-dir=" project
" log -1 --format=%ar 2>/dev/null")))
(relative-last-update (read-line pipe)))
(close-pipe pipe)
(if (eof-object? relative-last-update)
"never"
relative-last-update)))
(define (gitless name) (define (gitless name)
(let ((pos (string-contains name ".git"))) (let ((pos (string-contains name ".git")))
(if pos (if pos