add almanac / ical feed syncing

3 files changed, 49 insertions, 4 deletions

diff --git a/home/home.nix b/home/home.nix
index f2a0f7e..57aa9b2 100644
--- a/home/home.nix
+++ b/home/home.nix
@@ -1,4 +1,4 @@
-{ config, pkgs, inputs, ... }:
+{ config, lib, pkgs, inputs, ... }:
 
 {
   # Let Home Manager install and manage itself.
@@ -86,6 +86,7 @@
       ll = "exa -lh --grid --icons";
       llt = "exa -lh --tree --icons";
       lt = "exa --tree --icons";
+      agenda = "almanac month ~/.cache/feedsync/*";
     };
     functions = { 
       fish_greeting = {
@@ -94,9 +95,24 @@
     };
   };
 
+  systemd.user.services.syncical = let
+    feeds = (import inputs.feeds).ical; in {
+      Unit.Description = "syncs ical feeds for almanac agenda";
+      Service.ExecStart = "${./scripts/sync.scm} ${lib.fold (a: b: a + " " + b) "" feeds}";
+    };
+
+  systemd.user.timers.syncical = {
+    Unit.Description = "automatically fetch new calendars";
+    Timer = {
+      OnCalendar = "hourly";
+      Unit = "syncical.service";
+    };
+    Install.WantedBy = [ "timers.target" ];
+  };
+
   programs.newsboat = {
     enable = true;
-    urls = (import ./newsboat-public.nix) ++ (import inputs.feeds);
+    urls = (import ./newsboat-public.nix) ++ (import inputs.feeds).rss;
     browser = pkgs.lynx.outPath + "/bin/lynx";
     reloadThreads = 100;
     queries = {
diff --git a/home/packages.nix b/home/packages.nix
index 6182ad3..e408c21 100644
--- a/home/packages.nix
+++ b/home/packages.nix
@@ -4,6 +4,7 @@ let
     naersk = pkgs.callPackage inputs.naersk {};
     extras = {
         sfz = naersk.buildPackage inputs.sfz;
+        almanac = naersk.buildPackage inputs.almanac;
         leylines = pkgs.callPackage "${(pkgs.fetchgit {
             url = "https://gitlab.infra4future.de/stuebinm/leylines";
             sha256 = "sha256-zhUYAqa8qEa+2VvLU2/BRQ/0RV95/3UTU/nvybopZ7A=";
@@ -44,7 +45,7 @@ in
     tree dnsutils inetutils pijul bat age libsecret gping bottom dogdns
     cifs-utils jekyll fzf ripgrep fd bandwhich exa dive
     ripgrep python39Packages.isort shellcheck graphviz
-    poppler unzip acpi extras.sfz viu extras.leylines
+    poppler unzip acpi extras.sfz extras.almanac viu extras.leylines
     youtube-dl
     # git
     gitAndTools.gitAnnex git-bug git-appraise
@@ -57,7 +58,7 @@ in
     haskellPackages.hoogle haskellPackages.stylish-haskell
     # other functional things
     racket dhall lean dune_2 ocamlPackages.utop ocamlPackages.ocp-indent
-    ocamlPackages.merlin ocaml
+    ocamlPackages.merlin ocaml gauche
     # html, js & co
     jq html-tidy nodePackages.stylelint nodePackages.js-beautify zola
     # purescript
diff --git a/home/scripts/sync.scm b/home/scripts/sync.scm
new file mode 100755
index 0000000..a51b557
--- /dev/null
+++ b/home/scripts/sync.scm
@@ -0,0 +1,28 @@
+#!/usr/bin/env gosh
+
+;; download the given files to ~/.cache/feedsync under hashed filenames
+;; if the versions there are older than two hours
+
+(use util.match)
+(use gauche.process)
+
+
+(define targets
+  (cdr (command-line)))
+
+(define cachedir
+  (string-append (sys-getenv "HOME") "/.cache/feedsync"))
+
+(do-process `("mkdir" "-p" ,cachedir))
+
+(map (lambda (target)
+       (let ([cachefile (format "~a/~a.ics" cachedir (portable-hash target 0))])
+         (cond
+           [(not (file-exists? cachefile))
+            (do-process `("curl" ,target "-o" ,cachefile))]
+           [(< 7200 (- (sys-time) (sys-stat->mtime (sys-stat cachefile))))
+            (print (format "fetching ~a" target))
+            (do-process `("curl" ,target "-o" ,cachefile))]
+           [else
+            (display "time limit not yet exceeded")])))
+     targets)