mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-19 10:17:35 +03:00
tools: dayssincerelease.hs -> dayssincetag.hs
This commit is contained in:
parent
42df61393b
commit
7e753e13b5
10
Makefile
10
Makefile
@ -806,19 +806,21 @@ showreleasestats stats: \
|
|||||||
# simplebench
|
# simplebench
|
||||||
# showerrors
|
# showerrors
|
||||||
|
|
||||||
|
FROMTAG=.
|
||||||
|
|
||||||
showreleasedays:
|
showreleasedays:
|
||||||
@echo Days since last release:
|
@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
|
@echo
|
||||||
|
|
||||||
showunreleasedchangecount:
|
showunreleasedchangecount:
|
||||||
@echo Commits since last release:
|
@echo Commits since last release:
|
||||||
@darcs changes --from-tag . --count
|
@darcs changes --from-tag $(FROMTAG) --count
|
||||||
@echo
|
@echo
|
||||||
|
|
||||||
showreleaseauthors:
|
showreleaseauthors:
|
||||||
@echo Patch authors since last release:
|
@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
|
@echo
|
||||||
|
|
||||||
showloc sloccount:
|
showloc sloccount:
|
||||||
@ -850,7 +852,7 @@ showunpushedchanges unpushed:
|
|||||||
|
|
||||||
showunreleasedcodechanges unreleased:
|
showunreleasedcodechanges unreleased:
|
||||||
@echo "hledger code changes since last release:"
|
@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
|
@echo
|
||||||
|
|
||||||
showcodechanges:
|
showcodechanges:
|
||||||
|
@ -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
|
$ 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 Data.Time
|
||||||
|
import System.Environment
|
||||||
import System.Locale
|
import System.Locale
|
||||||
import System.Process
|
import System.Process
|
||||||
|
|
||||||
main = do
|
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
|
let datestr = unwords $ take 6 $ words $ head $ lines s
|
||||||
date = readTime defaultTimeLocale "%a %b %e %H:%M:%S %Z %Y" datestr :: Day
|
date = readTime defaultTimeLocale "%a %b %e %H:%M:%S %Z %Y" datestr :: Day
|
||||||
today <- getCurrentDay
|
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
|
putStr s
|
||||||
|
|
||||||
getCurrentDay = do
|
getCurrentDay = do
|
Loading…
Reference in New Issue
Block a user