# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1561135802 25200
# Node ID cd52f0a0c1a2b1d8ddde38f9ce2cef73d277eda7
# Parent  df8c563e928ac76416a6ffe0b2d5c195378e125e
More

diff -r df8c563e928a -r cd52f0a0c1a2 stumpwm/work.lisp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/stumpwm/work.lisp	Fri Jun 21 09:50:02 2019 -0700
@@ -0,0 +1,44 @@
+#S(GDUMP
+   :NUMBER 1
+   :NAME "Default"
+   :TREE ((#S(FDUMP
+              :NUMBER 0
+              :X 0
+              :Y 0
+              :WIDTH 1920
+              :HEIGHT 2160
+              :WINDOWS (41943045 39845893 54525957 16777221)
+              :CURRENT 41943045)
+           #S(FDUMP
+              :NUMBER 4
+              :X 1920
+              :Y 0
+              :WIDTH 1920
+              :HEIGHT 2160
+              :WINDOWS (44040195 77594629)
+              :CURRENT 44040195))
+          (#S(FDUMP
+              :NUMBER 1
+              :X 3840
+              :Y 0
+              :WIDTH 960
+              :HEIGHT 1080
+              :WINDOWS (23068677)
+              :CURRENT 23068677)
+           (#S(FDUMP
+               :NUMBER 2
+               :X 4800
+               :Y 0
+               :WIDTH 960
+               :HEIGHT 465
+               :WINDOWS (35651589)
+               :CURRENT 35651589)
+            #S(FDUMP
+               :NUMBER 3
+               :X 4800
+               :Y 465
+               :WIDTH 960
+               :HEIGHT 615
+               :WINDOWS (27262977)
+               :CURRENT 27262977))))
+   :CURRENT 4)
diff -r df8c563e928a -r cd52f0a0c1a2 stumpwmrc
--- a/stumpwmrc	Fri Jun 14 14:45:49 2019 -0400
+++ b/stumpwmrc	Fri Jun 21 09:50:02 2019 -0700
@@ -302,7 +302,7 @@
                                    (,extern ("--primary"))
 
                                    (,laptop ("--auto"))
-                                   (,laptop ("--left-of" ,extern)))
+                                   (,laptop ("--right-of" ,extern)))
         do (pr (uiop:run-program `("xrandr" "--output" ,output ,@commands)))))
 
 (defcommand vlime () ()
@@ -385,6 +385,9 @@
 (defcommand browser () ()
   (run-or-raise "firefox" '(:class "Firefox")))
 
+(defcommand terminal () ()
+  (run-shell-command "st -f 'Ubuntu Mono:size=12'"))
+
 
 ;;;; Timers -------------------------------------------------------------------
 (defparameter *pop-timer-minutes* nil)
@@ -443,7 +446,7 @@
 
 
 (define-top-keys ;; application shortcuts
-  ("H-m" "exec st")
+  ("H-m" "terminal")
   ("H-SunPageUp" "st-font-up")
   ("H-SunPageDown" "st-font-down")
   ("H-Home" "st-font-reset")
@@ -510,7 +513,8 @@
 
 (define-top-keys ;; layout
   ("s-H-m" "restore-from-file ~/src/dotfiles/stumpwm/dev.lisp")
-  ("s-H-s" "restore-from-file ~/src/dotfiles/stumpwm/streaming.lisp"))
+  ("s-H-s" "restore-from-file ~/src/dotfiles/stumpwm/streaming.lisp")
+  ("s-H-w" "restore-from-file ~/src/dotfiles/stumpwm/work.lisp"))
 
 (define-top-keys ;; timers
   ("s-F7"  "tea-timer")
@@ -525,7 +529,7 @@
   ("s-o"   "posture-snooze"))
 
 (define-top-keys ;; stump
-  ("Pause" "exec st") ; jesus christ
+  ("Pause" "terminal") ; jesus christ
   ("H-F10" "sleep-machine")
   ("H-F11" "toggle-current-mode-line")
   ("H-F12" "refresh-heads"))