From 7203801e3d45ed0a33ae22129d163bcaedae3f0b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 17 Aug 2020 19:41:16 +0200 Subject: Remove git module. --- module/git.scm | 13 ------------- module/html/view/calendar.scm | 8 +------- 2 files changed, 1 insertion(+), 20 deletions(-) delete mode 100644 module/git.scm 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")) -- cgit v1.2.3