1
0
Fork 0

fix create-plans

This commit is contained in:
Malte Brandy 2022-06-16 01:07:30 +02:00
parent 9f9f2f5ec4
commit a7c9d5bc84

View file

@ -17,7 +17,7 @@
today <- localDay . zonedTimeToLocalTime <$> getZonedTime
[0..7] & fmap (`addDays` today) & mapM_ \day -> do
planned <- khal ["list", "-a", "Planung", show day, "06:00", "24h", "--notstarted"] |> captureTrim
when (planned == "No events") $ do
when (LBS.null planned) $ do
say $ "Creating events for " <> show day
if (dayOfWeek day `elem` [Saturday, Sunday]) then do
${plans.weekend}