diff options
| author | Arun Isaac | 2024-01-26 11:38:49 +0000 |
|---|---|---|
| committer | Arun Isaac | 2024-01-26 11:38:49 +0000 |
| commit | 7b23fcfdb5da4f8375075b05f027f33a2d74a58a (patch) | |
| tree | 2ece4eb0884c83fd5b776609cc12956ba423c3a9 | |
| parent | 21ef1096fdd077634b98b0e4d92650bdb419715a (diff) | |
| download | guile-email-7b23fcfdb5da4f8375075b05f027f33a2d74a58a.tar.gz guile-email-7b23fcfdb5da4f8375075b05f027f33a2d74a58a.tar.lz guile-email-7b23fcfdb5da4f8375075b05f027f33a2d74a58a.zip | |
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.
| -rw-r--r-- | build-aux/build-website.el | 29 |
1 files 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 <arunisaac@systemreboot.net> +;;; Copyright © 2019, 2020, 2021, 2023, 2024 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; 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) |