aboutsummaryrefslogtreecommitdiff
path: root/xmonad
diff options
context:
space:
mode:
authorBryson Steck <me@brysonsteck.xyz>2024-04-09 18:29:39 -0600
committerBryson Steck <me@brysonsteck.xyz>2024-04-09 18:29:39 -0600
commitc6cc202ab95e6f199e63d59ea68d4bcb39940945 (patch)
tree5b1c17cfa3eeea20b401b6dcf7b303a1556ab39d /xmonad
parentc1e3c46afdcb455175f0bb18b606f61c864d008a (diff)
downloaddotfiles-master.tar
dotfiles-master.tar.gz
dotfiles-master.tar.bz2
redid bash config and update script, experimenting with doom emacsHEADmaster
Diffstat (limited to 'xmonad')
-rw-r--r--xmonad/xmonad.hs43
1 files changed, 26 insertions, 17 deletions
diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs
index 0c55e5c..c356091 100644
--- a/xmonad/xmonad.hs
+++ b/xmonad/xmonad.hs
@@ -1,5 +1,7 @@
import XMonad
+import qualified XMonad.StackSet as W
+
import XMonad.Actions.UpdatePointer
import XMonad.Actions.CycleWS
import XMonad.Actions.DwmPromote
@@ -21,10 +23,12 @@ import XMonad.Layout.Grid
import XMonad.Util.Cursor
import XMonad.Util.EZConfig
import XMonad.Util.Loggers
-import XMonad.Util.Ungrab
import System.Exit (exitSuccess)
+dmenuFormatting :: String -> String
+dmenuFormatting command = command ++ " -fn 'JetBrains Mono NF:style=medium:size=11' -nb '#282828' -nf '#ebdbb2' -sb '#d3869b' -sf '#282828'"
+
main :: IO ()
main = xmonad
. ewmh
@@ -39,10 +43,12 @@ myConfig = def
, startupHook = setDefaultCursor xC_left_ptr -- sets the cursor
, handleEventHook = swallowEventHook (className =? "Alacritty") (return True) -- make alacritty swallowable
, workspaces = myWorkspaces -- workspace names
- , logHook = updatePointer (0.5, 0.5) (0, 0) -- warp pointer to center of window on focus
+ -- , logHook = dynamicLogWithPP myXmobarPP {
+ -- ppOutput = hPutStrLn description
+ -- } >> historyHook
, borderWidth = 2
- , normalBorderColor = "#3c3836"
- , focusedBorderColor = "#928374"
+ , normalBorderColor = "#282828"
+ , focusedBorderColor = "#fe8019"
}
`additionalKeysP`
[ -- executables
@@ -55,13 +61,15 @@ myConfig = def
, ("M-<F7>", spawn "brightness-down")
, ("M-<F8>", spawn "brightness-up")
, ("M-<F11>", spawn "screenshot")
- , ("M-p", spawn "dmenu_run_history -fn 'JetBrains Mono NF:style=medium:size=11' -nb '#3c3836' -nf '#ebdbb2' -sb '#504945' -sf '#ebdbb2'")
+ , ("M-p", spawn (dmenuFormatting "dmenu_run_history"))
, ("M-S-<Return>", spawn "spawn-alacritty")
+ , ("M-S-e", spawn "emac")
-- XMonad calls
, ("M-<Tab>", toggleWS)
, ("M-<Return>", dwmpromote)
-- layout jumps
- , ("M-t", sendMessage $ JumpToLayout "Normal")
+ , ("M-S-t", sendMessage $ JumpToLayout "Normal")
+ , ("M-a", sendMessage $ JumpToLayout "Accrdin")
-- rebound quit call
, ("M-S-<Backspace>", io exitSuccess)
]
@@ -75,33 +83,34 @@ myWorkspaces = [ "!", "@", "#", "$", "%", "^", "&", "*", "(" ]
myLayout = tiled ||| full ||| threeCol ||| accordion ||| grid
where
- tiled = renamed [Replace "Normal"] $ spaced $ Tall nmaster delta ratio
- full = renamed [Replace "Full"] $ spaced $ Full
- threeCol = renamed [Replace "ThreeCol"] $ spaced $ ThreeColMid nmaster delta ratio
- accordion = renamed [Replace "Accrdin"] $ spaced $ Accordion
- grid = renamed [Replace "Grid"] $ spaced $ Grid
+ tiled = renamed [Replace "Normal"] $ Tall nmaster delta ratio
+ full = renamed [Replace "Full"] $ Full
+ threeCol = renamed [Replace "ThreeCol"] $ ThreeColMid nmaster delta ratio
+ accordion = renamed [Replace "Accrdin"] $ Accordion
+ grid = renamed [Replace "Grid"] $ Grid
nmaster = 1 -- Default number of windows in the master pane
ratio = 6/10 -- Default proportion of screen occupied by master pane
delta = 2/100 -- Percent of screen to increment by when resizing panes
- spaced = spacing 2
+ -- spaced = spacing 0
myManageHook :: ManageHook
myManageHook = composeAll
- [ className =? "Gimp" --> doFloat
- , isDialog --> doFloat
+ [
+ -- className =? "Gimp" --> doFloat
+ isDialog --> doFloat
]
myXmobarPP :: PP
myXmobarPP = def
{ ppSep = magenta " • "
, ppTitleSanitize = xmobarStrip
- , ppCurrent = wrap "" "" . xmobarBorder "Top" "#8be9fd" 2
+ , ppCurrent = wrap "" "" . xmobarBorder "Top" "#83a598" 2
, ppUrgent = red . wrap (yellow "!") (yellow "!")
, ppOrder = \[ws, l, _, wins] -> [ws, l, wins]
, ppExtras = [logTitles formatFocused formatUnfocused]
}
where
- formatFocused = wrap (white "{") (white "}") . aqua . ppWindow . shorten 80
+ formatFocused = wrap (blue "{ ") (blue " }") . aqua . ppWindow . shorten 80
formatUnfocused = wrap (lowWhite "<") (lowWhite ">") . lowWhite . ppWindow . shorten 40
-- | Windows should have *some* title, which should not not exceed a
@@ -117,4 +126,4 @@ myXmobarPP = def
red = xmobarColor "#fb4934" ""
green = xmobarColor "#b8bb26" ""
lowWhite = xmobarColor "#a89984" ""
- aqua = xmobarColor "#8ec07c" "" \ No newline at end of file
+ aqua = xmobarColor "#8ec07c" ""