From d71be13c37beb3d602ba8afcb136be0b14bd14ee Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sun, 16 Sep 2012 15:42:25 +0200
Subject: Move git-last-update to git.scm

---
 tekuti/projects.scm | 18 +++---------------
 1 file 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
-- 
cgit v1.2.3-54-g00ecf