# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1663692794 14400
# Node ID 746ca2de75033911a1b5c72584b2d09ad92a363e
# Parent  b038c1a8cdd8725390c648fb66367f734e01cf8a
More

diff -r b038c1a8cdd8 -r 746ca2de7503 stumpwmrc
--- a/stumpwmrc	Tue Sep 13 13:24:00 2022 -0400
+++ b/stumpwmrc	Tue Sep 20 12:53:14 2022 -0400
@@ -441,7 +441,10 @@
   (show-window-properties))
 
 (defcommand rain () ()
-  (message (run-shell-command "weather -H 36" t)))
+  (_ '("/home/sjl/src/dotfiles/lisp/bin/weather" "-H" "36")
+    (losh:sh _ :result-type 'list)
+    (mapcar (lambda (line) (ppcre:regex-replace " 1[0-9]:00 " line "^6\\&^*")) _)
+    (message "~{~A~^~%~}" _)))
 
 (defcommand mark (thing) ((:string "Mark: "))
   (run-shell-command (format nil "mark ~A" thing)))
@@ -932,3 +935,11 @@
 #;;; Scratch ------------------------------------------------------------------
 (message (format nil "~S" (remove #\newline (run-shell-command "acpi" t))))
 
+
+(defparameter *s*
+  (losh:sh '("/home/sjl/src/dotfiles/lisp/bin/weather" "-H" "36") :result-type 'list))
+
+(loop :for line :in *s* :collect
+      (ppcre:regex-replace " 1[0-9]:00 " line "^2\\&^*"))
+
+(message "^8foo")
diff -r b038c1a8cdd8 -r 746ca2de7503 xsessionrc
--- a/xsessionrc	Tue Sep 13 13:24:00 2022 -0400
+++ b/xsessionrc	Tue Sep 20 12:53:14 2022 -0400
@@ -23,5 +23,9 @@
 
 # /usr/bin/dunst -config $HOME/.dunstrc &
 
+# Fix the fucking GTK scrolling bullshit
+# God bless you https://mmk2410.org/2018/02/15/scrolling-doesnt-work-in-gtk-3-apps-in-stumpwm/
+export GDK_CORE_DEVICE_EVENTS=1
+
 # exec gpg-agent --daemon --enable-ssh-support /usr/local/bin/stumpwm
 exec /usr/local/bin/stumpwm > .stump-xsession-log.out 2> .stump-xsession-log.err