diff options
| author | Michal Minář <mic.liamg@gmail.com> | 2016-10-17 08:27:22 +0200 |
|---|---|---|
| committer | Michal Minář <mic.liamg@gmail.com> | 2016-12-12 16:29:48 +0100 |
| commit | 4571e822a32c1f04fd336c10cf696679fd42b093 (patch) | |
| tree | b83d6ffbcb806530190be43eb562a2294ed286fd | |
| parent | d03b2f19c558090ec7e432f5c5de047e76f97c40 (diff) | |
| download | xminad-4571e822a32c1f04fd336c10cf696679fd42b093.tar.gz xminad-4571e822a32c1f04fd336c10cf696679fd42b093.tar.xz xminad-4571e822a32c1f04fd336c10cf696679fd42b093.zip | |
virt workspace spawns virt-manager
Signed-off-by: Michal Minář <mic.liamg@gmail.com>
| -rw-r--r-- | src/XMonad/Local/TopicSpace.hs | 61 |
1 files changed, 33 insertions, 28 deletions
diff --git a/src/XMonad/Local/TopicSpace.hs b/src/XMonad/Local/TopicSpace.hs index 18e0c59..ca72b86 100644 --- a/src/XMonad/Local/TopicSpace.hs +++ b/src/XMonad/Local/TopicSpace.hs @@ -1,18 +1,20 @@ +{-# LANGUAGE UnicodeSyntax #-} + module XMonad.Local.TopicSpace ( topicConfig , topicDirs , workspaces ) where -import qualified Data.Map as M -import XMonad hiding (workspaces) +import qualified Data.Map as M +import XMonad hiding (workspaces) import qualified XMonad.Actions.TopicSpace as TS -- local modules ************************************************************** -import XMonad.Local.Actions -import XMonad.Local.Config +import XMonad.Local.Actions +import XMonad.Local.Config -tmuxProjects :: [WorkspaceId] +tmuxProjects ∷ [WorkspaceId] tmuxProjects = [ "distribution" , "docker" @@ -24,7 +26,7 @@ tmuxProjects = , "containers" ] -topicDirs :: M.Map WorkspaceId String +topicDirs ∷ M.Map WorkspaceId String topicDirs = M.fromList $ [ ("distribution", "~/wsp/rh/distribution") , ("docker" , "~/wsp/rh/docker") @@ -48,28 +50,30 @@ topicDirs = M.fromList $ , ("xminad" , "~/wsp/my/xminad") , ("xmonad" , "~/wsp/my/xminad") ] ++ map (\w -> (w, "~")) homeScoped - where - homeScoped = - [ "admin" - , "anki" - , "bank" - , "BG" - , "calendar" - , "ciV" - , "earth" - , "ebook" - , "gimp" - , "graphics" - , "incognito" - , "music" - , "p2p" - , "remote" - , "scrum" - , "web" - , "witcher" - ] -topicConfig :: TS.TopicConfig +homeScoped ∷ [String] +homeScoped = + [ "admin" + , "anki" + , "bank" + , "BG" + , "calendar" + , "ciV" + , "earth" + , "ebook" + , "gimp" + , "graphics" + , "incognito" + , "music" + , "p2p" + , "remote" + , "scrum" + , "virt" + , "web" + , "witcher" + ] + +topicConfig ∷ TS.TopicConfig topicConfig = TS.def { TS.topicDirs = topicDirs , TS.topicActions = M.fromList $ @@ -85,6 +89,7 @@ topicConfig = TS.def spawn "skype" >> spawn "telegram-desktop") , ("vbox", spawn "VirtualBox") + , ("virt", spawn "virt-manager") , ("gimp", spawn "gimp") , ("ebook", spawn "calibre") , ("video", spawn "smplayer") @@ -125,5 +130,5 @@ topicConfig = TS.def , TS.defaultTopic = "dashboard" } -workspaces :: [WorkspaceId] +workspaces ∷ [WorkspaceId] workspaces = ["dashboard", "devel"] |