Add committer statistics

… as requested by Nik

Call with:

mksh dev.sh devstats-commits

This leaves room for future devstats-* extensions, such as statistics over lines added or deleted, files touched, or something.

dev.sh

-#!/bin/sh
+#!/usr/bin/env mksh
 
 remove_pip_metadata() {
     find . -type d -name pip-wheel-metadata -print0 | xargs -0r rm -rf --
@@ -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,130 @@ 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-commits")
+	# 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
+
+	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