diff options
| author | Michal Minar <miminar@redhat.com> | 2015-10-02 18:08:37 +0200 |
|---|---|---|
| committer | Michal Minar <miminar@redhat.com> | 2015-10-02 18:11:27 +0200 |
| commit | 85af829e90808e17944cb3a9416f58dcdd7cb6d8 (patch) | |
| tree | 43f29ccafa974a016e9edddd35d152ec9706f0f8 | |
| parent | 21ed83e0bc52102f3a31b17b42341ca9f7f8dd37 (diff) | |
| download | xminad-85af829e90808e17944cb3a9416f58dcdd7cb6d8.tar.gz xminad-85af829e90808e17944cb3a9416f58dcdd7cb6d8.tar.xz xminad-85af829e90808e17944cb3a9416f58dcdd7cb6d8.zip | |
Added calendar workspace
Signed-off-by: Michal Minar <miminar@redhat.com>
| -rw-r--r-- | src/XMonad/Local/ManageHook.hs | 1 | ||||
| -rw-r--r-- | src/XMonad/Local/TopicSpace.hs | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/src/XMonad/Local/ManageHook.hs b/src/XMonad/Local/ManageHook.hs index efced4c..3c46d28 100644 --- a/src/XMonad/Local/ManageHook.hs +++ b/src/XMonad/Local/ManageHook.hs @@ -51,6 +51,7 @@ manageHook = composeOne (concat , [className =? "Evince" -?> doMyShift "pdf" ] , [className =? "Atril" -?> doMyShift "pdf" ] , [className =? "Thunderbird" -?> doMyShift "mail"] + , [className =? "California" -?> doMyShift "calendar"] , [className =? "Gimp" -?> doMyShift "gimp"] , [className =? "Virt-manager" -?> doMyShift "virt"] , [className =? "VirtualBox" -?> doMyShift "vbox"] diff --git a/src/XMonad/Local/TopicSpace.hs b/src/XMonad/Local/TopicSpace.hs index fc5a65e..43683b5 100644 --- a/src/XMonad/Local/TopicSpace.hs +++ b/src/XMonad/Local/TopicSpace.hs @@ -41,7 +41,7 @@ topicDirs = M.fromList $ ] ++ map (\w -> (w, "~")) [ "music", "p2p", "gimp", "graphics" , "web", "remote", "earth", "bank", "admin", "ebook" - , "ciV", "scrum", "BG"] + , "ciV", "scrum", "BG", "calendar"] topicConfig :: TS.TopicConfig topicConfig = TS.defaultTopicConfig @@ -94,6 +94,7 @@ topicConfig = TS.defaultTopicConfig , ("scrum", spawn "firefox https://bluejeans.com/3046463974/") , ("BG", spawn "steam steam://rungameid/228280" >> spawn "firefox http://slovnik.seznam.cz/de-cz/") + , ("calendar", spawn "california") ] ++ map (\w -> (w, spawnShell Nothing >> spawnShell Nothing)) [ "ae", "aet", "aes", "aea" ] , TS.defaultTopicAction = const $ return () |