Simplify dc invocation

[dotfiles.git] / bin / bin / dc-wrapped.sh

diff --git a/bin/bin/dc-wrapped.sh b/bin/bin/dc-wrapped.sh
index 11fdd21fa640126f8509bef2a4701442105f7b13..74d4af713c50e2a32065630c8f4786c4e6c5c843 100755 (executable)
--- a/bin/bin/dc-wrapped.sh
+++ b/bin/bin/dc-wrapped.sh
@@ -1,3 +1,14 @@
 #!/bin/sh
 
-exec rlwrap --history-filename /tmp/.dc_history --substitute-prompt "> " dc
+# natural logarithm: 1000lLx 10lLx /p
+# sum of everything in stack: lSxp
+pre="5k 10o \
+[1-d2+/d2*Skd*Sy0Ss10K^Sp[d1r/lk*ls+lsrdss-lp*d*1[s_q]s_>_lkly*sk2+lfx]Sf1lfxLsLkLyLpLfs_s_s_s_]sL \
+[0d[+2z>a]salax]sS
+"
+exec rlwrap \
+    --history-filename /tmp/.dc_history \
+    --substitute-prompt "> " \
+    --prompt-colour=red \
+    --wait-before-prompt -1 \
+    --pre-given "$pre" dc