From 5a3ff6b99e9b9baa5def3291e36c47943c6d5ba2 Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Wed, 14 Oct 2020 23:33:14 +0300
Subject: [PATCH] Prefill dc's registers

---
 bin/bin/dc-wrapped.sh | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/bin/bin/dc-wrapped.sh b/bin/bin/dc-wrapped.sh
index 11fdd21..64211fc 100755
--- a/bin/bin/dc-wrapped.sh
+++ b/bin/bin/dc-wrapped.sh
@@ -1,3 +1,11 @@
 #!/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
+"
+
+sleep 0.01 # do not know why, but only with it it works in tmux menu
+exec rlwrap --history-filename /tmp/.dc_history --substitute-prompt "> " --pre-given "$pre" dc
-- 
2.44.0