# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1584482838 14400
# Node ID fd4566bbfa9f4fe7a2a7f5e1c0dbc94e5d7a4a64
# Parent  638fb374ef6e99aa4906140194abefae0c729562# Parent  a5781ceaf296bef0ab54c1f2b329cbbb5a2c4be0
Merge.

diff -r 638fb374ef6e -r fd4566bbfa9f bin/k-dammit
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/k-dammit	Tue Mar 17 18:07:18 2020 -0400
@@ -0,0 +1,7 @@
+#!/usr/bin/env bash
+
+while true; do
+  inotifywait -q -e create --exclude '.*tmp.*' /dev/input
+  sleep 0.25
+  DISPLAY=:0.0 /home/sjl/src/dotfiles/bin/k
+done
diff -r 638fb374ef6e -r fd4566bbfa9f bin/keysettings
--- a/bin/keysettings	Tue Mar 17 18:07:11 2020 -0400
+++ b/bin/keysettings	Tue Mar 17 18:07:18 2020 -0400
@@ -6,3 +6,4 @@
 xmodmap ~/.Xmodmap
 xset r rate 220 55
 
+# date > /home/sjl/.keys-mapped
diff -r 638fb374ef6e -r fd4566bbfa9f fish/config.fish
--- a/fish/config.fish	Tue Mar 17 18:07:11 2020 -0400
+++ b/fish/config.fish	Tue Mar 17 18:07:18 2020 -0400
@@ -7,7 +7,7 @@
 function eh; nvim ~/.hgrc; end
 function ei; hg -R ~/src/inventory/ pull -u; and nvim ~/src/inventory/inventory.markdown; and hg -R ~/src/inventory/ ci -m 'Update inventory'; and hg -R ~/src/inventory/ push; end
 function em; nvim ~/.mutt/muttrc; end
-function es; nvim ~/.stumpwmrc; end
+function es; cd ~/src/stumpwm; nvim ~/.stumpwmrc; end
 function ev; nvim ~/.vimrc; end
 function eff; nvim ~/.config/fish/functions; end
 function essh; nvim ~/.ssh/config; end
diff -r 638fb374ef6e -r fd4566bbfa9f lispwords
--- a/lispwords	Tue Mar 17 18:07:11 2020 -0400
+++ b/lispwords	Tue Mar 17 18:07:18 2020 -0400
@@ -16,6 +16,7 @@
 (1 multiple-value-call) ; maybe not...
 (1 restart-case)
 (1 handler-bind)
+(0 tagbody)
 
 ; my own weird things
 (1 make-array)
diff -r 638fb374ef6e -r fd4566bbfa9f stumpwmrc
--- a/stumpwmrc	Tue Mar 17 18:07:11 2020 -0400
+++ b/stumpwmrc	Tue Mar 17 18:07:18 2020 -0400
@@ -122,6 +122,25 @@
         (throw 'error "Real required.")))))
 
 
+(defun window-match-p (query window)
+  (destructuring-bind (query-type query) query
+    (let ((value (ecase query-type
+                   (:title (window-title window))
+                   (:class (window-class window)))))
+      (etypecase query
+        (string (string= query value))
+        (function (ppcre:scan query value))))))
+
+(defun all-windows ()
+  (mapcan #'screen-windows *screen-list*))
+
+(defun find-window (query)
+  (find-if (lambda (w) (window-match-p query w)) (all-windows)))
+
+(defun find-windows (query)
+  (remove-if-not (lambda (w) (window-match-p query w)) (all-windows)))
+
+
 ;;;; Posture ------------------------------------------------------------------
 (defparameter *posture-thread* nil)
 (defparameter *posture-should-stop* nil)
@@ -310,7 +329,7 @@
                                    (,extern ("--auto"))
                                    (,extern ("--primary"))
                                    ;; (,laptop ("--auto"))
-                                   ;; (,laptop ("--left-of" ,extern))
+                                   ;; (,laptop ("--right-of" ,extern))
                                    )
         do (uiop:run-program `("xrandr" "--output" ,output ,@commands))))
 
@@ -420,6 +439,11 @@
 (defcommand gcontrol () ()
   (run-or-raise "gcontrol" '(:class "Gnome-control-center")))
 
+(defcommand zoom () ()
+  (let ((window (find-window `(:title ,(ppcre:create-scanner "^Zoom Meeting ID: .*")))))
+    (when window
+      (focus-window window t))))
+
 
 ;;;; Timers -------------------------------------------------------------------
 (defparameter *pop-timer-minutes* nil)
@@ -487,6 +511,7 @@
   ("H-b" "browser")
   ("H-B" "exec firefox")
   ("H-o" "spotify")
+  ("H-z" "zoom")
   ("H-q" "exec lock-screen")
   ("H-y" "screenshot")
   ("H-g" "gcontrol")
@@ -677,3 +702,5 @@
 
 (defvar *dunst*
   (run-shell-command "/usr/bin/dunst -conf ~/.dunstrc"))
+
+;;;; Scratch ------------------------------------------------------------------
diff -r 638fb374ef6e -r fd4566bbfa9f xsessionrc
--- a/xsessionrc	Tue Mar 17 18:07:11 2020 -0400
+++ b/xsessionrc	Tue Mar 17 18:07:18 2020 -0400
@@ -16,6 +16,8 @@
 # xinput set-prop $TRACKPAD $CLICK 0, 1
 
 /home/sjl/src/dotfiles/bin/keysettings
+/home/sjl/src/dotfiles/bin/k-dammit &
+
 xcape -t 200 -e 'Control_L=Escape;Shift_L=Shift_L|9;Shift_R=Shift_R|0'
 xautolock -time 30 -locker /home/sjl/src/dotfiles/bin/lock-screen &