Port longlines checker from CTRLF

1 files changed, 26 insertions, 0 deletions

diff --git a/scripts/check-line-length.bash b/scripts/check-line-length.bash
new file mode 100755
index 0000000..c6a040d
--- /dev/null
+++ b/scripts/check-line-length.bash
@@ -0,0 +1,26 @@
+#!/usr/bin/env bash
+
+set -e
+set -o pipefail
+
+find=(
+    find .
+    -name .git -prune -o
+    -name "*.elc" -o
+    -type f -print
+)
+
+readarray -t files < <("${find[@]}" | sed 's#./##' | sort)
+
+code="$(cat <<"EOF"
+
+(length($0) >= 80 && $0 !~ /https?:\/\//) \
+{ printf "%s:%d: %s\n", FILENAME, NR, $0 }
+
+EOF
+)"
+
+for file in "${files[@]}"; do
+    echo "[longlines] $file" >&2
+    awk "$code" "$file"
+done | (! grep .)