maralorn/nixos-config
1
0
Fork 0
Code Wiki Activity

Show mpd host in status bar

Browse source
This commit is contained in:
Malte 2023-04-26 22:59:31 +02:00
parent c68724e037
commit adf23df7cb
2 changed files with 36 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
home-manager/roles/mpd.nix
View file

@ -37,7 +37,10 @@ in {
}; };
mpdris2 = { mpdris2 = {
enable = true; enable = true;
mpd.host = replace_string; mpd = {
musicDirectory = lib.mkForce null;
host = replace_string;
};
}; };
}; };
home.packages = [ home.packages = [

53
packages/status-script/exe/Main.hs
View file

@ -190,21 +190,32 @@ when' cond result = if cond then result else pure Nothing
playerCTLFormat :: String playerCTLFormat :: String
playerCTLFormat = "@{{status}} {{title}} | {{album}} | {{artist}}" playerCTLFormat = "@{{status}} {{title}} | {{album}} | {{artist}}"
playerModule :: Module (Maybe Text) playerModule :: FilePath -> Module (Maybe Text)
playerModule = \var -> playerModule = \home var ->
let update_lines = let process_update = \host ->
mapM_ updateVarIfChanged var
( updateVarIfChanged var . runIdentity
. runIdentity . withColor white
. withColor white . Text.replace "@Stopped" "⏹"
. Text.replace "@Stopped" "⏹" . Text.replace "@Playing" "▶"
. Text.replace "@Playing" "▶" . Text.replace "@Paused" "⏸"
. Text.replace "@Paused" "⏸" . Text.intercalate "\n"
. Text.intercalate "\n" . filter (not . Text.null)
. filter (not . Text.null) . (maybeToList host <>)
. Text.splitOn " | " . Text.splitOn " | "
. decodeUtf8 . decodeUtf8
) update_lines = mapM_ \update -> do
mpdris_config <-
Exception.try @Exception.IOException $
readFileBS [i|#{home}/.config/mpDris2/mpDris2.conf|]
let host =
find (/= "::")
. mapMaybe (Text.stripPrefix "host = ")
. lines
. decodeUtf8
. fromRight ""
$ mpdris_config
process_update host update
in forever $ in forever $
playerctl "metadata" "-F" "-f" playerCTLFormat playerctl "metadata" "-F" "-f" playerCTLFormat
|> Shh.readInputLines update_lines |> Shh.readInputLines update_lines
@ -231,7 +242,7 @@ oldmain = do
appointments <- lines . decodeUtf8 <$> tryCmd (khal ["list", "-a", "Standard", "-a", "Planung", "-a", "Uni", "-a", "Maltaire", "now", "2h", "-df", ""]) appointments <- lines . decodeUtf8 <$> tryCmd (khal ["list", "-a", "Standard", "-a", "Planung", "-a", "Uni", "-a", "Maltaire", "now", "2h", "-df", ""])
when' (not $ null appointments) $ when' (not $ null appointments) $
withColor magenta (Text.unlines appointments) withColor magenta (Text.unlines appointments)
, playerModule , playerModule home
, simpleModule oneSecond $ do , simpleModule oneSecond $ do
mode <- read_mode mode <- read_mode
unread <- unread <-
@ -293,11 +304,11 @@ oldmain = do
host_name <- ByteStringChar.strip <$> readFileBS "/etc/hostname" host_name <- ByteStringChar.strip <$> readFileBS "/etc/hostname"
let scan = do let scan = do
current_commit <- readFileBS (git_dir </> "config/.git/refs/heads/main") current_commit <- readFileBS (git_dir </> "config/.git/refs/heads/main")
system_commit <- Exception.try do readFileBS "/run/current-system/config-commit" system_commit <- Exception.try @Exception.IOException do readFileBS "/run/current-system/config-commit"
modes_commit <- Exception.try do readFileBS (modes_dir </> "config-commit") modes_commit <- Exception.try do readFileBS (modes_dir </> "config-commit")
current_system <- readlink "/run/current-system" |> captureTrim current_system <- readlink "/run/current-system" |> captureTrim
current_modes <- readlink modes_dir |> captureTrim current_modes <- readlink modes_dir |> captureTrim
let stale_config :: Either Exception.IOException ByteString -> Bool = \case let stale_config = \case
(Right commit) | commit == current_commit -> False (Right commit) | commit == current_commit -> False
_ -> True _ -> True
system_stale = stale_config system_commit system_stale = stale_config system_commit
@ -311,7 +322,7 @@ oldmain = do
if system_stale if system_stale
then when (commit_change || system_change) do then when (commit_change || system_change) do
say "Eval system config …" say "Eval system config …"
next_system <- nix "eval" "--raw" ([i|/home/maralorn/git/config\#nixosConfigurations.#{host_name}.config.system.build.toplevel.drvPath|] :: String) |> captureTrim next_system <- nix "eval" "--raw" ([i|#{home}/git/config\#nixosConfigurations.#{host_name}.config.system.build.toplevel.drvPath|] :: String) |> captureTrim
say "System eval finished." say "System eval finished."
diff_is_small <- diffIsSmall next_system current_system diff_is_small <- diffIsSmall next_system current_system
atomically $ writeTVar system_dirty_var (not diff_is_small) atomically $ writeTVar system_dirty_var (not diff_is_small)
@ -319,7 +330,7 @@ oldmain = do
if modes_stale if modes_stale
then when (commit_change || modes_change) do then when (commit_change || modes_change) do
say "Eval home config …" say "Eval home config …"
next_modes <- nix "eval" "--raw" ([i|/home/maralorn/git/config\#homeModes.#{host_name}.drvPath|] :: String) |> captureTrim next_modes <- nix "eval" "--raw" ([i|#{home}/git/config\#homeModes.#{host_name}.drvPath|] :: String) |> captureTrim
say "Home eval finished." say "Home eval finished."
diff_is_small <- diffIsSmall next_modes current_modes diff_is_small <- diffIsSmall next_modes current_modes
atomically $ writeTVar modes_dirty_var (not diff_is_small) atomically $ writeTVar modes_dirty_var (not diff_is_small)
@ -336,7 +347,7 @@ oldmain = do
onUpdate mode_var $ updateVarIfChanged var . runIdentity . withColor blue . show onUpdate mode_var $ updateVarIfChanged var . runIdentity . withColor blue . show
, simpleModule (1 * oneSecond) do , simpleModule (1 * oneSecond) do
now <- Time.getCurrentTime now <- Time.getCurrentTime
notifications <- processNotifications . fromRight "" <$> Exception.try @Exception.IOException (readFileBS [i|/home/maralorn/.notifications/#{Time.formatTime Time.defaultTimeLocale "%Y-%m-%d" now}.log|]) notifications <- processNotifications . fromRight "" <$> Exception.try @Exception.IOException (readFileBS [i|#{home}/.notifications/#{Time.formatTime Time.defaultTimeLocale "%Y-%m-%d" now}.log|])
when' (not $ Text.null notifications) $ withColor red (Text.take 24 (Text.drop ((`rem` 15) . round . Time.utctDayTime $ now) "NOTIFICATIONS! NOTIFICATIONS! NOTIFICATIONS!") <> "\n" <> notifications) when' (not $ Text.null notifications) $ withColor red (Text.take 24 (Text.drop ((`rem` 15) . round . Time.utctDayTime $ now) "NOTIFICATIONS! NOTIFICATIONS! NOTIFICATIONS!") <> "\n" <> notifications)
] ]
foldConcurrently_ foldConcurrently_