diff options
author | Michal Minář <mic.liamg@gmail.com> | 2017-02-13 08:23:55 +0100 |
---|---|---|
committer | Michal Minář <mic.liamg@gmail.com> | 2017-02-13 08:23:55 +0100 |
commit | 4c9b1beab21ab915f623c2f8b91190af627a8320 (patch) | |
tree | 5d86d14c10e6196a4efc61f7f92e6ef57e7a349a | |
parent | a3f4c3b13592161ce759aa3b587a20240ef5eb44 (diff) | |
download | xminad-4c9b1beab21ab915f623c2f8b91190af627a8320.tar.gz xminad-4c9b1beab21ab915f623c2f8b91190af627a8320.tar.xz xminad-4c9b1beab21ab915f623c2f8b91190af627a8320.zip |
Signed-off-by: Michal Minář <mic.liamg@gmail.com>
-rw-r--r-- | src/XMonad/Local/ManageHook.hs | 1 | ||||
-rw-r--r-- | src/XMonad/Local/TopicSpace.hs | 7 |
2 files changed, 2 insertions, 6 deletions
diff --git a/src/XMonad/Local/ManageHook.hs b/src/XMonad/Local/ManageHook.hs index 156ac47..efcd0ab 100644 --- a/src/XMonad/Local/ManageHook.hs +++ b/src/XMonad/Local/ManageHook.hs @@ -60,6 +60,7 @@ manageHook = composeAll , [className =? "Atril" -?> doMyShift "pdf"] , [className =? "Thunderbird" -?> doMyShift "mail"] , [className =? "California" -?> doMyShift "calendar"] + , [className =? "korganizer" -?> 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 f3a03d7..8bc4c54 100644 --- a/src/XMonad/Local/TopicSpace.hs +++ b/src/XMonad/Local/TopicSpace.hs @@ -120,12 +120,7 @@ topicConfig = TS.def , ("witcher", spawn "wine 'C:/Program Files (x86)/Steam/Steam.exe' steam://rungameid/20900" >> spawn (browser ++ " --new-window http://slovnik.seznam.cz/de-cz/")) , ("drive", spawnShell Nothing >> spawnExplorerIn "~/gdrive") - , ("calendar", - spawn (browser ++ " --profile-directory=RedHat" ++ - " --app-id=ejjicmeblgpmajnghnpcppodonldlgfn" ++ - " --auth-server-whitelist=*.redhat.com") >> - spawn (browser ++ " --profile-directory=Default" ++ - " --app-id=ejjicmeblgpmajnghnpcppodonldlgfn")) + , ("calendar", spawn "korganizer") , ("mymoney", spawn "kmymoney")] ++ map (\w -> (w, spawnShell Nothing >> spawnShell Nothing)) [ "remote", "devel", "admin" ] |