diff options
Diffstat (limited to 'module')
-rw-r--r-- | module/git.scm | 13 | ||||
-rw-r--r-- | module/html/view/calendar.scm | 8 |
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")) |