diff options
| author | Michal Minar <miminar@redhat.com> | 2016-06-25 21:15:22 +0200 |
|---|---|---|
| committer | Michal Minar <miminar@redhat.com> | 2016-06-25 21:15:22 +0200 |
| commit | 515282378a35c6b19ed9add668c4b59733883683 (patch) | |
| tree | 4548576b0e162292bba896d00ed3f9790e2d816f | |
| parent | 31a2490bd2438a5f9d605c9744d40bc6896b3265 (diff) | |
| download | xminad-515282378a35c6b19ed9add668c4b59733883683.tar.gz xminad-515282378a35c6b19ed9add668c4b59733883683.tar.xz xminad-515282378a35c6b19ed9add668c4b59733883683.zip | |
Added "drive" topic space
Signed-off-by: Michal Minar <miminar@redhat.com>
| -rw-r--r-- | src/XMonad/Local/Actions.hs | 2 | ||||
| -rw-r--r-- | src/XMonad/Local/TopicSpace.hs | 2 |
2 files changed, 3 insertions, 1 deletions
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" ++ |