--- 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
--- 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)
+
--- 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")
--- 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
" }}}