From fc283e904b427b60b10dbd91754794f0b683276c Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Fri, 6 Jan 2023 18:19:08 +0000 Subject: 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. --- build-aux/build-website.el | 15 +++++++-------- 1 file 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 +;;; Copyright © 2019, 2020, 2021, 2023 Arun Isaac ;;; ;;; 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) -- cgit v1.2.3