Remove git module.

2 files changed, 1 insertions, 20 deletions

diff --git a/module/git.scm b/module/git.scm
deleted file mode 100644
index d3de8c5b..00000000
--- a/module/git.scm
+++ /dev/null
@@ -1,13 +0,0 @@
-(define-module (git)
-  :use-module (util)
-  :use-module ((ice-9 rdelim) :select (read-line))
-  :use-module ((ice-9 popen) :select (open-input-pipe))
-  :export (get-git-version))
-
-(define (get-git-version)
-  (values (-> "git rev-parse HEAD"
-              open-input-pipe read-line)
-          (-> "git rev-parse --short HEAD"
-              open-input-pipe read-line)))
-
-
diff --git a/module/html/view/calendar.scm b/module/html/view/calendar.scm
index ac5bf77a..a6b39755 100644
--- a/module/html/view/calendar.scm
+++ b/module/html/view/calendar.scm
@@ -27,8 +27,6 @@
 
   :use-module ((vcomponent group)
                :select (group-stream get-groups-between))
-  :use-module ((git)
-               :select (get-git-version))
   )
 
 
@@ -135,11 +133,7 @@
           (@ (style "grid-area: footer"))
           (span "Page generated " ,(date->string (current-date)))
           (span (a (@ (href ,(repo-url) "/calparse"))
-                   "Source Code"))
-          ,(let* ((long-hash short-hash (get-git-version))
-                  (url (format #f "~a/calparse/commit/?id=~a"
-                               (repo-url) long-hash)))
-             `(span "Version " (a (@ (href ,url)) ,short-hash))))
+                   "Source Code")))
 
          ;; Small calendar and navigation
          (nav (@ (class "calnav") (style "grid-area: nav"))