Compare commits
No commits in common. "c224c479eba3279cd5efda33e1d1b9a4c88e4e10" and "a17f3f0e273b44c021d42c68f186fe1ae4149102" have entirely different histories.
c224c479eb
...
a17f3f0e27
|
@ -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" "%y/%m/%d" time
|
||||
date = fmtter full "calendar" "%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", "-c", "0", mixer] ""
|
||||
runAmixer mixer = readProcess "amixer" ["get", mixer] ""
|
||||
|
||||
|
||||
queryVolume :: IO String
|
||||
|
|
Loading…
Reference in New Issue