From 5a72856253f50ca5ce5d21ab0687cb3028e8128a Mon Sep 17 00:00:00 2001
From: Solomon Laing <solomonlaing@protonmail.com>
Date: Sat, 12 Nov 2022 16:50:47 +1030
Subject: [PATCH] updates, minor, to xmonad/xmobar

---
 .config/xmobar/xmobarrc-main.hs   | 2 +-
 .config/xmobar/xmobarrc-single.hs | 2 +-
 .xmonad/xmonad.hs                 | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/.config/xmobar/xmobarrc-main.hs b/.config/xmobar/xmobarrc-main.hs
index bf70cfe..6538b20 100644
--- a/.config/xmobar/xmobarrc-main.hs
+++ b/.config/xmobar/xmobarrc-main.hs
@@ -13,7 +13,7 @@ Config {
    -- layout
    , sepChar =  "%"   -- delineator between plugin names and straight text
    , alignSep = "}{"  -- separator between left-right alignment
-   , template = " <action=`xdotool key super+a`><icon=haskell_20.xpm/></action> <fc=#bd93f9>%cpu% %memory%</fc> <action=`nm-connection-editor`>%network%</action> <action=`toggle-sink-mute`>%volume%</action> <fc=#6272a4>|</fc> %UnsafeStdinReader% }{ %keyboard% <fc=#6272a4>|</fc> %date% <fc=#6272a4>|</fc> %weather% <fc=#6272a4>|</fc> %updates% %trayerpad%"
+   , template = " <action=`xdotool key alt+a`><icon=haskell_20.xpm/></action> <fc=#bd93f9>%cpu% %memory%</fc> <action=`nm-connection-editor`>%network%</action> <action=`toggle-sink-mute`>%volume%</action> <fc=#6272a4>|</fc> %UnsafeStdinReader% }{ %keyboard% <fc=#6272a4>|</fc> %date% <fc=#6272a4>|</fc> %weather% <fc=#6272a4>|</fc> %updates% %trayerpad%"
 
    -- general behavior
    , lowerOnStart =     True   -- send to bottom of window stack on start
diff --git a/.config/xmobar/xmobarrc-single.hs b/.config/xmobar/xmobarrc-single.hs
index a8e1c2e..efe1481 100644
--- a/.config/xmobar/xmobarrc-single.hs
+++ b/.config/xmobar/xmobarrc-single.hs
@@ -14,7 +14,7 @@ Config {
    -- layout
    , sepChar =  "%"   -- delineator between plugin names and straight text
    , alignSep = "}{"  -- separator between left-right alignment
-   , template = "<action=`xdotool key super+a`><icon=haskell_20.xpm/></action> %bat% <fc=#bd93f9>%cpu% %memory%</fc> <action=`nm-connection-editor`>%network%</action> <action=`toggle-sink-mute`>%volume%</action> <fc=#6272a4>|</fc> %UnsafeStdinReader% }{ %keyboard% <fc=#6272a4>|</fc> %disk% <fc=#6272a4>|</fc> %date% <fc=#6272a4>|</fc> %updates% %trayerpad%"
+   , template = "<action=`xdotool key alt+a`><icon=haskell_20.xpm/></action> %bat% <fc=#bd93f9>%cpu% %memory%</fc> <action=`nm-connection-editor`>%network%</action> <action=`toggle-sink-mute`>%volume%</action> <fc=#6272a4>|</fc> %UnsafeStdinReader% }{ %keyboard% <fc=#6272a4>|</fc> %disk% <fc=#6272a4>|</fc> %date% <fc=#6272a4>|</fc> %updates% %trayerpad%"
 
    -- general behavior
    , lowerOnStart =     True   -- send to bottom of window stack on start
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 6c53951..ba9a165 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -177,7 +177,7 @@ myWorkspaces :: [String]
 myWorkspaces = ["web", "term", "dev", "doc", "task", "media", "sys", "chat", "mail"]
 myWorkspaceIndices = M.fromList $ zip myWorkspaces [1..] -- (,) == \x y -> (x,y)
 
-clickable ws = "<action=xdotool key super+"++show i++">"++ws++"</action>"
+clickable ws = "<action=xdotool key alt+"++show i++">"++ws++"</action>"
     where i = fromJust $ M.lookup ws myWorkspaceIndices