Rename dzen selection to workspaceWheel

1 files changed, 11 insertions, 11 deletions

diff --git a/src/Rahm/Desktop/WorkspaceWheel.hs b/src/Rahm/Desktop/WorkspaceWheel.hs
index d8f6dfd..eef0ccc 100644
--- a/src/Rahm/Desktop/WorkspaceWheel.hs
+++ b/src/Rahm/Desktop/WorkspaceWheel.hs
@@ -30,8 +30,8 @@ dzenSize = 100
 
 data ScreenType = Current | Visible | Hidden
 
-displayDzenSelection :: X ()
-displayDzenSelection = uncurry displayDzenSelectionAtPoint =<< pointerLocation
+displayWorkspaceWheel :: X ()
+displayWorkspaceWheel = uncurry displayWorkspaceWheelAtPoint =<< pointerLocation
 
 data Ring a = Ring [a] (Maybe a) [a]
 
@@ -52,18 +52,18 @@ ringPrev :: Ring a -> Ring a
 ringPrev (Ring (p : ps) Nothing ns) = Ring ps (Just p) ns
 ringPrev (Ring (p : ps) (Just a) ns) = Ring ps (Just p) (a : ns)
 
-displayDzenSelectionInCenter :: X ()
-displayDzenSelectionInCenter =
+displayWorkspaceWheelInCenter :: X ()
+displayWorkspaceWheelInCenter =
   mapM_
     ( \(W.screenDetail -> (SD (Rectangle x y w h))) ->
-        displayDzenSelectionAtPoint
+        displayWorkspaceWheelAtPoint
           (fromIntegral $ x + (fromIntegral w `div` 2))
           (fromIntegral $ y + (fromIntegral h `div` 2))
     )
     =<< pointerScreen
 
-displayDzenSelectionAtPoint :: Int -> Int -> X ()
-displayDzenSelectionAtPoint px py = do
+displayWorkspaceWheelAtPoint :: Int -> Int -> X ()
+displayWorkspaceWheelAtPoint px py = do
   click
 
   (W.StackSet cur vis other _floating) <- gets windowset
@@ -99,7 +99,7 @@ displayDzenSelectionAtPoint px py = do
                   if
                     | b == button1 -> do
                         gotoWorkspace ws
-                        return (displayDzenSelectionAtPoint px py)
+                        return (displayWorkspaceWheelAtPoint px py)
                     | b == button3 -> do
                         selection <- getAndResetWindowSelectionOrCurrent
                         withWindowsUnpinned selection $
@@ -107,7 +107,7 @@ displayDzenSelectionAtPoint px py = do
                             appEndo $
                               mconcat (map (Endo . W.shiftWin ws) selection)
 
-                        return (displayDzenSelectionAtPoint px py)
+                        return (displayWorkspaceWheelAtPoint px py)
                     | b == 13 -> do
                         winSet <- gets windowset
                         let mWs = find ((== ws) . W.tag) (W.workspaces winSet)
@@ -125,7 +125,7 @@ displayDzenSelectionAtPoint px py = do
                                 map (Endo . W.delete) allWindows
 
                         X.refresh
-                        return (displayDzenSelectionAtPoint px py)
+                        return (displayWorkspaceWheelAtPoint px py)
                     | otherwise -> return stop
                 Nothing -> return stop
           Just (KeyPress _ sym _ _) -> do
@@ -224,7 +224,7 @@ displayDzenSelectionAtPoint px py = do
       pipe <-
         spawnPipe
           ( printf
-              "dzen2 -fn \"Monofur Nerd Font:size=15:style=bold\" -x %d -y %d -w %d -h %d -bg '#222' -fg '%s'"
+              "dzen2 -fn \"Monofur Nerd Font:size=15\" -x %d -y %d -w %d -h %d -bg '#222' -fg '%s'"
               x
               y
               w