# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1556465767 25200
# Node ID 819deb5fee2544a8da899a280034ebeda22acfd2
# Parent  3ec7448dc603619c6aa1d54016763c799a6b31a5
More

diff -r 3ec7448dc603 -r 819deb5fee25 bin/makerlisp-raw
--- a/bin/makerlisp-raw	Wed Apr 24 21:02:01 2019 -0700
+++ b/bin/makerlisp-raw	Sun Apr 28 08:36:07 2019 -0700
@@ -3,4 +3,5 @@
 set -euo pipefail
 
 cd ~/src/makerlisp/src/uSDimage
-../lisp/linux/lisp "$@" | ~/src/dotfiles/go/bin/encconv
+../lisp/linux/lisp "$@"
+# | ~/src/dotfiles/go/bin/encconv
diff -r 3ec7448dc603 -r 819deb5fee25 lispwords
--- a/lispwords	Wed Apr 24 21:02:01 2019 -0700
+++ b/lispwords	Sun Apr 28 08:36:07 2019 -0700
@@ -127,3 +127,7 @@
 (1 if-lets)
 (1 lets)
 (1 macro)
+(2 bind)
+(1 dovec)
+(1 dolist)
+
diff -r 3ec7448dc603 -r 819deb5fee25 stumpwmrc
--- a/stumpwmrc	Wed Apr 24 21:02:01 2019 -0700
+++ b/stumpwmrc	Sun Apr 28 08:36:07 2019 -0700
@@ -223,6 +223,20 @@
     (t (message "Not sleeping this machine for safety.."))))
 
 
+;;;; Terminal Fonts -----------------------------------------------------------
+(defcommand st-font-up ()
+    ()
+  (loop :repeat 7 :do (meta (kbd "C-S-SunPageUp"))))
+
+(defcommand st-font-down ()
+    ()
+  (loop :repeat 7 :do (meta (kbd "C-S-SunPageDown"))))
+
+(defcommand st-font-reset ()
+    ()
+  (meta (kbd "C-S-Home")))
+
+
 ;;;; Clipboard/Data Generation ------------------------------------------------
 (defcommand generate-random-uuid () ()
   (run-shell-command "uuidgen | tr -d '\\n' | ~/src/dotfiles/bin/pbcopy")
@@ -297,6 +311,9 @@
 
 (define-top-keys ;; application shortcuts
   ("H-m" "exec st -f 'Ubuntu Mono:size=11:antialias=true:autohint=true'")
+  ("H-SunPageUp" "st-font-up")
+  ("H-SunPageDown" "st-font-down")
+  ("H-Home" "st-font-reset")
   ("H-\\" "pass-personal")
   ("H-b" "browser")
   ("H-o" "spotify")
diff -r 3ec7448dc603 -r 819deb5fee25 vim/vimrc
--- a/vim/vimrc	Wed Apr 24 21:02:01 2019 -0700
+++ b/vim/vimrc	Sun Apr 28 08:36:07 2019 -0700
@@ -2267,7 +2267,7 @@
 " }}}
 " DelimitMate {{{
 
-let delimitMate_excluded_ft = "clojure,lisp"
+let delimitMate_excluded_ft = "clojure,lisp,makerlisp"
 let delimitMate_expand_cr = 1
 
 " }}}