diff options
| author | Michal Minar <miminar@redhat.com> | 2016-07-09 22:53:15 +0200 |
|---|---|---|
| committer | Michal Minar <miminar@redhat.com> | 2016-07-09 22:53:15 +0200 |
| commit | 95f7634cdee9e068913677dd19395081c64fe1f9 (patch) | |
| tree | ed82f0d692f7705e6e7282f9d6d0ea6d24031d73 | |
| parent | d1be4407b6927b6f6d033cbd8ca9ea5fb9b1d974 (diff) | |
| download | xminad-95f7634cdee9e068913677dd19395081c64fe1f9.tar.gz xminad-95f7634cdee9e068913677dd19395081c64fe1f9.tar.xz xminad-95f7634cdee9e068913677dd19395081c64fe1f9.zip | |
Added incognito topic space
Signed-off-by: Michal Minar <miminar@redhat.com>
| -rw-r--r-- | src/XMonad/Local/Config.hs | 6 | ||||
| -rw-r--r-- | src/XMonad/Local/TopicSpace.hs | 18 |
2 files changed, 14 insertions, 10 deletions
diff --git a/src/XMonad/Local/Config.hs b/src/XMonad/Local/Config.hs index ecca2e4..f85174b 100644 --- a/src/XMonad/Local/Config.hs +++ b/src/XMonad/Local/Config.hs @@ -1,5 +1,6 @@ module XMonad.Local.Config ( - explorer + browser + , explorer , xpConfig , terminal , tabsOutlinerAppID @@ -26,6 +27,9 @@ xpConfig = P.def , P.height = 24 } +browser :: String +browser = "google-chrome-stable" + tabsOutlinerAppID :: String tabsOutlinerAppID = "eggkanocgddhmamlbiijnphhppkpkmkl" tabsOutlinerAppName :: String diff --git a/src/XMonad/Local/TopicSpace.hs b/src/XMonad/Local/TopicSpace.hs index f105e35..40294bc 100644 --- a/src/XMonad/Local/TopicSpace.hs +++ b/src/XMonad/Local/TopicSpace.hs @@ -10,6 +10,7 @@ import qualified XMonad.Actions.TopicSpace as TS -- local modules ************************************************************** import XMonad.Local.Actions +import XMonad.Local.Config topicDirs :: M.Map WorkspaceId String topicDirs = M.fromList $ @@ -37,7 +38,7 @@ topicDirs = M.fromList $ ] ++ map (\w -> (w, "~")) [ "music", "p2p", "gimp", "graphics" , "web", "remote", "earth", "bank", "admin", "ebook" - , "ciV", "scrum", "BG", "witcher", "calendar"] + , "ciV", "scrum", "BG", "witcher", "calendar", "incognito"] topicConfig :: TS.TopicConfig topicConfig = TS.def @@ -45,7 +46,7 @@ topicConfig = TS.def , TS.topicActions = M.fromList $ [ ("music", spawn "gmpc") , ("mail", spawn "thunderbird") - , ("web", spawn "google-chrome-stable --profile-directory=Default") + , ("web", spawn $ browser ++ " --profile-directory=Default") , ("firefox", spawn "firefox") , ("opera", spawn "opera") , ("pdf", spawn "atril") @@ -57,7 +58,7 @@ topicConfig = TS.def , ("gimp", spawn "gimp") , ("ebook", spawn "calibre") , ("video", spawn "smplayer") - , ("bank", spawn ("google-chrome-stable --profile-directory=Default" ++ + , ("bank", spawn (browser ++ " --profile-directory=Default" ++ " https://www.mojebanka.cz/InternetBanking/")) , ("p2p", spawn "deluge-gtk") , ("hwdata", @@ -85,18 +86,17 @@ topicConfig = TS.def spawnShellIn "~/wsp/go/kubernetes" (Just "bash --rcfile .bashrc")) , ("scripts", spawnShell Nothing >> spawnShell Nothing) , ("ciV", spawn "launch-ciV.sh -m -b") - , ("scrum", spawn "firefox --new-window https://bluejeans.com/3046463974/") + , ("scrum", spawn $ browser ++ " --new-window https://bluejeans.com/3046463974/") , ("BG", spawn "steam steam://rungameid/228280" >> - spawn "firefox http://slovnik.seznam.cz/de-cz/") + spawn (browser ++ " http://slovnik.seznam.cz/de-cz/")) , ("witcher", spawn "wine 'C:/Program Files (x86)/Steam/Steam.exe' steam://rungameid/20900" >> - spawn "firefox --new-window http://slovnik.seznam.cz/de-cz/") + spawn (browser ++ " --new-window http://slovnik.seznam.cz/de-cz/")) , ("drive", spawnShell Nothing >> spawnExplorerIn "~/gdrive") , ("calendar", - spawn ( - "google-chrome-stable --profile-directory=RedHat" ++ + spawn (browser ++ " --profile-directory=RedHat" ++ " --app-id=ejjicmeblgpmajnghnpcppodonldlgfn" ++ " --auth-server-whitelist=*.redhat.com") >> - spawn ("google-chrome-stable --profile-directory=Default" ++ + spawn (browser ++ " --profile-directory=Default" ++ " --app-id=ejjicmeblgpmajnghnpcppodonldlgfn")) , ("mymoney", spawn "kmymoney") ] ++ map (\w -> (w, spawnShell Nothing >> spawnShell Nothing)) |