1
0
Fork 0

Unicode in status bar

This commit is contained in:
Malte Brandy 2022-02-22 20:48:45 +01:00
parent defa50f939
commit 045f5784be

View file

@ -25,7 +25,7 @@ let
tryCmd x = ignoreFailure x |> captureTrim
main = do
playing <- Text.intercalate " - " . fmap decodeUtf8 . filter (/= "") <$> mapM tryCmd [playerctl "status", playerctl "metadata" "title", playerctl "metadata" "artist"]
playing <- Text.replace "Stopped -" "" . Text.replace "Playing -" "" . Text.replace "Paused -" "" . Text.intercalate " - " . fmap decodeUtf8 . filter (/= "") <$> mapM tryCmd [playerctl "status", playerctl "metadata" "title", playerctl "metadata" "artist"]
appointments <- Text.intercalate "; ". lines . decodeUtf8 <$> (tryCmd $ khal ["list", "-a", "Standard", "-a", "Planung", "-a", "Uni", "-a", "Maltaire", "now", "2h", "-df", ""])
mode <- getMode
unread <- notmuch "count" "folder:hera/Inbox" "tag:unread" |> captureTrim