diff options
| -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 |