afonso/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

[CLEANUP] Removed clickable from xmobar in xmonad config. Useless code

Browse source
This commit is contained in:
Afonso Franco 2023-01-21 22:00:40 +00:00
parent f6cd2eee6c
commit 5a2061646a
Signed by: afonso
GPG key ID: C459E0BB3DCEE899
1 changed files with 7 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
.config/xmonad/xmonad.lhs
View file

@ -89,8 +89,7 @@
Screenshot Screenshot
> , ("<Print>", spawn "flameshot screen") > , ("<Print>", spawn "flameshot gui")
> , ("S-<Print>", spawn "flameshot gui")
AUDIO CONTROLS AUDIO CONTROLS
@ -258,21 +257,6 @@ Percent of screen to increment by when resizing panes
\begin{code} \begin{code}
actionPrefix, actionButton, actionSuffix :: [Char]
actionPrefix = "<action=`xdotool key super+"
actionButton = "` button="
actionSuffix = "</action>"
addActions :: [(String, Int)] -> String -> String
addActions [] ws = ws
addActions (x:xs) ws = addActions xs (actionPrefix ++ k ++ actionButton ++ show b ++ ">" ++ ws ++ actionSuffix)
where k = fst x
b = snd x
clickable :: [Char] -> [Char] -> [Char]
clickable icon ws = addActions [ (show i, 1), ("q", 2), ("Left", 4), ("Right", 5) ] icon
where i = fromJust $ M.lookup ws myWorkspaceIndices
myStatusBarSpawner :: Applicative f => ScreenId -> f StatusBarConfig myStatusBarSpawner :: Applicative f => ScreenId -> f StatusBarConfig
myStatusBarSpawner (S s) = do myStatusBarSpawner (S s) = do
pure $ statusBarPropTo ("_XMONAD_LOG_" ++ show s) pure $ statusBarPropTo ("_XMONAD_LOG_" ++ show s)
@ -284,12 +268,12 @@ Percent of screen to increment by when resizing panes
myXmobarPP s = def myXmobarPP s = def
{ ppSep = "" { ppSep = ""
, ppWsSep = "" , ppWsSep = ""
, ppCurrent = xmobarColor cyan "" . clickable wsIconFull , ppCurrent = xmobarColor cyan "" . const wsIconFull
, ppVisible = xmobarColor grey4 "" . clickable wsIconFull , ppVisible = xmobarColor grey4 "" . const wsIconFull
, ppVisibleNoWindows = Just (xmobarColor grey4 "" . clickable wsIconFull) , ppVisibleNoWindows = Just (xmobarColor grey4 "" . const wsIconFull)
, ppHidden = xmobarColor grey2 "" . clickable wsIconHidden , ppHidden = xmobarColor grey2 "" . const wsIconHidden
, ppHiddenNoWindows = xmobarColor grey2 "" . clickable wsIconEmpty , ppHiddenNoWindows = xmobarColor grey2 "" . const wsIconEmpty
, ppUrgent = xmobarColor orange "" . clickable wsIconFull , ppUrgent = xmobarColor orange "" . const wsIconFull
, ppOrder = \(ws : _ : _ : extras) -> ws : extras , ppOrder = \(ws : _ : _ : extras) -> ws : extras
, ppExtras = [ wrapL " " " " $ layoutColorIsActive s (logLayoutOnScreen s) , ppExtras = [ wrapL " " " " $ layoutColorIsActive s (logLayoutOnScreen s)
,titleColorIsActive s (shortenL 81 $ logTitleOnScreen s) ,titleColorIsActive s (shortenL 81 $ logTitleOnScreen s)