forked from colonelpanic/dotfiles
[XMonad] Expose workspace names under a custom atom
This commit is contained in:
parent
2c43ff214c
commit
aba5a832f2
@ -82,7 +82,8 @@ myConfig = def
|
|||||||
, focusedBorderColor = "#ffff00"
|
, focusedBorderColor = "#ffff00"
|
||||||
, logHook =
|
, logHook =
|
||||||
updatePointer (0.5, 0.5) (0, 0) +++
|
updatePointer (0.5, 0.5) (0, 0) +++
|
||||||
toggleFadeInactiveLogHook 0.9 +++ workspaceHistoryHook
|
toggleFadeInactiveLogHook 0.9 +++ workspaceHistoryHook +++
|
||||||
|
setWorkspaceNames
|
||||||
, handleEventHook =
|
, handleEventHook =
|
||||||
fullscreenEventHook +++ followIfNoMagicFocus +++ minimizeEventHook
|
fullscreenEventHook +++ followIfNoMagicFocus +++ minimizeEventHook
|
||||||
, startupHook = myStartup
|
, startupHook = myStartup
|
||||||
@ -95,7 +96,10 @@ myNavigation2DConfig = def { defaultTiledNavigation = centerNavigation }
|
|||||||
|
|
||||||
main =
|
main =
|
||||||
xmonad .
|
xmonad .
|
||||||
docks . pagerHints . myEwmh . withNavigation2DConfig myNavigation2DConfig $
|
docks .
|
||||||
|
pagerHints .
|
||||||
|
ewmh .
|
||||||
|
withNavigation2DConfig myNavigation2DConfig $
|
||||||
myConfig
|
myConfig
|
||||||
|
|
||||||
-- Utility functions
|
-- Utility functions
|
||||||
@ -229,6 +233,10 @@ hostNameToAction =
|
|||||||
|
|
||||||
myStartup = do
|
myStartup = do
|
||||||
spawn "systemctl --user start wm.target"
|
spawn "systemctl --user start wm.target"
|
||||||
|
setWorkspaceName "1" "code"
|
||||||
|
setWorkspaceName "2" "doc"
|
||||||
|
setWorkspaceName "3" "browse"
|
||||||
|
setWorkspaceName "4" "watch"
|
||||||
hostName <- io getHostName
|
hostName <- io getHostName
|
||||||
M.findWithDefault (return ()) hostName hostNameToAction
|
M.findWithDefault (return ()) hostName hostNameToAction
|
||||||
|
|
||||||
@ -459,8 +467,9 @@ myReplaceWindow =
|
|||||||
|
|
||||||
-- Workspace Names for EWMH
|
-- Workspace Names for EWMH
|
||||||
|
|
||||||
mySetDesktopNames :: X ()
|
|
||||||
mySetDesktopNames = withWindowSet $ \s -> withDisplay $ \dpy -> do
|
setWorkspaceNames :: X ()
|
||||||
|
setWorkspaceNames = withWindowSet $ \s -> withDisplay $ \dpy -> do
|
||||||
sort' <- getSortByIndex
|
sort' <- getSortByIndex
|
||||||
let ws = sort' $ W.workspaces s
|
let ws = sort' $ W.workspaces s
|
||||||
tagNames = map W.tag ws
|
tagNames = map W.tag ws
|
||||||
@ -469,18 +478,11 @@ mySetDesktopNames = withWindowSet $ \s -> withDisplay $ \dpy -> do
|
|||||||
getFullName tag = printf "%s%s" tag <$> getName tag
|
getFullName tag = printf "%s%s" tag <$> getName tag
|
||||||
names <- mapM getFullName tagNames
|
names <- mapM getFullName tagNames
|
||||||
r <- asks theRoot
|
r <- asks theRoot
|
||||||
a <- getAtom "_NET_DESKTOP_NAMES"
|
a <- getAtom "_NET_DESKTOP_FULL_NAMES"
|
||||||
c <- getAtom "UTF8_STRING"
|
c <- getAtom "UTF8_STRING"
|
||||||
let names' = map fromIntegral $ concatMap ((++[0]) . UTF8String.encode) names
|
let names' = map fromIntegral $ concatMap ((++[0]) . UTF8String.encode) names
|
||||||
io $ changeProperty8 dpy r a c propModeReplace names'
|
io $ changeProperty8 dpy r a c propModeReplace names'
|
||||||
|
|
||||||
myEwmh :: XConfig a -> XConfig a
|
|
||||||
myEwmh c = c { startupHook = startupHook c +++ ewmhDesktopsStartup
|
|
||||||
, handleEventHook = handleEventHook c +++ ewmhDesktopsEventHook
|
|
||||||
, logHook = logHook c +++ mySetDesktopNames +++ ewmhDesktopsLogHook }
|
|
||||||
-- @@@ will fix this correctly later with the rewrite
|
|
||||||
where x +++ y = mappend y x
|
|
||||||
|
|
||||||
|
|
||||||
-- Toggleable fade
|
-- Toggleable fade
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user