From 515282378a35c6b19ed9add668c4b59733883683 Mon Sep 17 00:00:00 2001 From: Michal Minar Date: Sat, 25 Jun 2016 21:15:22 +0200 Subject: Added "drive" topic space Signed-off-by: Michal Minar --- src/XMonad/Local/Actions.hs | 2 +- src/XMonad/Local/TopicSpace.hs | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/XMonad/Local/Actions.hs b/src/XMonad/Local/Actions.hs index 5b8c86f..2688341 100644 --- a/src/XMonad/Local/Actions.hs +++ b/src/XMonad/Local/Actions.hs @@ -23,7 +23,7 @@ spawnExplorer = do spawnExplorerIn pth spawnExplorerIn :: String -> X () -spawnExplorerIn dir = spawnShellIn dir (Just Local.explorer) +spawnExplorerIn dir = spawn $ Local.explorer ++ " --no-desktop --browser " ++ dir spawnShell :: Maybe String -> X() spawnShell = spawnShellIn "" diff --git a/src/XMonad/Local/TopicSpace.hs b/src/XMonad/Local/TopicSpace.hs index 0d833e1..610303e 100644 --- a/src/XMonad/Local/TopicSpace.hs +++ b/src/XMonad/Local/TopicSpace.hs @@ -32,6 +32,7 @@ topicDirs = M.fromList $ , ("openshift" , "~/wsp/rh/openshift-origin") , ("osdocs" , "~/wsp/rh/openshift-docs") , ("k8s" , "~/wsp/rh/kubernetes") + , ("drive" , "~/gdrive") ] ++ map (\w -> (w, "~")) [ "music", "p2p", "gimp", "graphics" , "web", "remote", "earth", "bank", "admin", "ebook" @@ -88,6 +89,7 @@ topicConfig = TS.def spawn "firefox 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/") + , ("drive", spawnShell Nothing >> spawnExplorerIn "~/gdrive") , ("calendar", spawn ( "google-chrome-stable --profile-directory=RedHat" ++ -- cgit