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

#!@ZSH@

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

source ${CASILEDIR}/lib/functions.zsh

function gitcommits () {
	alias git="${GIT:-@GIT@}"
	git rev-list --no-merges --reverse HEAD
}

function gitmodified () {
	alias awk="${AWK:-@AWK@}"
	alias git="${GIT:-@GIT@}"
	alias grep="${GREP:-@GREP@}"
	git diff-tree --root --no-commit-id -r $@ |
		grep -E '100755|100644|100664' |
		awk '{print $6}' |
		grep -vE '^\.|makefile'
}

function gitadded () {
	alias git="${GIT:-@GIT@}"
	git diff --word-diff-regex=. $@ | addedchars | countchars
}

function gitremoved () {
	alias git="${GIT:-@GIT@}"
	git diff --word-diff-regex=. $@ | removedchars | countchars
}

function addedchars () {
	alias perl="${PERL:-@PERL@}"
	perl -ne 'print $1 while /((?<=\{\+).+?(?=\+\}))/g'
}

function removedchars () {
	alias perl="${PERL:-@PERL@}"
	perl -ne 'print $1 while /((?<=\[\-).+?(?=\-\]))/g'
}

function gitattr () {
	alias git="${GIT:-@GIT@}"
	git log --no-walk --format=$@
}

function gitparent () {
	alias git="${GIT:-@GIT@}"
	git rev-parse --revs-only $1^ | read newparent
	test -z $newparent && echo 4b825dc642cb6eb9a060e54bf8d69288fbee4904 || echo $newparent
}

gitcommits |
	while read sha; do
		gitattr "%h %cI %aN" $sha | read short date author
		gitparent $sha | read parent
		gitmodified $sha |
			while read file; do
				gitadded ${parent}..$sha -- $file | read added
				gitremoved ${parent}..$sha -- $file | read removed
				test $(($added-$removed)) -eq 0 && continue
				echo "INSERT INTO commits VALUES ('$short', '$author', '$date', '$file', '$added', '$removed');"
			done
	done