Unicode in status bar
This commit is contained in:
parent
defa50f939
commit
045f5784be
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue