From 0022de615bea80bec314ab1978019b082054b37d Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Fri, 26 Jan 2024 11:22:37 +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:download): Do not infer release information from git tags. Hard-code them. --- build-aux/build-home-page.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/build-aux/build-home-page.el b/build-aux/build-home-page.el index 6615111..3c3b38d 100644 --- a/build-aux/build-home-page.el +++ b/build-aux/build-home-page.el @@ -1,5 +1,5 @@ ;;; ccwl --- Concise Common Workflow Language -;;; Copyright © 2021, 2022 Arun Isaac +;;; Copyright © 2021, 2022, 2024 Arun Isaac ;;; ;;; This file is part of ccwl. ;;; @@ -41,14 +41,15 @@ Download release tarballs. ") - (call-process "git" nil t nil - "for-each-ref" "--sort=-taggerdate" - (let ((release-file "./releases/ccwl-%(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*") + (dolist (release '(("2021-11-05" "0.2.0") + ("2021-07-06" "0.1.0"))) + (pcase release + (`(,date ,version) + (insert (format "- %s [[./releases/ccwl-%s.tar.lz][ccwl-%s.tar.lz]] [[./releases/ccwl-%s.tar.lz.asc][GPG Signature]]\n" + date + version + version + version))))) (insert " Download [[https://systemreboot.net/about/arunisaac.pub][public signing key]]. -- cgit v1.2.3