diff options
| -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) |