From 3f242d02b8ddc64c2c669d50363bb4e6e40cb79e Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Fri, 26 Jan 2024 11:45:08 +0000 Subject: build-aux: Do not infer release information from git tags. We now build the website as a computed-file G-expression in a Guix channel. Guix channels always discard the git repository information, and don't have access to the git tags. We can fix this problem later if and when we switch to using tissue for the website. * build-aux/build-home-page.el (org-dblock-write:releases): Do not infer release information from git tags. Hard-code them. --- build-aux/build-home-page.el | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) diff --git a/build-aux/build-home-page.el b/build-aux/build-home-page.el index e005756..0f5ef9d 100644 --- a/build-aux/build-home-page.el +++ b/build-aux/build-home-page.el @@ -1,5 +1,5 @@ ;;; kolam --- GraphQL implementation -;;; Copyright © 2022 Arun Isaac +;;; Copyright © 2022, 2024 Arun Isaac ;;; ;;; This file is part of kolam. ;;; @@ -37,16 +37,14 @@ (defun org-dblock-write:releases (params) "Dynamically write releases block." - (call-process "git" nil t nil - "for-each-ref" "--sort=-taggerdate" - (let ((release-file "./releases/kolam-%(refname:short).tar.lz")) - (format "--format=- %%(taggerdate:short) [[%s][%s]] [[%s.asc][GPG Signature]]" - release-file - (file-name-nondirectory release-file) - release-file)) - "refs/tags/v*") - ;; Fix tarball filenames. - (replace-string "kolam-v" "kolam-" nil nil nil t)) + (dolist (release '(("2022-01-05" "v0.1.0"))) + (pcase release + (`(,date ,version) + (insert (format "- %s [[./releases/kolam-%s.tar.lz][kolam-%s.tar.lz]] [[./releases/kolam-%s.tar.lz.asc][GPG Signature]]\n" + date + version + version + version)))))) (defun build-website () (with-current-buffer (find-file "README.org") -- cgit v1.2.3