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

Settle on one solution

Browse source
This commit is contained in:
Malte Brandy 2021-03-27 15:42:48 +01:00
parent 9f34242799
commit f5c8d8def8
2 changed files with 2 additions and 97 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
home-manager/machines.nix
View file

@ -82,7 +82,7 @@ in
./roles/mpclient.nix
./roles/on-my-machine.nix
./roles/desktop
#./roles/git-sign.nix
./roles/git-sign.nix
./roles/laptop.nix
./roles/mail.nix
./roles/update_tasks.nix
@ -91,8 +91,7 @@ in
./roles/khard.nix
./roles/khal.nix
./roles/taskwarrior.nix
#./roles/taskwarrior-git.nix
#./roles/taskwarrior-notify.nix
./roles/taskwarrior-git.nix
(makeAutostart "unlock-ssh")
(setWorkspaceName name)
]

94
home-manager/roles/taskwarrior-notify.nix
View file

@ -1,94 +0,0 @@
{ lib, pkgs, config, ... }: {
home.file = let
functions = ''
printMap :: HashMap Text (These Value Value) -> String
printMap = intercalate "\n" . fmap printPair . filter filterPairs . HM.toList
filterPairs = \(k,_) -> k `notElem` ["uuid","entry","modified"]
printPair = \(k,v) -> case v of
This old -> [i|#{k}: -#{printValue old}|]
That new -> [i|#{k}: +#{printValue new}|]
These old new -> printDiff k old new
printDiff :: Text -> Value -> Value -> String
printDiff k (Array before) (Array after) = let
old = (V.toList before) List.\\ (V.toList after)
new = (V.toList after) List.\\ (V.toList before)
in
[i|#{k}: #{intercalate ", " ((('-':) . printValue <$> old) ++ (('+':) . printValue <$> new))}|]
printDiff k old new = [i|#{k}: +#{printValue new} -#{printValue old}|]
printValue = \case
String (toString -> a) -> if | Just (d :: UTCTime) <- parseTimeM False defaultTimeLocale "%Y%m%dT%H%M%SZ" a -> show d
| otherwise -> a
Number a -> show a
Array (fmap printValue -> a) -> intercalate "\n" (toList a)
Object a -> show $ toList a
Bool a -> show a
Null -> "null"
'';
inherit (pkgs) writeHaskellScript;
imports = [
"DBus.Notify"
"DBus.Client (clientErrorMessage)"
"System.IO"
"Data.Aeson"
"Control.Monad"
"Data.These"
"qualified Data.HashMap.Strict as HM"
"Data.Time"
"qualified Data.Vector as V"
"qualified Data.List as List"
];
on-modify = writeHaskellScript {
name = "on-modify";
inherit imports;
} ''
${functions}
main = do
input1 <- BS.hGetLine stdin
input2 <- BS.hGetLine stdin
let description = do
Object task1 <- decode $ toLazy input1 :: Maybe Value
Object task2 <- decode $ toLazy input2 :: Maybe Value
let diff = HM.unions [
fmap This (HM.difference task1 task2),
fmap That (HM.difference task2 task1),
(HM.mapMaybe (\x->x) $ HM.intersectionWith (\old new -> if old /= new then Just $ These old new else Nothing) task1 task2)
]
String description2 <- HM.lookup "description" task2
pure (description2, printMap diff)
Control.Monad.forM_ description $ \(d,b) -> do
client <- try connectSession
either
(BS.hPut stderr . encodeUtf8 . (++ "\n") . clientErrorMessage)
(\c -> void $ notify c blankNote { summary = [i|Modified task #{d}|], body = Just $ Text b, expiry = Milliseconds 15000 })
client
BS.hPut stdout input2
'';
on-add = writeHaskellScript {
name = "on-add";
inherit imports;
} ''
${functions}
main = do
input <- BS.hGetContents stdin
let description = do
Object task <- decode $ toLazy input :: Maybe Value
pure . printMap . fmap That $ task
whenJust description $ \d -> do
client <- try connectSession
either
(BS.hPut stderr . encodeUtf8 . clientErrorMessage)
(\c -> void $ notify c blankNote { summary = "New Task", body = Just $ Text d, expiry = Milliseconds 15000 })
client
BS.hPut stdout input
'';
in {
#"add-notification" = {
# target = ".task/hooks/on-add.notification";
# source = "${on-add}/bin/on-add";
#};
#"modify-notification" = {
# target = ".task/hooks/on-modify.notification";
# source = "${on-modify}/bin/on-modify";
#};
};
}