twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

Show error when using incorrect XConfig.workspaces

Browse Source
This commit is contained in:
Tom Smeets 2016-08-22 21:18:04 +02:00
parent 15a2a86d46
commit 529683660c
1 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
XMonad/Actions/TreeSelect.hs
View File

@ -64,6 +64,8 @@ import Data.List (find)
import Data.Maybe import Data.Maybe
import Data.Tree import Data.Tree
import Foreign import Foreign
import System.IO
import System.Posix.Process (forkProcess, executeFile)
import XMonad hiding (liftX) import XMonad hiding (liftX)
import XMonad.StackSet as W import XMonad.StackSet as W
import XMonad.Util.Font import XMonad.Util.Font
@ -366,12 +368,27 @@ treeselectWorkspace c xs f = do
-- They have to be set with 'toWorkspaces'! -- They have to be set with 'toWorkspaces'!
ws <- gets (W.workspaces . windowset) ws <- gets (W.workspaces . windowset)
-- convert the 'Forest WorkspaceId' to 'Forest (TSNode WorkspaceId)' -- check the 'XConfig.workspaces'
wsf <- forMForest (mkPaths xs) $ \(n, i) -> maybe (return (TSNode n "Does not exist!" "")) (mkNode n) (find (\w -> i == tag w) ws) if all (`elem` map tag ws) (toWorkspaces xs)
then do
-- convert the 'Forest WorkspaceId' to 'Forest (TSNode WorkspaceId)'
wsf <- forMForest (mkPaths xs) $ \(n, i) -> maybe (return (TSNode n "Does not exist!" "")) (mkNode n) (find (\w -> i == tag w) ws)
-- get the current workspace path -- get the current workspace path
me <- gets (W.tag . W.workspace . W.current . windowset) me <- gets (W.tag . W.workspace . W.current . windowset)
treeselectAt c (fromJust $ followPath tsn_name (splitPath me) $ fromForest wsf) >>= maybe (return ()) (windows . f) treeselectAt c (fromJust $ followPath tsn_name (splitPath me) $ fromForest wsf) >>= maybe (return ()) (windows . f)
else liftIO $ do
-- error!
let msg = unlines $ [ "Please add:"
, " workspaces = toWorkspaces myWorkspaces"
, "to your XMonad config!"
, ""
, "XConfig.workspaces: "
] ++ map tag ws
hPutStrLn stderr msg
_ <- forkProcess $ executeFile "xmessage" True [msg] Nothing
return ()
where where
mkNode n w = do mkNode n w = do
-- find the focused window's name on this workspace -- find the focused window's name on this workspace