More XMobar clickable elements.

2 files changed, 12 insertions, 7 deletions

diff --git a/extras/HOME/.xmonad/xmobar-logo b/extras/HOME/.xmonad/xmobar-logo
index aca1846..a1889f5 100755
--- a/extras/HOME/.xmonad/xmobar-logo
+++ b/extras/HOME/.xmonad/xmobar-logo
@@ -1,9 +1,13 @@
 #!/bin/bash
 
+function action {
+  echo '<action=`xdotool key 'Super_L+x' button=1`>'"$1"'</action>'
+}
+
 case "$(uname -a)" in
-  *-arch*) exec echo '<fn=5><fc=#1785bd></fc></fn>' ;;
-  *Debian*) exec echo '<fn=5><fc=#c00649></fc></fn>' ;;
-  *Ubuntu*) exec echo '<fn=5><fc=#ff8888></fc></fn>' ;;
-  *Linux*)  exec echo '<icon=/home/rahm/.xmonad/void.xpm/>' ;;
-  *BSD*)    exec echo '<fn=5><fc=#ff4444></fc></fn>' ;;
+  *-arch*) exec echo $(action '<fn=5><fc=#1785bd></fc></fn>') ;;
+  *Debian*) exec echo $(action '<fn=5><fc=#c00649></fc></fn>') ;;
+  *Ubuntu*) exec echo $(action '<fn=5><fc=#ff8888></fc></fn>') ;;
+  *Linux*)  exec echo $(action '<icon=/home/rahm/.xmonad/void.xpm/>') ;;
+  *BSD*)    exec echo $(action '<fn=5><fc=#ff4444></fc></fn>') ;;
 esac
diff --git a/src/Rahm/Desktop/XMobarLog.hs b/src/Rahm/Desktop/XMobarLog.hs
index 21464e9..ea71ef2 100644
--- a/src/Rahm/Desktop/XMobarLog.hs
+++ b/src/Rahm/Desktop/XMobarLog.hs
@@ -140,8 +140,9 @@ xMobarLogHook = do
     toChangeLayoutAction :: String -> String
     toChangeLayoutAction =
       printf
-        "<action=`xdotool key Super_L+space n` button=1>\
-        \<action=`xdotool key p` button=3>%s</action></action>"
+        "<action=`xdotool key --delay 50 'Super_L+space' 'Super_L+n'` button=1>\
+        \<action=`xdotool key --delay 50 'Super_L+space' 'Super_L+p'` button=3>\
+        \%s</action></action>"
 
     logLevelToXMobar Trace = "<fn=3><fc=#88ffff>[Trace]</fc></fn>   "
     logLevelToXMobar Debug = "<fn=3><fc=#ff88ff>[Debug]</fc></fn>   "