casile 0.14.4

The command line interface to the CaSILE toolkit, a book publishing workflow employing SILE and other wizardry
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117

#!@ZSH@

CASILEDIR=$(cd "$(dirname $0)/../" && pwd)

alias date="${DATE:-@DATE@}"
alias perl="${PERL:-@PERL@}"

basename="$1"
: ${2:=2}
let months=$2-1

source ${CASILEDIR}/lib/functions.zsh

function list_sources () {
	alias git="${GIT:-@GIT@}"
	alias pcregrep="${PCREGREP:-@PCREGREP@}"
	git ls-files |
    pcregrep "$basename.*(md|yml)"
}

function list_authors () {
	alias git="${GIT:-@GIT@}"
	alias sort="${SORT:-@SORT@}"
	alias xargs="${XARGS:-@XARGS@}"
	list_sources $1 |
		xargs -n1 git log --format=%aN --follow -- |
		sort -u
}

function list_commits () {
	alias cut="${CUT:-@CUT@}"
	alias git="${GIT:-@GIT@}"
	alias sort="${SORT:-@SORT@}"
	alias xargs="${XARGS:-@XARGS@}"
	basename=$1
	month=$2
	author=$3
	list_sources $basename |
		xargs -n1 git log --format='%at|%h|%s|%an'  --follow --find-renames -- |
		while IFS='|' read at sha1 msg aut; do
			inrange $month $at || continue
			[[ $aut == $author ]] || continue
			echo $at $sha1
		done |
		sort -u |
		cut -d\  -f2
}

function calculate_affected () {
	alias git="${GIT:-@GIT@}"
	alias pcregrep="${PCREGREP:-@PCREGREP@}"
	sha1=$1
	basename=$2
	before=0 beforew=0
	after=0 afterw=0
	git diff-tree --no-commit-id --name-only -r $sha1 |
		pcregrep "$basename.*(md|yml)" |
		while read file; do
			let after="$after + $(git show "$sha1:$file" 2>&- | countchars)"
			let before="$before + $(git show "$sha1^:$file" 2>&- | countchars)"
		done
	change=$(($after-$before))
	echo $after $change
}

function inrange () {
	alias date="${DATE:-@DATE@}"
	month=$1
	at=$2
	since=$(date --date "$cyclestart - $month months" "+%F")
	until=$(date --date "$since + 1 month" "+%s")
	[[ $until -lt $rootstart ]] && return 1
	start=$(date --date "$cyclestart - $month months" "+%Y-%m")
	since=$(date --date "$since" "+%s")
	[[ $at -ge $until ]] && return 1
	[[ $at -le $since ]] && return 1
	return 0
}

function itemwords () {
	m4 ${CASILEDIR}/casile.m4 <(cat $1.md) |
		countwords
}

echo "ÇEVİRİ VE EDİTÖRLÜK RAPÖRÜ: $basename"
echo "(Son hali $(itemwords $basename) kelime)"

cyclestart=$(date "+%Y-%m-1")
rootstart=$(git log --format=%at | sort -n | head -n1)
list_authors $basename |
	while read author; do
        let usertotal=0
		echo
		echo "========================================================================"
		echo "$author"
		echo "========================================================================"
		for month in $(seq 0 $months); do
			let monthtotal=0
			echo
			echo "Ay $(date --date "$cyclestart - $month months" "+%Y-%m")"
			echo "-------------"
			list_commits $basename $month "$author" |
			while read sha1; do
				calculate_affected $sha1 $basename |
					read after change
				[[ $change -ge 0 ]] || continue
				let monthtotal=$monthtotal+$change
				# git log -1 --date="format:%m-%d %H:%M" --format="%ad (%h) %s" $sha1
				echo "Karakter: $(printf %8d $after) [$(printf %+8d $change)]" “$(git log -1 --format="%s" $sha1 |
					perl -pe 's/(?<=.{39}).{1,}$/…/')”
			done
			let usertotal=$usertotal+$monthtotal
		done
		echo
        echo "Toplam: $(printf %+20d $usertotal)"
	done
echo