Add committer statistics as requested by Nik

dev.sh

@@ -20,6 +20,7 @@ case "$1" in
 	poetry run ./manage.py yarn install
 	poetry run ./manage.py collectstatic --no-input
 	set +e
+	exit
 	;;
     "makemessages")
 	cd "$(dirname "$0")"
@@ -29,6 +30,7 @@ case "$1" in
 		echo; echo "Entering $d."
 		poetry run sh -c "cd $d; $manage_py makemessages --no-wrap -i static $locales"
 	done
+	exit
 	;;
     "autopep8")
 	cd "$(dirname "$0")"
@@ -36,6 +38,7 @@ case "$1" in
 		echo; echo "Entering $d."
 		poetry run sh -c "cd $d; autopep8 -i -r ."
 	done
+	exit
 	;;
     "pylama")
 	cd "$(dirname "$0")"
@@ -44,12 +47,145 @@ case "$1" in
 		echo; echo "Entering $d."
 		poetry run sh -c "cd $d; pylama -a -o $tox_ini ."
 	done
+	exit
 	;;
     "gource")
 	for d in . apps/official/*; do
 		gource --output-custom-log - "$d"
 	done | sort -n | gource --log-format custom --background-image aleksis/core/static/img/aleksis-logo.png -
+	exit
+	;;
+    "devstats"*)
+	case $KSH_VERSION in
+	(*MIRBSD\ KSH*) ;;
+	(*) echo >&2 E: need mksh; exit 1 ;;
+	esac
 	;;
     *)
+	echo >&2 "E: unknown command '$1'"
+	exit 1
+	;;
+esac
+
+# this line is only reached if the shell is mksh
+# and $1 is one of the known commands (devstats*)
+
+# Copyright © 2018
+#	mirabilos <m@mirbsd.org>
+# Copyright © 2017
+#	mirabilos <t.glaser@tarent.de>
+# Copyright © 2015, 2017, 2020
+#	mirabilos <thorsten.glaser@teckids.org>
+#
+# Provided that these terms and disclaimer and all copyright notices
+# are retained or reproduced in an accompanying document, permission
+# is granted to deal in this work without restriction, including un‐
+# limited rights to use, publicly perform, distribute, sell, modify,
+# merge, give away, or sublicence.
+#
+# This work is provided “AS IS” and WITHOUT WARRANTY of any kind, to
+# the utmost extent permitted by applicable law, neither express nor
+# implied; without malicious intent or gross negligence. In no event
+# may a licensor, author or contributor be held liable for indirect,
+# direct, other damage, loss, or other issues arising in any way out
+# of dealing in the work, even if advised of the possibility of such
+# damage or existence of a defect, except proven that it results out
+# of said person’s immediate fault when using the work as intended.
+
+set -e
+set -o pipefail
+unset LANGUAGE
+export LC_ALL=C.UTF-8
+set -o utf8-mode
+
+case $1 in
+(devstats-commits)
+	for d in . apps/official/*; do
+		cd "$d"
+		if [[ ! -s pyproject.toml ]]; then
+			print -ru2 "E: missing pyproject.toml in ${d@Q}"
+			print -ru2 "N: maybe you forgot the submodules?"
+			print -ru2 "N: try git submodule update --init --recursive"
+			exit 1
+		fi
+		cd "$OLDPWD"
+	done
+	for d in . apps/official/*; do
+		cd "$d"
+		git log --pretty=tformat:%aN
+		cd "$OLDPWD"
+	done | sort | uniq -c | sort -nr |&
+	maxnum=0
+	maxlen=0
+	set -A nums
+	set -A names
+	nlines=0
+	while IFS= read -pr line; do
+		line=${line##*( )}
+		num=${line%% *}
+		line=${line##+([0-9]) }
+		#print -r -- "<$num><$line>"
+		(( maxnum = num > maxnum ? num : maxnum ))
+		len=${%line}
+		if (( len == -1 )); then
+			len=${#line}
+			print -ru2 -- "W: assuming length $len for author ${line@Q}"
+		fi
+		(( maxlen = len > maxlen ? len : maxlen ))
+		nums[nlines]=$num
+		names[nlines++]=$line
+	done
+	w=$COLUMNS
+	if (( (w -= 1 + maxlen + 1) < 1 )); then
+		print -ru2 -- "E: terminal too small, need $((-w+1)) more columns"
+		exit 1
+	fi
+	if (( maxnum < 1 )); then
+		print -ru2 -- "E: no commits"
+		exit 1
+	fi
+	set +e
+	typeset -R$maxlen pname
+	mbar=██
+	nlen=0
+	num=$maxnum
+	while ((# num > 0 )); do
+		mbar+=█
+		((# ++nlen ))
+		((# num /= 10 ))
+	done
+	typeset -R$nlen pnum
+	print '\e[0m'
+	line=-1
+	while (( ++line < nlines )); do
+		bar=
+		((# num = (nums[line] * w * 8) / maxnum ))
+		while ((# num >= 8 )); do
+			bar+=█
+			((# num -= 8 ))
+		done
+		case $num {
+		(7) bar+=▉ ;;
+		(6) bar+=▊ ;;
+		(5) bar+=▋ ;;
+		(4) bar+=▌ ;;
+		(3) bar+=▍ ;;
+		(2) bar+=▎ ;;
+		(1) bar+=▏ ;;
+		}
+		pname=${names[line]}
+		if [[ $bar = "$mbar"* ]]; then
+			pnum=${nums[line]}
+			bar=$'\e[7m '$pnum$' \e[0m'${bar#"$mbar"}
+		else
+			bar+=" ${nums[line]}"
+		fi
+		print -r -- "$pname $bar"
+	done
+	exit
+	;;
+(*)
+	print -ru2 -- "E: unknown command ${1@Q}"
+	exit 1
 	;;
 esac