Adding treeselect.
This commit is contained in:
parent
a5c86c514a
commit
629e829a16
|
@ -394,6 +394,8 @@ myKeys =
|
||||||
|
|
||||||
-- Tree Select
|
-- Tree Select
|
||||||
, ("M-S-t", treeselectAction tsDefaultConfig) -- tree select actions menu
|
, ("M-S-t", treeselectAction tsDefaultConfig) -- tree select actions menu
|
||||||
|
, ("C-t t", TS.treeselectWorkspace tsDefaultConfig myWorkspaces W.greedyView)
|
||||||
|
, ("C-t g", TS.treeselectWorkspace tsDefaultConfig myWorkspaces W.shift)
|
||||||
|
|
||||||
-- Windows navigation
|
-- Windows navigation
|
||||||
, ("M-m", windows W.focusMaster) -- Move focus to the master window
|
, ("M-m", windows W.focusMaster) -- Move focus to the master window
|
||||||
|
@ -449,6 +451,7 @@ myKeys =
|
||||||
, ("C-e m", spawn "emacsclient -c -a '' --eval '(mu4e)'") -- mu4e emacs email client
|
, ("C-e m", spawn "emacsclient -c -a '' --eval '(mu4e)'") -- mu4e emacs email client
|
||||||
, ("C-e n", spawn "emacsclient -c -a '' --eval '(elfeed)'") -- elfeed emacs rss client
|
, ("C-e n", spawn "emacsclient -c -a '' --eval '(elfeed)'") -- elfeed emacs rss client
|
||||||
, ("C-e s", spawn "emacsclient -c -a '' --eval '(eshell)'") -- eshell within emacs
|
, ("C-e s", spawn "emacsclient -c -a '' --eval '(eshell)'") -- eshell within emacs
|
||||||
|
, ("C-e t", spawn "emacsclient -c -a '' --eval '(+vterm/here nil)'") -- eshell within emacs
|
||||||
|
|
||||||
--- My Applications (Super+Alt+Key)
|
--- My Applications (Super+Alt+Key)
|
||||||
, ("M-M1-a", spawn (myTerminal ++ " -e ncpamixer"))
|
, ("M-M1-a", spawn (myTerminal ++ " -e ncpamixer"))
|
||||||
|
@ -502,14 +505,27 @@ xmobarEscape = concatMap doubleLts
|
||||||
doubleLts '<' = "<<"
|
doubleLts '<' = "<<"
|
||||||
doubleLts x = [x]
|
doubleLts x = [x]
|
||||||
|
|
||||||
myWorkspaces :: [String]
|
-- myWorkspaces :: [String]
|
||||||
myWorkspaces = clickable . map xmobarEscape
|
-- myWorkspaces = clickable . map xmobarEscape
|
||||||
$ ["dev", "www", "sys", "doc", "vbox", "chat", "mus", "vid", "gfx"]
|
-- $ ["dev", "www", "sys", "doc", "vbox", "chat", "mus", "vid", "gfx"]
|
||||||
where
|
-- where
|
||||||
clickable l = [ "<action=xdotool key super+" ++ show n ++ ">" ++ ws ++ "</action>" |
|
-- clickable l = [ "<action=xdotool key super+" ++ show n ++ ">" ++ ws ++ "</action>" |
|
||||||
(i,ws) <- zip [1..9] l,
|
-- (i,ws) <- zip [1..9] l,
|
||||||
let n = i ]
|
-- let n = i ]
|
||||||
|
|
||||||
|
myWorkspaces :: Forest String
|
||||||
|
myWorkspaces = [ Node "Browser" [] -- a workspace for your browser
|
||||||
|
, Node "Home" -- for everyday activity's
|
||||||
|
[ Node "1" [] -- with 4 extra sub-workspaces, for even more activity's
|
||||||
|
, Node "2" []
|
||||||
|
, Node "3" []
|
||||||
|
, Node "4" []
|
||||||
|
]
|
||||||
|
, Node "Programming" -- for all your programming needs
|
||||||
|
[ Node "Haskell" []
|
||||||
|
, Node "Docs" [] -- documentation
|
||||||
|
]
|
||||||
|
]
|
||||||
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
||||||
-- MANAGEHOOK
|
-- MANAGEHOOK
|
||||||
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
||||||
|
@ -525,15 +541,14 @@ myManageHook = composeAll
|
||||||
-- I'm doing it this way because otherwise I would have to write out
|
-- I'm doing it this way because otherwise I would have to write out
|
||||||
-- the full name of my clickable workspaces, which would look like:
|
-- the full name of my clickable workspaces, which would look like:
|
||||||
-- doShift "<action xdotool super+8>gfx</action>"
|
-- doShift "<action xdotool super+8>gfx</action>"
|
||||||
[ className =? "obs" --> doShift ( myWorkspaces !! 7)
|
[ className =? "obs" --> doShift ( "Browser")
|
||||||
, title =? "firefox" --> doShift ( myWorkspaces !! 1)
|
, title =? "firefox" --> doShift ( "Browser")
|
||||||
, title =? "qutebrowser" --> doShift ( myWorkspaces !! 1)
|
, title =? "qutebrowser" --> doShift ( "Browser")
|
||||||
, className =? "mpv" --> doShift ( myWorkspaces !! 7)
|
, className =? "vlc" --> doShift ( "Browser")
|
||||||
, className =? "vlc" --> doShift ( myWorkspaces !! 7)
|
, className =? "Gimp" --> doShift ( "Browser")
|
||||||
, className =? "Gimp" --> doShift ( myWorkspaces !! 8)
|
|
||||||
, className =? "Gimp" --> doFloat
|
, className =? "Gimp" --> doFloat
|
||||||
, title =? "Oracle VM VirtualBox Manager" --> doFloat
|
, title =? "Oracle VM VirtualBox Manager" --> doFloat
|
||||||
, className =? "Oracle VM VirtualBox Manager" --> doShift ( myWorkspaces !! 6)
|
, className =? "Oracle VM VirtualBox Manager" --> doShift ( "Browser")
|
||||||
, (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog
|
, (className =? "firefox" <&&> resource =? "Dialog") --> doFloat -- Float Firefox Dialog
|
||||||
] <+> namedScratchpadManageHook myScratchPads
|
] <+> namedScratchpadManageHook myScratchPads
|
||||||
|
|
||||||
|
@ -661,21 +676,21 @@ main = do
|
||||||
, terminal = myTerminal
|
, terminal = myTerminal
|
||||||
, startupHook = myStartupHook
|
, startupHook = myStartupHook
|
||||||
, layoutHook = myLayoutHook
|
, layoutHook = myLayoutHook
|
||||||
, workspaces = myWorkspaces
|
, workspaces = TS.toWorkspaces myWorkspaces
|
||||||
, borderWidth = myBorderWidth
|
, borderWidth = myBorderWidth
|
||||||
, normalBorderColor = myNormColor
|
, normalBorderColor = myNormColor
|
||||||
, focusedBorderColor = myFocusColor
|
, focusedBorderColor = myFocusColor
|
||||||
, logHook = dynamicLogWithPP xmobarPP
|
, logHook = dynamicLogWithPP $ xmobarPP
|
||||||
{ ppOutput = \x -> hPutStrLn xmproc0 x >> hPutStrLn xmproc1 x >> hPutStrLn xmproc2 x
|
{ ppOutput = \x -> hPutStrLn xmproc0 x >> hPutStrLn xmproc1 x >> hPutStrLn xmproc2 x
|
||||||
, ppCurrent = xmobarColor "#c3e88d" "" . wrap "[" "]" -- Current workspace in xmobar
|
, ppCurrent = xmobarColor "#c3e88d" "" . wrap "[" "]" -- Current workspace in xmobar
|
||||||
, ppVisible = xmobarColor "#c3e88d" "" -- Visible but not current workspace
|
, ppVisible = xmobarColor "#c3e88d" "" -- Visible but not current workspace
|
||||||
, ppHidden = xmobarColor "#82AAFF" "" . wrap "*" "" -- Hidden workspaces in xmobar
|
, ppHidden = xmobarColor "#82AAFF" "" . wrap "*" "" -- Hidden workspaces in xmobar
|
||||||
, ppHiddenNoWindows = xmobarColor "#F07178" "" -- Hidden workspaces (no windows)
|
, ppHiddenNoWindows = xmobarColor "#F07178" "" -- Hidden workspaces (no windows)
|
||||||
, ppTitle = xmobarColor "#d0d0d0" "" . shorten 60 -- Title of active window in xmobar
|
, ppTitle = xmobarColor "#d0d0d0" "" . shorten 60 -- Title of active window in xmobar
|
||||||
, ppSep = "<fc=#666666> | </fc>" -- Separators in xmobar
|
, ppSep = "<fc=#666666> | </fc>" -- Separators in xmobar
|
||||||
, ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!" -- Urgent workspace
|
, ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!" -- Urgent workspace
|
||||||
, ppExtras = [windowCount] -- # of windows current workspace
|
, ppExtras = [windowCount] -- # of windows current workspace
|
||||||
, ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t]
|
, ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t]
|
||||||
}
|
}
|
||||||
} `additionalKeysP` myKeys
|
} `additionalKeysP` myKeys
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue