xmobar & xmonad optimierung
This commit is contained in:
2
home/programs/xmonad/src/xmobar/scripts/backlight.sh
Executable file
2
home/programs/xmonad/src/xmobar/scripts/backlight.sh
Executable file
@@ -0,0 +1,2 @@
|
||||
Out=$(xbacklight -get)
|
||||
echo "<fc=#dbb302><fn=1>\xe3aa</fn></fc> $Out%"
|
||||
@@ -5,56 +5,70 @@ config =
|
||||
defaultConfig
|
||||
{ font = "Fira Code"
|
||||
, position = TopH 30
|
||||
, borderColor = "#1e2030"
|
||||
, borderColor = "#402339"
|
||||
, border = FullB
|
||||
, borderWidth = 3
|
||||
, bgColor = "#24273a"
|
||||
, fgColor = "#cad3f5"
|
||||
, commands = [ Run $ Cpu [ "--template", "<fc=#a9a1e1><fn=1>\xf085</fn></fc> <total>%"
|
||||
, "--Low","3"
|
||||
, "--High","50"
|
||||
, "--low","#bbc2cf"
|
||||
, "--normal","#bbc2cf"
|
||||
, "--high","#fb4934"] 50
|
||||
, Run $ Memory ["-t","<fc=#51afef><fn=1>\xF2DB</fn></fc> <usedratio>%"
|
||||
,"-H","80"
|
||||
,"-L","10"
|
||||
,"-l","#bbc2cf"
|
||||
,"-n","#bbc2cf"
|
||||
,"-h","#fb4934"] 50
|
||||
, Run $ Date "<fc=#ECBE7B><fn=1>\xf017</fn></fc> %a %b %_d %H:%M" "date" 300
|
||||
, Run $ DynNetwork ["-t","<fc=#4db5bd><fn=1>\xf063</fn></fc> <rx> <fc=#c678dd><fn=1>\xf062</fn></fc> <tx>"
|
||||
,"-H","200"
|
||||
,"-L","10"
|
||||
,"-h","#bbc2cf"
|
||||
,"-l","#bbc2cf"
|
||||
,"-n","#bbc2cf"] 50
|
||||
, Run $ CoreTemp ["-t", "<fc=#CDB464><fn=1>\xf2c7</fn></fc> <core0>°"
|
||||
, "-L", "30"
|
||||
, "-H", "75"
|
||||
, "-l", "lightblue"
|
||||
, "-n", "#bbc2cf"
|
||||
, "-h", "#aa4450"] 50
|
||||
, Run $ BatteryP [ "BAT1" ]
|
||||
[ "--template" , "<fc=#B1DE76><fn=1>\xf240</fn></fc> <acstatus>"
|
||||
, "--Low" , "10" -- units: %
|
||||
, "--High" , "80" -- units: %
|
||||
, "--low" , "#fb4934"
|
||||
, "--normal" , "#bbc2cf"
|
||||
, "--high" , "#98be65"
|
||||
, "--" -- battery specific options
|
||||
-- discharging status
|
||||
, "-o" , "<left>% (<timeleft>)"
|
||||
-- AC "on" status
|
||||
, "-O" , "<left>% (<fc=#98be65>Charging</fc>)"
|
||||
-- charged status
|
||||
, "-i" , "<fc=#98be65>Charged</fc>"
|
||||
] 50
|
||||
, Run XMonadLog
|
||||
]
|
||||
, borderWidth = 2
|
||||
, bgColor = "#381f32"
|
||||
, fgColor = "#a8dfe3"
|
||||
, commands =
|
||||
[
|
||||
Run $ Com "./scripts/backlight.sh" [] "backlight" 10
|
||||
Run $ Cpu
|
||||
[
|
||||
"--template", "<fc=#a9a1e1><fn=1>\xf085</fn></fc> <total>%"
|
||||
, "--Low","3"
|
||||
, "--High","50"
|
||||
, "--low","#bbc2cf"
|
||||
, "--normal","#bbc2cf"
|
||||
, "--high","#fb4934"
|
||||
] 50
|
||||
, Run $ Memory
|
||||
[
|
||||
"-t","<fc=#51afef><fn=1>\xF2DB</fn></fc> <usedratio>%"
|
||||
,"-H","80"
|
||||
,"-L","10"
|
||||
,"-l","#bbc2cf"
|
||||
,"-n","#bbc2cf"
|
||||
,"-h","#fb4934"
|
||||
] 50
|
||||
, Run $ Alsa "default" "Master"
|
||||
[
|
||||
"--template", "<fc=#5c0714><fn=1>\xe050</fn>>/fc> <volumestatus>"
|
||||
, "--suffix" , "True"
|
||||
, "--"
|
||||
, "--on", "<fc=#5c0714><fn=1>\xe050</fn>>/fc> <volumestatus>"
|
||||
]
|
||||
, Run $ Date "<fc=#ECBE7B><fn=1>\xf017</fn></fc> %d.%m.%y %H:%M" "date" 300
|
||||
, Run $ DynNetwork
|
||||
[
|
||||
"-t","<fc=#4db5bd><fn=1>\xf063</fn></fc> <rx> <fc=#c678dd><fn=1>\xf062</fn></fc> <tx>"
|
||||
,"-H","200"
|
||||
,"-L","10"
|
||||
,"-h","#bbc2cf"
|
||||
,"-l","#bbc2cf"
|
||||
,"-n","#bbc2cf"
|
||||
] 50
|
||||
, Run $ BatteryP [ "BAT0" ]
|
||||
[
|
||||
"--template" , "<fc=#B1DE76><fn=1>\xf240</fn></fc> <acstatus>"
|
||||
, "--Low" , "10" -- units: %
|
||||
, "--High" , "80" -- units: %
|
||||
, "--low" , "#fb4934"
|
||||
, "--normal" , "#bbc2cf"
|
||||
, "--high" , "#98be65"
|
||||
, "--" -- battery specific options
|
||||
-- discharging status
|
||||
, "-o" , "<left>% (<timeleft>)"
|
||||
-- AC "on" status
|
||||
, "-O" , "<left>% (<fc=#98be65>Charging</fc>)"
|
||||
-- charged status
|
||||
, "-i" , "<fc=#98be65>Charged</fc>"
|
||||
] 50
|
||||
, Run XMonadLog
|
||||
]
|
||||
, sepChar = "%"
|
||||
, alignSep = "}{"
|
||||
, template = "%XMonadLog% }{ %cpu% | %coretemp% | %memory% | %battery% | %dynnetwork% | %date% |"
|
||||
, template = "%XMonadLog% }{ %backlight% | %cpu% | %memory% | %battery% | %dynnetwork% | %date% "
|
||||
}
|
||||
|
||||
main :: IO ()
|
||||
|
||||
@@ -5,29 +5,65 @@ import XMonad.Util.EZConfig
|
||||
import XMonad.Hooks.DynamicLog
|
||||
import XMonad.Hooks.StatusBar
|
||||
import XMonad.Hooks.StatusBar.PP
|
||||
import XMonad.Layout.ThreeColumns
|
||||
import XMonad.Layout.Magnifier
|
||||
import XMonad.Util.ClickableWorkspaces
|
||||
import XMonad.Util.Loggers
|
||||
import Data.ByteString (maximum)
|
||||
import Text.XHtml (gray)
|
||||
|
||||
|
||||
main = xmonad . ewmhFullscreen . ewmh . xmobarProp $ def
|
||||
{ terminal = "alacritty"
|
||||
, normalBorderColor = "#050508"
|
||||
, focusedBorderColor = "#89b4fa"
|
||||
}
|
||||
`additionalKeysP`
|
||||
[ ("M-p", spawn "rofi -show \"drun\"")
|
||||
, ("M-c", spawn "firefox")
|
||||
--, ("<XF86MonBrightnessUp>", spawn "xbacklight -inc 10")
|
||||
--, ("<XF86MonBrightnessDown>", spawn "xbacklight -dec 10")
|
||||
--, ("<XF86AudioMute>", spawn "wpctl set-mute 58 toggle")
|
||||
--, ("<XF86AudioRaiseVolume>", spawn "wpctl set-volume 58 0.05+")
|
||||
--, ("<XF86AudioLowerVolume>", spawn "wpctl set-volume 58 0.05-")
|
||||
--, ("<XF86AudioMicMute>", spawn "wpctl set-mute 52 toggle")
|
||||
]
|
||||
`removeKeysP`
|
||||
[ "M-q"
|
||||
]
|
||||
main = xmonad . ewmhFullscreen . ewmh . withEasySB (statusBarProp "xmobar" (pure myXmobarPP)) defToggleStrutsKey $ myconfig
|
||||
|
||||
myconfig = def
|
||||
{
|
||||
layoutHook = myLayout
|
||||
, terminal = "alacritty"
|
||||
, normalBorderColor = "#050508"
|
||||
, focusedBorderColor = "#89b4fa"
|
||||
}
|
||||
`additionalKeysP`
|
||||
[
|
||||
("M-p", spawn "rofi -show \"drun\"")
|
||||
, ("M-c", spawn "firefox")
|
||||
, ("<XF86MonBrightnessUp>", spawn "xbacklight -inc 10")
|
||||
, ("<XF86MonBrightnessDown>", spawn "xbacklight -dec 10")
|
||||
--, ("<XF86AudioMute>", spawn "wpctl set-mute 58 toggle")
|
||||
--, ("<XF86AudioRaiseVolume>", spawn "wpctl set-volume 58 0.05+")
|
||||
--, ("<XF86AudioLowerVolume>", spawn "wpctl set-volume 58 0.05-")
|
||||
--, ("<XF86AudioMicMute>", spawn "wpctl set-mute 52 toggle")
|
||||
]
|
||||
`removeKeysP` []
|
||||
|
||||
myXmobarPP :: PP
|
||||
myXmobarPP = def
|
||||
{
|
||||
ppSep = magenta " • "
|
||||
, ppWsSep = ""
|
||||
, ppCurrent = wrap " " "" . xmobarBorder "Top" "#a8dfe3" 2
|
||||
, ppHidden = wrap " " ""
|
||||
, ppHiddenNoWindows = gray . wrap " " ""
|
||||
, ppUrgent = red . wrap (yellow "!") (yellow "!")
|
||||
, ppTitleSanitize = xmobarStrip
|
||||
, ppOrder = \[ws, l, _, wins] -> [ws, l, wins]
|
||||
, ppExtras = [logTitles formatFocused formatUnfocused]
|
||||
}
|
||||
where
|
||||
formatFocused = wrap "[" "]" . magenta . ppWindow
|
||||
formatUnfocused = wrap "[" "]" . gray . ppWindow
|
||||
|
||||
ppWindow :: String -> String
|
||||
ppWindow = xmobarRaw . (\w -> if null w then "???" else w) . shorten 15 -- set maximum length of windowtitle to 15
|
||||
|
||||
magenta, gray, red, yellow :: String -> String
|
||||
magenta = xmobarColor "#ff79c6" ""
|
||||
gray = xmobarColor "#5c5e5e" ""
|
||||
red = xmobarColor "#ff5555" ""
|
||||
yellow = xmobarColor "#f1fa8c" ""
|
||||
|
||||
|
||||
myLayout = Tall 1 (3/100) (1/2) ||| Mirror (Tall 1 (3/100) (1/2)) ||| Full ||| ThreeColMid 1 (3/100) (1/2) -- wenn wieder zoom von fokusierten Seitenfenstern gewünscht, dann Fireox fixn und: magnifiercz' 1.3 (ThreeColMid 1 (3/100) (1/2))
|
||||
|
||||
myStartupHook :: X ()
|
||||
myStartupHook = do
|
||||
mapM_ spawnOnce ["xmobar -x " ++ show sid | sid <- [0..9]]
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user