--- a/fish/functions/mutt.fish Mon Sep 09 10:09:33 2019 -0400
+++ b/fish/functions/mutt.fish Thu Sep 12 15:57:13 2019 -0400
@@ -1,5 +1,5 @@
set -g -x MUTT_BIN (which neomutt)
function mutt
- bash --login -c "cd ~/Desktop; $MUTT_BIN \$@" custom_mutt $argv
+ bash --login -c "cd ~/Downloads; $MUTT_BIN \$@" custom_mutt $argv
end
--- a/stumpwmrc Mon Sep 09 10:09:33 2019 -0400
+++ b/stumpwmrc Thu Sep 12 15:57:13 2019 -0400
@@ -20,6 +20,7 @@
*shell-program* "/home/sjl/src/dotfiles/bin/bash-dammit")
+
;;;; Utils --------------------------------------------------------------------
(defun string-contains (needle string)
(and (search needle string :test #'char=) t))
@@ -284,29 +285,21 @@
(when (eql frame (current-frame))
(next-group))))))
-(defcommand screen-single () ()
+(defcommand screen-laptop () ()
(loop with laptop = "eDP1"
with extern = "DP1"
- for (output commands) in `((,extern ("--off"))
- (,laptop ("--off"))
-
- (,laptop ("--auto"))
- (,extern ("--primary")))
+ for (output commands) in `((,laptop ("--auto"))
+ (,laptop ("--primary"))
+ (,extern ("--off")))
do (uiop:run-program `("xrandr" "--output" ,output ,@commands))))
-(defcommand screen-multi () ()
+(defcommand screen-external () ()
(loop with laptop = "eDP1"
with extern = "DP1"
- for (output commands) in `((,extern ("--off"))
- (,laptop ("--off"))
-
- (,extern ("--auto"))
+ for (output commands) in `((,extern ("--auto"))
(,extern ("--primary"))
-
- ;; (,laptop ("--auto"))
- ;; (,laptop ("--right-of" ,extern))
- )
- do (pr (uiop:run-program `("xrandr" "--output" ,output ,@commands)))))
+ (,laptop ("--off")))
+ do (uiop:run-program `("xrandr" "--output" ,output ,@commands))))
(defcommand vlime () ()
(load "~/src/dotfiles/vim/bundle/vlime/lisp/start-vlime.lisp")
@@ -522,8 +515,8 @@
(define-top-keys ;; screen
("H-F5" "rotate-brightness-down")
("H-F6" "rotate-brightness-up")
- ("H-F7" "screen-single")
- ("H-F8" "screen-multi"))
+ ("H-F7" "screen-laptop")
+ ("H-F8" "screen-external"))
(define-top-keys ;; sound
("H-F1" "mute")