--- /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)
--- 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"))