From cc9d7f8ae001f92b252052e7e085fab313576ad0 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 19 Aug 2019 11:44:00 +0100
Subject: [PATCH] Shake changelogs: ignore commits beginning with ;

---
 Shake.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Shake.hs b/Shake.hs
index 11e9c9450..9289bc605 100755
--- a/Shake.hs
+++ b/Shake.hs
@@ -566,6 +566,7 @@ main = do
             lastversion = words oldheading !! 1
             lastrev | iscommithash lastversion = lastversion
                     | otherwise                = fromMaybe "hledger" pkg ++ "-" ++ lastversion
+            excludeboring = "--invert-grep --grep '^;'"  -- ignore commits beginning with ;
 
         headrev <- unwords . words . fromStdout <$>
                    (cmd Shell gitlog "-1 --pretty=%h -- " gitlogpaths :: Action (Stdout String))
@@ -574,7 +575,7 @@ main = do
         then liftIO $ putStrLn $ out ++ ": up to date"
         else do
           newitems <- fromStdout <$>
-                        (cmd Shell gitlog changelogGitFormat (lastrev++"..") "--" gitlogpaths
+                        (cmd Shell gitlog changelogGitFormat (lastrev++"..") excludeboring "--" gitlogpaths
                          "|" changelogCleanupCmd :: Action (Stdout String))
           let newcontent = "# "++headrev++"\n\n" ++ newitems
               newfile = unlines $ concat [