diff options
| -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" ] |