# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1568318233 14400
# Node ID e5fe3d20c01c8f2fa5abfcf07e8a446cfaa80b1d
# Parent  eeb1312e30ccbe45d7cbc15044ef25944ca4409e
More

diff -r eeb1312e30cc -r e5fe3d20c01c fish/functions/mutt.fish
--- 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
diff -r eeb1312e30cc -r e5fe3d20c01c stumpwmrc
--- 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")