Snoooopy/dtos-dotfiles
1
0
Fork 0
mirror of https://gitlab.com/dwt1/dotfiles.git synced 2026-04-23 19:40:24 +10:00
Code Issues Packages Projects Releases Wiki Activity

Edited comments regarding managehooks.

Browse Source
This commit is contained in:
Derek Taylor
2020-05-21 12:13:45 -05:00
parent 63e1764ba7
commit c717d4d1d9
1 changed files with 33 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
.xmonad/xmonad.hs
View File

@@ -15,8 +15,9 @@ import qualified XMonad.StackSet as W
-- Prompt -- Prompt
import XMonad.Prompt import XMonad.Prompt
import XMonad.Prompt.Shell (shellPrompt)
import XMonad.Prompt.Man import XMonad.Prompt.Man
import XMonad.Prompt.Pass
import XMonad.Prompt.Shell (shellPrompt)
import XMonad.Prompt.Ssh import XMonad.Prompt.Ssh
import Control.Arrow ((&&&),first) import Control.Arrow ((&&&),first)
@@ -24,7 +25,7 @@ import Control.Arrow ((&&&),first)
import Data.List import Data.List
import Data.Monoid import Data.Monoid
import Data.Maybe (isJust) import Data.Maybe (isJust)
import qualified Data.Map as M import qualified Data.Map as M
-- Utilities -- Utilities
import XMonad.Util.Loggers import XMonad.Util.Loggers
@@ -169,24 +170,24 @@ dtXPKeymap = M.fromList $
-- XPROMPT SETTINGS -- XPROMPT SETTINGS
------------------------------------------------------------------------ ------------------------------------------------------------------------
dtXPConfig = def dtXPConfig = def
{ font = "xft:Mononoki Nerd Font:size=9" { font = "xft:Mononoki Nerd Font:size=9"
, bgColor = "#292d3e" , bgColor = "#292d3e"
, fgColor = "#d0d0d0" , fgColor = "#d0d0d0"
, bgHLight = "#c792ea" , bgHLight = "#c792ea"
, fgHLight = "#000000" , fgHLight = "#000000"
, borderColor = "#535974" , borderColor = "#535974"
, promptBorderWidth = 1 , promptBorderWidth = 1
, promptKeymap = dtXPKeymap , promptKeymap = dtXPKeymap
, position = Top , position = Top
, height = 20 , height = 20
, historySize = 256 , historySize = 256
, historyFilter = id , historyFilter = id
, defaultText = [] , defaultText = []
, autoComplete = Just 100000 -- set Just 100000 for .1 sec , autoComplete = Just 100000 -- set Just 100000 for .1 sec
, showCompletionOnTab = True , showCompletionOnTab = True
, searchPredicate = isPrefixOf , searchPredicate = isPrefixOf
, alwaysHighlight = True , alwaysHighlight = True
, maxComplRows = Just 5 -- set to Just 5 for 5 rows , maxComplRows = Nothing -- set to Just 5 for 5 rows
} }
------------------------------------------------------------------------ ------------------------------------------------------------------------
@@ -202,6 +203,10 @@ myKeys =
, ("M-S-<Return>", shellPrompt dtXPConfig) -- Shell Prompt , ("M-S-<Return>", shellPrompt dtXPConfig) -- Shell Prompt
, ("M-S-s", sshPrompt dtXPConfig) -- Ssh Prompt , ("M-S-s", sshPrompt dtXPConfig) -- Ssh Prompt
, ("M-S-m", manPrompt dtXPConfig) -- Manpage Prompt , ("M-S-m", manPrompt dtXPConfig) -- Manpage Prompt
-- Requires pass to be installed
, ("M1-C-p", passPrompt dtXPConfig) -- Get Passwords Prompt
, ("M1-C-g", passGeneratePrompt dtXPConfig) -- Generate Passwords Prompt
, ("M1-C-r", passRemovePrompt dtXPConfig) -- Remove Passwords Prompt
-- Windows -- Windows
, ("M-S-c", kill1) -- Kill the currently focused client , ("M-S-c", kill1) -- Kill the currently focused client
@@ -302,7 +307,7 @@ myKeys =
, ("M1-C-e", spawn "./.dmenu/dmenu-edit-configs.sh") , ("M1-C-e", spawn "./.dmenu/dmenu-edit-configs.sh")
, ("M1-C-h", spawn "./.dmenu/dmenu-hugo.sh") , ("M1-C-h", spawn "./.dmenu/dmenu-hugo.sh")
, ("M1-C-m", spawn "./.dmenu/dmenu-sysmon.sh") , ("M1-C-m", spawn "./.dmenu/dmenu-sysmon.sh")
, ("M1-C-p", spawn "passmenu") --, ("M1-C-p", spawn "passmenu")
, ("M1-C-s", spawn "./.dmenu/dmenu-surfraw.sh") , ("M1-C-s", spawn "./.dmenu/dmenu-surfraw.sh")
, ("M1-C-/", spawn "./.dmenu/dmenu-scrot.sh") , ("M1-C-/", spawn "./.dmenu/dmenu-scrot.sh")
@@ -388,15 +393,14 @@ myLayoutHook = avoidStruts $ mouseResize $ windowArrange $ T.toggleLayouts float
where where
myDefaultLayout = tall ||| grid ||| threeCol ||| threeRow ||| oneBig ||| noBorders monocle ||| space ||| floats myDefaultLayout = tall ||| grid ||| threeCol ||| threeRow ||| oneBig ||| noBorders monocle ||| space ||| floats
tall = renamed [Replace "tall"] $ limitWindows 12 $ spacing 6 $ ResizableTall 1 (3/100) (1/2) []
tall = renamed [Replace "tall"] $ limitWindows 12 $ spacing 6 $ ResizableTall 1 (3/100) (1/2) [] grid = renamed [Replace "grid"] $ limitWindows 12 $ spacing 6 $ mkToggle (single MIRROR) $ Grid (16/10)
grid = renamed [Replace "grid"] $ limitWindows 12 $ spacing 6 $ mkToggle (single MIRROR) $ Grid (16/10) threeCol = renamed [Replace "threeCol"] $ limitWindows 3 $ ThreeCol 1 (3/100) (1/2)
threeCol = renamed [Replace "threeCol"] $ limitWindows 3 $ ThreeCol 1 (3/100) (1/2) threeRow = renamed [Replace "threeRow"] $ limitWindows 3 $ Mirror $ mkToggle (single MIRROR) zoomRow
threeRow = renamed [Replace "threeRow"] $ limitWindows 3 $ Mirror $ mkToggle (single MIRROR) zoomRow oneBig = renamed [Replace "oneBig"] $ limitWindows 6 $ Mirror $ mkToggle (single MIRROR) $ mkToggle (single REFLECTX) $ mkToggle (single REFLECTY) $ OneBig (5/9) (8/12)
oneBig = renamed [Replace "oneBig"] $ limitWindows 6 $ Mirror $ mkToggle (single MIRROR) $ mkToggle (single REFLECTX) $ mkToggle (single REFLECTY) $ OneBig (5/9) (8/12) monocle = renamed [Replace "monocle"] $ limitWindows 20 $ Full
monocle = renamed [Replace "monocle"] $ limitWindows 20 $ Full space = renamed [Replace "space"] $ limitWindows 4 $ spacing 12 $ Mirror $ mkToggle (single MIRROR) $ mkToggle (single REFLECTX) $ mkToggle (single REFLECTY) $ OneBig (2/3) (2/3)
space = renamed [Replace "space"] $ limitWindows 4 $ spacing 12 $ Mirror $ mkToggle (single MIRROR) $ mkToggle (single REFLECTX) $ mkToggle (single REFLECTY) $ OneBig (2/3) (2/3) floats = renamed [Replace "floats"] $ limitWindows 20 $ simplestFloat
floats = renamed [Replace "floats"] $ limitWindows 20 $ simplestFloat
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- SCRATCHPADS -- SCRATCHPADS