From 8336adc85e357cd5131f7d77ac8e01ad6f57b058 Mon Sep 17 00:00:00 2001
From: Nat Lasseter <user@4574.co.uk>
Date: Tue, 3 Sep 2024 19:48:26 +0100
Subject: [goforthanddie] add ~user to print userdefs

---
 goforthanddie.rb | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/goforthanddie.rb b/goforthanddie.rb
index e81d534..5e4af9e 100755
--- a/goforthanddie.rb
+++ b/goforthanddie.rb
@@ -164,6 +164,15 @@ def handle(str, stack, markermode, markerautoclear, destructiveprint)
       print "Marker Mode:       #{markermode ? "ON " : "OFF"}  "
       puts "Marker Auto-Clear: #{markerautoclear ? "ON " : "OFF"}"
       puts "Destructive Print: #{destructiveprint ? "ON " : "OFF"}"
+    when "~user"
+      puts "User definitions:"
+      file = File.
+        readlines(File.join(ENV['HOME'], ".goforthanddie")).
+        map { |line| line.split(?:) }
+      namemax = file.map {|defn| defn[0].length}.max + 1
+      file.each do |name, defn|
+        puts "  %#{namemax}s: #{defn}" % "'#{name}"
+      end
     when "~q", "~quit"
       exit
     else
-- 
cgit v1.2.1