forked from colonelpanic/dotfiles
[XMonad] Change themes
This commit is contained in:
parent
e3d26815cd
commit
db02db841c
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user