From 45fcba1681f4fda4f4ed380f00a8b6fbea681a59 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Mon, 11 Apr 2022 22:40:34 -0600
Subject: Add right click to move current window to a workspace.

---
 extras/HOME/.xmonad/build                     | 2 +-
 src/Rahm/Desktop/Layout/ReinterpretMessage.hs | 4 ++--
 src/Rahm/Desktop/XMobarLog.hs                 | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/extras/HOME/.xmonad/build b/extras/HOME/.xmonad/build
index 72b6310..484d580 100755
--- a/extras/HOME/.xmonad/build
+++ b/extras/HOME/.xmonad/build
@@ -14,4 +14,4 @@ fi
 
 cd "$olddir"
 
-ln -sf "$HOME/.local/bin/jrahm-xmonad" "$1"
+ln -sf "$HOME/.local/bin/rde" "$1"
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.
-- 
cgit