From 7b23fcfdb5da4f8375075b05f027f33a2d74a58a Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Fri, 26 Jan 2024 11:38:49 +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-website.el (org-dblock-write:releases): Do not infer release information from git tags. Hard-code them. --- build-aux/build-website.el | 29 ++++++++++++++--------------- 1 file changed, 14 insertions(+), 15 deletions(-) diff --git a/build-aux/build-website.el b/build-aux/build-website.el index 13c1835..c64dafc 100644 --- a/build-aux/build-website.el +++ b/build-aux/build-website.el @@ -1,5 +1,5 @@ ;;; guile-email --- Guile email parser -;;; Copyright © 2019, 2020, 2021, 2023 Arun Isaac +;;; Copyright © 2019, 2020, 2021, 2023, 2024 Arun Isaac ;;; ;;; This file is part of guile-email. ;;; @@ -30,20 +30,19 @@ (defun org-dblock-write:releases (params) "Dynamically write releases block." - (call-process "git" nil t nil - "for-each-ref" - "--sort=-taggerdate" - ;; Exclude the v0.1.0 release since we don't have a - ;; copy of the tarball. - "--contains=v0.2.0" - (let ((release-file "./releases/guile-email-%(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 "guile-email-v" "guile-email-" nil nil nil t)) + (dolist (release '(("2023-09-04" "v0.3.1") + ("2023-01-06" "v0.3.0") + ("2019-12-22" "v0.2.2") + ("2019-09-23" "v0.2.1") + ("2019-08-09" "v0.2.0") + ("2019-04-09" "v0.1.0"))) + (pcase release + (`(,date ,version) + (insert (format "- %s [[./releases/guile-email-%s.tar.lz][guile-email-%s.tar.lz]] [[./releases/guile-email-%s.tar.lz.asc][GPG Signature]]\n" + date + version + version + version)))))) (with-current-buffer (find-file "README.org") (org-update-all-dblocks) -- cgit v1.2.3