diff options
| -rw-r--r-- | build-aux/build-website.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/build-aux/build-website.el b/build-aux/build-website.el index f8b8454..13c1835 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 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2019, 2020, 2021, 2023 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of guile-email. ;;; @@ -31,7 +31,11 @@ (defun org-dblock-write:releases (params) "Dynamically write releases block." (call-process "git" nil t nil - "for-each-ref" "--sort=-taggerdate" + "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 @@ -39,12 +43,7 @@ release-file)) "refs/tags/v*") ;; Fix tarball filenames. - (replace-string "guile-email-v" "guile-email-" nil nil nil t) - ;; Delete the v0.1.0 release line since we don't have a copy of the - ;; release tarball. - (search-forward "guile-email-0.1.0.tar.lz") - (beginning-of-line) - (kill-line)) + (replace-string "guile-email-v" "guile-email-" nil nil nil t)) (with-current-buffer (find-file "README.org") (org-update-all-dblocks) |