From c6cc202ab95e6f199e63d59ea68d4bcb39940945 Mon Sep 17 00:00:00 2001
From: Bryson Steck <me@brysonsteck.xyz>
Date: Tue, 9 Apr 2024 18:29:39 -0600
Subject: redid bash config and update script, experimenting with doom emacs

---
 xmonad/xmonad.hs | 43 ++++++++++++++++++++++++++-----------------
 1 file changed, 26 insertions(+), 17 deletions(-)

(limited to 'xmonad')

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" ""
-- 
cgit v1.2.3