From 288ccb3984c7cb46b67d0f6bf7fb6d53c5d7a2d3 Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 13 Dec 2025 23:43:10 -0500 Subject: guix: full refactor of configuration structure --- .config/eww/scripts/update_x_names | 33 --------------------------------- 1 file changed, 33 deletions(-) delete mode 100755 .config/eww/scripts/update_x_names (limited to '.config/eww/scripts/update_x_names') diff --git a/.config/eww/scripts/update_x_names b/.config/eww/scripts/update_x_names deleted file mode 100755 index 63117ef..0000000 --- a/.config/eww/scripts/update_x_names +++ /dev/null @@ -1,33 +0,0 @@ -#!/run/current-system/profile/bin/guile \ --s -!# - -(use-modules (ice-9 popen) - (ice-9 textual-ports) - (ice-9 rdelim)) - -(define cmd "wmctrl -l | awk -v ws=\"$(wmctrl -d | awk '$2 == \"*\" {print $1}')\" '$2 == ws {print}' | cut -d ' ' -f 5-") - -(define box-attrs '(:class "classes" - :orientation "h" - :valign "center" - :halign "start" - :space-evenly "false")) - -(define titles - (let* ((process (open-pipe* OPEN_READ "sh" "-c" cmd)) - (output (get-string-all process))) - (close-pipe process) - output)) - -(define labels - (map (lambda (t) `(eventbox - :onclick ,(string-concatenate `("wmctrl -a \"" ,t "\"")) - (label :class "class" - :text ,t - :truncate true - :valign "center"))) - (filter (lambda (s) (not (string=? s ""))) - (string-split titles #\newline)))) - -(write `(box ,@box-attrs ,@labels)) -- cgit v1.2.3