aboutsummaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorArun Isaac2024-01-26 11:38:49 +0000
committerArun Isaac2024-01-26 11:38:49 +0000
commit7b23fcfdb5da4f8375075b05f027f33a2d74a58a (patch)
tree2ece4eb0884c83fd5b776609cc12956ba423c3a9 /build-aux
parent21ef1096fdd077634b98b0e4d92650bdb419715a (diff)
downloadguile-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.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/build-website.el29
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)