diff options
| author | Arun Isaac | 2023-01-06 18:19:08 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-01-06 18:20:40 +0000 |
| commit | fc283e904b427b60b10dbd91754794f0b683276c (patch) | |
| tree | 7e1065f77ab9615acb2d8fa201facae69922ed99 /build-aux | |
| parent | 9800f660222878bb79bad55f45bf22e68f8aee46 (diff) | |
| download | guile-email-fc283e904b427b60b10dbd91754794f0b683276c.tar.gz guile-email-fc283e904b427b60b10dbd91754794f0b683276c.tar.lz guile-email-fc283e904b427b60b10dbd91754794f0b683276c.zip | |
build-aux: Use --contains to exclude v0.1.0 release.
* build-aux/build-website.el (org-dblock-write:releases): Use the
--contains argument of git for-each-ref to exclude the v0.1.0 release.
Diffstat (limited to 'build-aux')
| -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) |