ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH make prompts prettier

This commit is contained in:
Nathan Dwarshuis 2020-02-16 01:43:27 -05:00
parent 07e6786632
commit 217725c6cd
1 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
xmonad.hs
View File

@ -31,6 +31,7 @@ import XMonad.Layout.PerWorkspace
-- import XMonad.Layout.ToggleLayouts (ToggleLayout(..), toggleLayouts) -- import XMonad.Layout.ToggleLayouts (ToggleLayout(..), toggleLayouts)
import XMonad.Prompt import XMonad.Prompt
import XMonad.Prompt.ConfirmPrompt import XMonad.Prompt.ConfirmPrompt
import XMonad.Prompt.XMonad
-- import XMonad.Prompt.Shell -- import XMonad.Prompt.Shell
import XMonad.Util.EZConfig import XMonad.Util.EZConfig
import XMonad.Util.NamedActions import XMonad.Util.NamedActions
@ -124,27 +125,27 @@ myFont = "xft:DejaVu Sans:size=11:autohint=false"
-- base00 = "#657b83" -- base00 = "#657b83"
-- base01 = "#586e75" -- base01 = "#586e75"
-- base02 = "#073642" -- base02 = "#073642"
base03 = "#002b36" -- base03 = "#002b36"
-- base0 = "#839496" -- base0 = "#839496"
-- base1 = "#93a1a1" -- base1 = "#93a1a1"
-- base2 = "#eee8d5" -- base2 = "#eee8d5"
base3 = "#fdf6e3" -- base3 = "#fdf6e3"
-- yellow = "#b58900" -- yellow = "#b58900"
-- orange = "#cb4b16" -- orange = "#cb4b16"
red = "#dc322f" -- red = "#dc322f"
-- magenta = "#d33682" -- magenta = "#d33682"
-- violet = "#6c71c4" -- violet = "#6c71c4"
blue = "#268bd2" -- blue = "#268bd2"
-- cyan = "#2aa198" -- cyan = "#2aa198"
-- green = "#859900" -- green = "#859900"
-- gap = 10 -- gap = 10
-- topbar = 10 -- topbar = 10
-- border = 0 -- border = 0
prompt = 20 -- prompt = 20
-- status = 20 -- status = 20
active = blue -- active = blue
-- activeWarn = red -- activeWarn = red
-- inactive = base02 -- inactive = base02
-- focusColor = blue -- focusColor = blue
@ -152,21 +153,21 @@ active = blue
myPromptTheme = def myPromptTheme = def
{ font = myFont { font = myFont
, bgColor = base03 , bgColor = "#eeeeee"
, fgColor = active , fgColor = "#282828"
, fgHLight = base03 , fgHLight = "white"
, bgHLight = active , bgHLight = "#268bd2"
, borderColor = base03 , borderColor = "white"
, promptBorderWidth = 0 , promptBorderWidth = 0
, height = prompt , height = 30
, position = Top , position = CenteredAt 0.5 0.5
} }
hotPromptTheme = myPromptTheme -- hotPromptTheme = myPromptTheme
{ bgColor = red -- { bgColor = red
, fgColor = base3 -- , fgColor = base3
, position = Top -- , position = Top
} -- }
-- TODO is there a better way to get the prompt to say what I want? -- TODO is there a better way to get the prompt to say what I want?
@ -180,7 +181,7 @@ myPowerPrompt = mkXPrompt PowerPrompt conf comps
. (`lookup` commands) . (`lookup` commands)
where where
comps = (mkComplFunFromList' (map fst commands)) comps = (mkComplFunFromList' (map fst commands))
conf = hotPromptTheme conf = myPromptTheme
commands = commands =
[ ("poweroff", spawn "systemctl poweroff") [ ("poweroff", spawn "systemctl poweroff")
, ("suspend", spawn "systemctl suspend") , ("suspend", spawn "systemctl suspend")
@ -325,8 +326,8 @@ myKeys c =
, ("M-M1-.", addName "backlight max" $ spawn "adj_backlight max") , ("M-M1-.", addName "backlight max" $ spawn "adj_backlight max")
, ("M-<F2>", addName "restart xmonad" $ spawn "killall xmobar; xmonad --restart") , ("M-<F2>", addName "restart xmonad" $ spawn "killall xmobar; xmonad --restart")
, ("M-S-<F2>", addName "recompile xmonad" $ spawn "killall xmobar; xmonad --recompile && xmonad --restart") , ("M-S-<F2>", addName "recompile xmonad" $ spawn "killall xmobar; xmonad --recompile && xmonad --restart")
, ("M-p", addName "power menu" myPowerPrompt) , ("M-<End>", addName "power menu" myPowerPrompt)
, ("M-<Home>", addName "quit xmonad" $ , ("M-<Home>", addName "quit xmonad" $
confirmPrompt hotPromptTheme "Quit XMonad?" $ confirmPrompt myPromptTheme "Quit XMonad?" $
io (exitWith ExitSuccess)) io (exitWith ExitSuccess))
] ]