Compare commits
2 Commits
a17f3f0e27
...
c224c479eb
Author | SHA1 | Date |
---|---|---|
Ricard Illa | c224c479eb | |
Ricard Illa | bca17dab68 |
|
@ -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
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue