diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Sway.hs | 72 | ||||
| -rw-r--r-- | src/TopC.hs | 2 | 
2 files changed, 72 insertions, 2 deletions
diff --git a/src/Sway.hs b/src/Sway.hs new file mode 100644 index 0000000..2129e20 --- /dev/null +++ b/src/Sway.hs @@ -0,0 +1,72 @@ +import Xmobar +import Config +import Monitors + +memoratio = Memory ["-t","<usedratio>%", "-p", "2", "-W", "3"] 20 + +topProcL p = TopProc (p <~> ["-t" +                            , memTemp +                              ++ "  ·  <mboth1>  <mboth2>  <mboth3>  <mboth4>" +                            , "-w", "12", "-L" , "10", "-H", "80"]) 15 +             where memTemp = if pIsLight p +                             then "<both1>  <both2>  <both3>  <both4>" +                             else "<both1>  <both2>  <both3>" + +diskIOS p = DiskIO [("/", "<total>"), ("/home", "<total>")] (diskArgs p) 10 + +mpd a p i = MPDX [ "-W", "12", "-t", "<statei> <remaining>" +                 , "--", "-p", p, "-P", "\xf144", "-Z",fni i, "-S", fni i] 20 a + +mpdMon = mpd "mpd" "6600" "\xf001" +mopMon = mpd "mopidy" "6669" "\xf1bc" + +config p = (baseConfig p) { +  position = TopSize C 100 (defaultHeight - 1) +  , textOutput = True +  , textOutputFormat = Pango +  , bgColor = "#efefef" +  , border = FullB +  , commands = [ Run (topProcL p) +               , Run (iconBatt p) +               , Run mpdMon +               , if pIsLight p then Run (cpu p) else  Run (cpuBars p) +               , Run memoratio +               , Run (diskU p) +               , Run (diskIOS p) +               , Run brightness +               , Run (kbd p) +               , Run (coreTemp p) +               , Run (wireless p "wlp164s0") +               , Run (dynNetwork p) +               , Run (vpnMark "wg-mullvad") +               , Run tun0 +               , Run (masterVol p) +               , Run captureVol +               , Run laTime +               , Run localTime +               , Run w -- LEGE, LEBL, KCV0 +               ] +  , template = "|batt0| " +             ++ dimi "\xf26c" ++ " |bright| " +             ++ "<action=`toggle-app.sh nm-applet`>" +             ++ " |wg-mullvad||tun0||wlp164s0wi|" +             ++ "</action>" +             ++ " |dynnetwork| " +             ++ "<action=`toggle-app.sh pasystray`>" +             ++ "  |default:Master| " ++ dimi "\xf130" ++ " |default:Capture|" +             ++ "</action>  " +             ++  "|mpd|" +             ++ " |EGPH| " +             ++ " {} <hspace=10/>" +             ++ "|multicpu| " +             ++ "|multicoretemp| " +             ++ " |top| " +             ++ " " ++ fni "\xf0c9" ++ " |memory| " +             ++ " |diskio| |disku| " +             ++ "  |datetime| " +             ++ "|laTime| " +  } where dimi = fc (pDim p) . fni +          w = weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p + +main :: IO () +main = palette >>= configFromArgs . config >>= xmobar diff --git a/src/TopC.hs b/src/TopC.hs index c447270..f9472da 100644 --- a/src/TopC.hs +++ b/src/TopC.hs @@ -64,11 +64,9 @@ config p = (baseConfig p) {               ++ "  |default:Master| " ++ dimi "\xf130" ++ " |default:Capture|"               ++ "</action>  "               ++  "|mpd|" ---             ++  " |mopidy|"               ++ " |EGPH| "               ++ fc (pHigh p) "|elog|"               ++ " {} " ---             ++ "|mail|"               ++ "|kbd| "               ++ "|multicpu| "               ++ "|multicoretemp| "  | 
