diff options
Diffstat (limited to 'src/XMonad/Local/TopicSpace.hs')
-rw-r--r-- | src/XMonad/Local/TopicSpace.hs | 48 |
1 files changed, 26 insertions, 22 deletions
diff --git a/src/XMonad/Local/TopicSpace.hs b/src/XMonad/Local/TopicSpace.hs index 93da894..e2ab5b0 100644 --- a/src/XMonad/Local/TopicSpace.hs +++ b/src/XMonad/Local/TopicSpace.hs @@ -1,16 +1,17 @@ module XMonad.Local.TopicSpace ( topicConfig , topicDirs + , workspaces ) where import qualified Data.Map as M -import XMonad +import qualified XMonad as X import qualified XMonad.Actions.TopicSpace as TS -- local modules ************************************************************** import XMonad.Local.Actions -topicDirs :: M.Map WorkspaceId String +topicDirs :: M.Map X.WorkspaceId String topicDirs = M.fromList $ [ ("dashboard" , "~") , ("xmonad" , "~/.xmonad") @@ -45,21 +46,21 @@ topicConfig :: TS.TopicConfig topicConfig = TS.defaultTopicConfig { TS.topicDirs = topicDirs , TS.topicActions = M.fromList $ - [ ("music", spawn "gmpc") - -- ("music", spawn $ myTerminal ++ " -depth 32 -bg rgba:0000/0000/0000/7777 -fg white -e ncmpcpp") - , ("mail", spawn "thunderbird") - , ("web", spawn "google-chrome") - , ("firefox", spawn "firefox") - , ("opera", spawn "opera") - , ("pdf", spawn "atril") - , ("chat", spawn "xchat" >> spawn "pidgin") + [ ("music", X.spawn "gmpc") + -- ("music", X.spawn $ myTerminal ++ " -depth 32 -bg rgba:0000/0000/0000/7777 -fg white -e ncmpcpp") + , ("mail", X.spawn "thunderbird") + , ("web", X.spawn "google-chrome") + , ("firefox", X.spawn "firefox") + , ("opera", X.spawn "opera") + , ("pdf", X.spawn "atril") + , ("chat", X.spawn "xchat" >> X.spawn "pidgin") , ("admin", spawnShell Nothing >> spawnShell Nothing) - , ("virt", spawn "virt-manager") - , ("vbox", spawn "VirtualBox") - , ("gimp", spawn "gimp") - , ("eclipse", spawn "eclipse") - , ("ebook", spawn "calibre") - , ("video", spawn "vlc") + , ("virt", X.spawn "virt-manager") + , ("vbox", X.spawn "VirtualBox") + , ("gimp", X.spawn "gimp") + , ("eclipse", X.spawn "eclipse") + , ("ebook", X.spawn "calibre") + , ("video", X.spawn "vlc") , ("xmonad", spawnShell (Just "vim -S xmonad.vim") >> spawnShell Nothing) , ("remote", spawnShell Nothing >> spawnShell Nothing) @@ -68,8 +69,8 @@ topicConfig = TS.defaultTopicConfig , ("providers", spawnShell Nothing >> spawnShell Nothing) , ("cim", spawnShell Nothing >> spawnShellIn "/usr/lib/python2.7/site-packages/pywbem" Nothing) - , ("bank", spawn "google-chrome https://www.mojebanka.cz/InternetBanking/") - , ("p2p", spawn "deluge-gtk") + , ("bank", X.spawn "google-chrome https://www.mojebanka.cz/InternetBanking/") + , ("p2p", X.spawn "deluge-gtk") , ("hwdata", spawnShell Nothing >> spawnShellIn "~/fedora-scm/hwdata" Nothing >> @@ -82,12 +83,15 @@ topicConfig = TS.defaultTopicConfig , ("distribution", spawnShell Nothing >> spawnShell Nothing >> spawnShellIn "~/workspace/go/distribution" (Just "bash --rcfile .bashrc")) , ("scripts", spawnShell Nothing >> spawnShell Nothing) - , ("ciV", spawn "launch-ciV.sh -m -b") - , ("scrum", spawn "firefox https://bluejeans.com/3046463974/") - , ("BG", spawn "steam steam://rungameid/228280" >> - spawn "firefox http://slovnik.seznam.cz/de-cz/") + , ("ciV", X.spawn "launch-ciV.sh -m -b") + , ("scrum", X.spawn "firefox https://bluejeans.com/3046463974/") + , ("BG", X.spawn "steam steam://rungameid/228280" >> + X.spawn "firefox http://slovnik.seznam.cz/de-cz/") ] ++ map (\w -> (w, spawnShell Nothing >> spawnShell Nothing)) [ "ae", "aet", "aes", "aea" ] , TS.defaultTopicAction = const $ return () , TS.defaultTopic = "dashboard" } + +workspaces :: [X.WorkspaceId] +workspaces = ["dashboard", "devel"] |