Add right click to move current window to a workspace.

2 files changed, 3 insertions, 3 deletions

diff --git a/src/Rahm/Desktop/Layout/ReinterpretMessage.hs b/src/Rahm/Desktop/Layout/ReinterpretMessage.hs
index 98bf779..8f6a78d 100644
--- a/src/Rahm/Desktop/Layout/ReinterpretMessage.hs
+++ b/src/Rahm/Desktop/Layout/ReinterpretMessage.hs
@@ -20,7 +20,7 @@ class DoReinterpret (k :: t) where
 -- Data construct for association a DoReinterpret function with a concrete
 -- construct that can be used in the LayoutModifier instance.
 --
--- It wolud be nice to have ReinterpretMessage hold the function as a value
+-- It would be nice to have ReinterpretMessage hold the function as a value
 -- rather than delegate to this kind-instance, however, it won't work because
 -- LayoutModifiers have to be Read-able and Show-able, and functions are neither
 -- of those, so a value-level function may not be a member of a LayoutModifier,
@@ -35,7 +35,7 @@ instance (DoReinterpret k) =>
 
   handleMessOrMaybeModifyIt self message = do
 
-    -- Delegates to the reinterpretMessage function associatied with the
+    -- Delegates to the reinterpretMessage function associated with the
     -- type-variable k.
     newMessage <- reinterpretMessage (ofProxy self) message
     case newMessage of
diff --git a/src/Rahm/Desktop/XMobarLog.hs b/src/Rahm/Desktop/XMobarLog.hs
index 0f67ed4..4b266c1 100644
--- a/src/Rahm/Desktop/XMobarLog.hs
+++ b/src/Rahm/Desktop/XMobarLog.hs
@@ -65,7 +65,7 @@ xMobarLogHook (XMobarLog xmproc) = do
     toAction [ch] | (ch >= 'A' && ch <= 'Z') ||
                     (ch >= 'a' && ch <= 'z') ||
                     (ch >= '0' && ch <= '9') =
-                      printf "<action=`xdotool key 'Hyper_L+g' '%s'`>%s</action>" [ch] [ch]
+                      printf "<action=`xdotool key 'Hyper_L+g' '%s'` button=1><action=`xdotool key 'Hyper_L+Shift_L+g' '%s'` button=3>%s</action></action>" [ch] [ch] [ch]
     toAction ch = ch
 
 -- Truncate an XMobar string to the provided number of _visible_ characters.