72b5c315bd1d

--- a/bin/cmrm	Thu Sep 07 14:33:50 2023 -0400
+++ b/bin/cmrm	Fri Sep 08 17:16:04 2023 -0400
@@ -4,4 +4,4 @@
 set -x
 
 rm ~/.ssh/controlmaster/*
-ps auxww | grep 'ssh.*[.]sock.*mux' | f 2 | xargs kill
+ps auxww | grep -P 'ssh.*controlmaster.*mux' | f 2 | xargs kill

--- a/remote/bin/lines	Thu Sep 07 14:33:50 2023 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,1 +0,0 @@
-../../lisp/bin/lines
\ No newline at end of file

--- a/stumpwmrc	Thu Sep 07 14:33:50 2023 -0400
+++ b/stumpwmrc	Fri Sep 08 17:16:04 2023 -0400
@@ -447,7 +447,7 @@
   (show-window-properties))
 
 (defcommand rain () ()
-  (_ '("/home/sjl/src/dotfiles/lisp/bin/weather" "-H" "36")
+  (_ '("/home/sjl/src/dotfiles/lisp/bin/weather" "48105" "-H" "36")
     (losh:sh _ :result-type 'list)
     (mapcar (lambda (line) (ppcre:regex-replace " 1[0-9]:00 " line "^6\\&^*")) _)
     (message "~{~A~^~%~}" _)))
@@ -906,7 +906,9 @@
 
     *screen-mode-line-format*
     (append
-      (list "[^B%n^b@%h] %W^>")
+      (list "[^B"
+            '(:eval (princ-to-string (group-number (current-group))))
+            ":%n^b@%h] %W^>")
 
       #+todo-some-day (list ;; "(V "
                             ;; ;; '(:eval (volume))
@@ -959,5 +961,6 @@
 
 #;;; Scratch ------------------------------------------------------------------
 
+(group-number (current-group))
 
 

--- a/vim/vimrc	Thu Sep 07 14:33:50 2023 -0400
+++ b/vim/vimrc	Fri Sep 08 17:16:04 2023 -0400
@@ -1932,6 +1932,7 @@
     au FileType lisp setlocal commentstring=;;\ %s
     au FileType makerlisp setlocal commentstring=;;\ %s
     au FileType puppet setlocal commentstring=#\ %s
+    au FileType snakemake setlocal commentstring=#\ %s
     au FileType nginx setlocal commentstring=#\ %s
     au FileType fish setlocal commentstring=#\ %s
     au FileType gnuplot setlocal commentstring=#\ %s