colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Change themes

Browse Source
This commit is contained in:
Ivan Malison 2021-08-03 11:30:19 -06:00
parent e3d26815cd
commit db02db841c
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 11 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
dotfiles/config/xmonad/xmonad.hs
View File

@ -84,6 +84,7 @@ import XMonad.Util.Minimize
import XMonad.Util.NamedScratchpad import XMonad.Util.NamedScratchpad
import XMonad.Util.NamedWindows (getName) import XMonad.Util.NamedWindows (getName)
import XMonad.Util.Run import XMonad.Util.Run
import XMonad.Util.Themes
import XMonad.Util.WorkspaceCompare import XMonad.Util.WorkspaceCompare
myConfig = def myConfig = def
@ -91,8 +92,8 @@ myConfig = def
, terminal = "alacritty" , terminal = "alacritty"
, manageHook = myManageHook <+> manageHook def , manageHook = myManageHook <+> manageHook def
, layoutHook = myLayoutHook , layoutHook = myLayoutHook
, borderWidth = 0 , borderWidth = 2
, normalBorderColor = "#000000" , normalBorderColor = "#0096ff"
, focusedBorderColor = "#ffff00" , focusedBorderColor = "#ffff00"
, logHook = , logHook =
updatePointer (0.5, 0.5) (0, 0) <> updatePointer (0.5, 0.5) (0, 0) <>
@ -220,7 +221,7 @@ virtualClasses =
gmailCommand = "google-chrome-stable --new-window https://mail.google.com/mail/u/0/#inbox" gmailCommand = "google-chrome-stable --new-window https://mail.google.com/mail/u/0/#inbox"
spotifyCommand = "spotify" spotifyCommand = "spotify"
chromeCommand = "start_chrome" chromeCommand = "google-chrome-stable"
emacsCommand = "emacsclient -c" emacsCommand = "emacsclient -c"
htopCommand = "alacritty --title htop -e htop" htopCommand = "alacritty --title htop -e htop"
transmissionCommand = "transmission-gtk" transmissionCommand = "transmission-gtk"
@ -231,15 +232,14 @@ volumeCommand = "pavucontrol"
tvScreenId :: ScreenId tvScreenId :: ScreenId
tvScreenId = 1 tvScreenId = 1
disableTVFading = setFading (Just tvScreenId) False
hostNameToAction = hostNameToAction =
M.fromList [ ("imalison-arch", disableTVFading >> setToggleActiveAll GAPS True) M.fromList [ ("imalison-uber-loaner", return ())
, ("imalison-uber-loaner", return ())
] ]
myStartup = do myStartup = do
spawn "systemctl --user start wm.target" setToggleActiveAll GAPS True
setToggleActiveAll NOBORDERS True
setToggleActiveAll SMARTBORDERS True
hostName <- io getHostName hostName <- io getHostName
M.findWithDefault (return ()) hostName hostNameToAction M.findWithDefault (return ()) hostName hostNameToAction
@ -262,11 +262,11 @@ data MyToggles
instance Transformer MyToggles Window where instance Transformer MyToggles Window where
transform LIMIT x k = k (limitSlice 2 x) unmodifyLayout transform LIMIT x k = k (limitSlice 2 x) unmodifyLayout
transform GAPS x k = k (smartSpacing 10 x) unmodifyLayout transform GAPS x k = k (smartSpacing 5 x) unmodifyLayout
transform MAGICFOCUS x k = k (magicFocus x) unmodifyLayout transform MAGICFOCUS x k = k (magicFocus x) unmodifyLayout
myToggles = [LIMIT, GAPS, MAGICFOCUS] myToggles = [LIMIT, GAPS, MAGICFOCUS]
otherToggles = [NBFULL, MIRROR] otherToggles = [NBFULL, MIRROR, NOBORDERS, SMARTBORDERS]
toggleHandlers = [(Toggle GAPS, toggleAll)] toggleHandlers = [(Toggle GAPS, toggleAll)]
instance Eq (Toggle Window) where instance Eq (Toggle Window) where
@ -361,7 +361,7 @@ layoutInfo =
rename "2 Columns" (Tall 1 (3 / 100) (1 / 2)) |||! rename "2 Columns" (Tall 1 (3 / 100) (1 / 2)) |||!
Accordion |||! simpleCross |||! myTabbed Accordion |||! simpleCross |||! myTabbed
where where
myTabbed = tabbed shrinkText myTabConfig myTabbed = tabbed shrinkText (theme robertTheme)
layoutList = snd layoutInfo layoutList = snd layoutInfo
@ -428,12 +428,6 @@ myDecorateName ws w = do
classTitle (take 40 name) " " (fromMaybe "" $ workspaceToName (W.tag ws)) iconName classTitle (take 40 name) " " (fromMaybe "" $ workspaceToName (W.tag ws)) iconName
return entryString return entryString
data ChromeInfo = ChromeInfo
{ tabId :: Int
, tabUri :: String
, tabTitle :: String
} deriving (Eq, Show)
menuIndexArgs :: MonadIO m => String -> [String] -> [(String, a)] -> menuIndexArgs :: MonadIO m => String -> [String] -> [(String, a)] ->
m (Maybe a) m (Maybe a)
menuIndexArgs menuCmd args selectionPairs = do menuIndexArgs menuCmd args selectionPairs = do