rilla
/
hmonitors
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: rilla:a17f3f0e273b44c021d42c68f186fe1ae4149102
Branches Tags
rilla:main
...
compare: rilla:c224c479eba3279cd5efda33e1d1b9a4c88e4e10
Branches Tags
rilla:main

2 Commits
a17f3f0e27 ... c224c479eb

Author SHA1 Message Date
Ricard Illa c224c479eb extra option added 2021-07-24 19:48:58 +02:00
Ricard Illa bca17dab68 minor format change 2021-07-24 19:48:37 +02:00
2 changed files with 3 additions and 3 deletions
Show Stats Expand all files Collapse all files

4
src/Monitors/Date.hs
View File

@ -18,12 +18,12 @@ fullFmtter True icon x = printf "%s %s" (icons M.! icon) x
fullFmtter _ _ x = x
fmtter :: FormatTime t => Bool -> String -> String -> t -> String
fmtter full icon fmt = (fullFmtter full icon) . (formatTime defaultTimeLocale fmt)
fmtter full icon fmt = fullFmtter full icon . formatTime defaultTimeLocale fmt
fmtTime :: FormatTime t => Bool -> t -> String
fmtTime full time =
let
date = fmtter full "calendar" "%m/%d" time
date = fmtter full "calendar" "%y/%m/%d" time
hour = fmtter full "clock" "%H:%M" time
in printf "%s%s%s%s " separator date separator hour

2
src/Monitors/Volume.hs
View File

@ -79,7 +79,7 @@ fmtData :: [MixerData] -> String
fmtData = (separator ++ ) . intercalate separator . map getStatus
runAmixer :: String -> IO String
runAmixer mixer = readProcess "amixer" ["get", mixer] ""
runAmixer mixer = readProcess "amixer" ["get", "-c", "0", mixer] ""
queryVolume :: IO String