new command: lptext

1 files changed, 13 insertions, 0 deletions

diff --git a/dot/local/bin/lptext b/dot/local/bin/lptext
new file mode 100644
index 0000000..61fa331
--- /dev/null
+++ b/dot/local/bin/lptext
@@ -0,0 +1,13 @@
+#!/bin/sh
+font=${LP_FONT:-Courier}
+
+# Densities over 400 cause ImageMagick to cut off the top of the first line.
+density=400
+
+# Leading whitespace causes ImageMagick to duplicate the first non-empty line.
+skip_leading_empty_lines()
+{
+    perl -pe 'if (/./) {$seen++} elsif (!$seen) {undef $_}'
+}
+
+skip_leading_empty_lines | gm convert -font $font -density $density text:- -trim png:- | lp "$@"