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
|
fullFmtter _ _ x = x
|
||||||
|
|
||||||
fmtter :: FormatTime t => Bool -> String -> String -> t -> String
|
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 :: FormatTime t => Bool -> t -> String
|
||||||
fmtTime full time =
|
fmtTime full time =
|
||||||
let
|
let
|
||||||
date = fmtter full "calendar" "%m/%d" time
|
date = fmtter full "calendar" "%y/%m/%d" time
|
||||||
hour = fmtter full "clock" "%H:%M" time
|
hour = fmtter full "clock" "%H:%M" time
|
||||||
in printf "%s%s%s%s " separator date separator hour
|
in printf "%s%s%s%s " separator date separator hour
|
||||||
|
|
||||||
|
|
|
@ -79,7 +79,7 @@ fmtData :: [MixerData] -> String
|
||||||
fmtData = (separator ++ ) . intercalate separator . map getStatus
|
fmtData = (separator ++ ) . intercalate separator . map getStatus
|
||||||
|
|
||||||
runAmixer :: String -> IO String
|
runAmixer :: String -> IO String
|
||||||
runAmixer mixer = readProcess "amixer" ["get", mixer] ""
|
runAmixer mixer = readProcess "amixer" ["get", "-c", "0", mixer] ""
|
||||||
|
|
||||||
|
|
||||||
queryVolume :: IO String
|
queryVolume :: IO String
|
||||||
|
|
Loading…
Reference in New Issue