From 7e753e13b5de6a85bcb2303134b87dd63eaf2141 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 25 Sep 2011 18:29:23 +0000
Subject: [PATCH] tools: dayssincerelease.hs -> dayssincetag.hs

---
 Makefile                                       | 10 ++++++----
 tools/{dayssincerelease.hs => dayssincetag.hs} |  6 ++++--
 2 files changed, 10 insertions(+), 6 deletions(-)
 rename tools/{dayssincerelease.hs => dayssincetag.hs} (75%)

diff --git a/Makefile b/Makefile
index f76a71b91..0435d69cd 100644
--- a/Makefile
+++ b/Makefile
@@ -806,19 +806,21 @@ showreleasestats stats: \
 #	simplebench
 #	showerrors
 
+FROMTAG=.
+
 showreleasedays:
 	@echo Days since last release:
-	@tools/dayssincerelease.hs | head -1 | cut -d' ' -f-1
+	@tools/dayssincetag.hs $(FROMTAG) | head -1 | cut -d' ' -f-1
 	@echo
 
 showunreleasedchangecount:
 	@echo Commits since last release:
-	@darcs changes --from-tag . --count
+	@darcs changes --from-tag $(FROMTAG) --count
 	@echo
 
 showreleaseauthors:
 	@echo Patch authors since last release:
-	@darcs changes --from-tag . |grep '^\w' |cut -c 31- |sort |uniq
+	@darcs changes --from-tag $(FROMTAG) |grep '^\w' |cut -c 31- |sort |uniq
 	@echo
 
 showloc sloccount:
@@ -850,7 +852,7 @@ showunpushedchanges unpushed:
 
 showunreleasedcodechanges unreleased:
 	@echo "hledger code changes since last release:"
-	@darcs changes --from-tag . --matches "not (name docs: or name doc: or name site: or name tools:)" | grep '*'
+	@darcs changes --from-tag $(FROMTAG) --matches "not (name docs: or name doc: or name site: or name tools:)" | grep '*'
 	@echo
 
 showcodechanges:
diff --git a/tools/dayssincerelease.hs b/tools/dayssincetag.hs
similarity index 75%
rename from tools/dayssincerelease.hs
rename to tools/dayssincetag.hs
index 7cceb28ec..543396816 100644
--- a/tools/dayssincerelease.hs
+++ b/tools/dayssincetag.hs
@@ -5,15 +5,17 @@ Similar to:
 $ darcs changes --to-tag . --from-tag .|head -n 1 |cut -d' ' -f-7 |xargs -I {} date -d "{}" +%s |xargs -I {} expr \( $(date +%s) - {} \) / 60 / 60 / 24
 -}
 import Data.Time
+import System.Environment
 import System.Locale
 import System.Process
 
 main = do
-  s <- readProcess "darcs" ["changes","--from-tag",".","--to-tag","."] ""
+  tag:_ <- getArgs
+  s <- readProcess "darcs" ["changes","--from-tag",tag,"--to-tag",tag] ""
   let datestr = unwords $ take 6 $ words $ head $ lines s
       date = readTime defaultTimeLocale "%a %b %e %H:%M:%S %Z %Y" datestr :: Day
   today <- getCurrentDay
-  putStrLn $ show (diffDays today date) ++ " days since the last tag:\n"
+  putStrLn $ show (diffDays today date) ++ " days since tag "++tag++":\n"
   putStr s
 
 getCurrentDay = do