diff options
author | 2012-09-16 15:42:25 +0200 | |
---|---|---|
committer | 2012-09-16 15:42:25 +0200 | |
commit | d71be13c37beb3d602ba8afcb136be0b14bd14ee (patch) | |
tree | 102d468c25a1f452b3ec073d43909e52ef3fabef | |
parent | 10e7025d6f9621cfc5c7cf5121c410bd1f90c756 (diff) | |
download | tekuti-d71be13c37beb3d602ba8afcb136be0b14bd14ee.tar.gz tekuti-d71be13c37beb3d602ba8afcb136be0b14bd14ee.zip |
Move git-last-update to git.scm
-rw-r--r-- | tekuti/projects.scm | 18 |
1 files changed, 3 insertions, 15 deletions
diff --git a/tekuti/projects.scm b/tekuti/projects.scm index 90fcb0b..5fe29c8 100644 --- a/tekuti/projects.scm +++ b/tekuti/projects.scm @@ -1,11 +1,11 @@ (define-module (tekuti projects) + #:use-module ((tekuti config) #:select (*projects-dir*)) #:use-module (ice-9 ftw) #:use-module (ice-9 match) - #:use-module (tekuti page-helpers) - #:use-module ((tekuti config) #:select (*projects-dir*)) + #:use-module (ice-9 popen) #:use-module (ice-9 rdelim) #:use-module (tekuti git) - #:use-module (ice-9 popen) + #:use-module (tekuti page-helpers) #:export (page-projects)) (use-modules (ice-9 ftw) @@ -34,18 +34,6 @@ (read-line))) "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) (let ((pos (string-contains name ".git"))) (if pos |