--- 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")--- 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