Init bizbot

3 files changed, 122 insertions, 1 deletions

diff --git a/Biz/Bild/ShellHook.sh b/Biz/Bild/ShellHook.sh
index f2c2470..5be96ae 100644
--- a/Biz/Bild/ShellHook.sh
+++ b/Biz/Bild/ShellHook.sh
@@ -21,6 +21,8 @@ NC='\033[0m' # No Color
 
 alias runghc="runghc --ghc-arg=-i$BIZ_ROOT"
 
+alias guile="guile -L $BIZ_ROOT"
+
 alias tree="tree -I _"
 
 # link git hooks
diff --git a/Biz/Bot.nix b/Biz/Bot.nix
new file mode 100644
index 0000000..93aa2e6
--- /dev/null
+++ b/Biz/Bot.nix
@@ -0,0 +1,68 @@
+{ options
+, lib
+, config
+, pkgs
+, modulesPath
+}:
+
+let
+  cfg = config.services.bizbot;
+in
+{
+  options.services.bizbot = {
+    enable = lib.mkEnableOption "Enable the bizbot service";
+    package = lib.mkOption {
+      type = lib.types.package;
+      description = "bizbot package to use";
+    };
+    server = lib.mkOption {
+      type = lib.types.str;
+      description = "server address to connect to";
+    };
+    channel = lib.mkOption {
+      type = lib.types.str;
+      description = "channel to join";
+    };
+    dataDir = lib.mkOption {
+      type = lib.types.str;
+      description = "where bizbot will start it's ii tree";
+    };
+  };
+  config = lib.mkIf cfg.enable {
+    systemd.services = {
+      bizbot-${cfg.server}-${cfg.channel}-ii = {
+        wantedBy = [ "multi-user.target" ];
+        path = [ pkgs.ii ];
+        script = ''
+          ${pkgs.ii}/bin/ii ${cfg.dataDir}/irc -s ${cfg.server} -p 6667 -n bizbot
+        '';
+        postStart = ''
+          echo "/join ${cfg.channel}" > ${cfg.dataDir}/irc/${cfg.server}/in
+        '';
+        description = ''
+          bizbot ii tree for ${cfg.server}/${cfg.channel}
+        '';
+
+      };
+      bizbot-${cfg.server}-${cfg.channel} = {
+        path = [ cfg.package ];
+        wantedBy = [ "multi-user.target" ];
+        after = [ "bizbot-${cfg.server}-${cfg.channel}-ii.service" ];
+        script = ''
+          tail -f ${cfg.dataDir}/irc/${cfg.server}/${cfg.channel}/out \
+            | ${cfg.package}/bin/bizbot \
+            | tee -a ${cfg.dataDir}/irc/${cfg.server}/${cfg.channel}/in
+        '';
+        description = ''
+          bizbot for ${cfg.server}/${cfg.channel}
+        '';
+        serviceConfig = {
+          KillSignal = "INT";
+          Type = "simple";
+          Restart = "on-abort";
+          RestartSec = "1";
+        };
+      };
+    };
+  };
+}
diff --git a/Biz/Bot.scm b/Biz/Bot.scm
index 7ed413a..dec654c 100644
--- a/Biz/Bot.scm
+++ b/Biz/Bot.scm
@@ -1,4 +1,55 @@
+;; Usage with ii:
+;;
+;;     tail -f \#biz/out | guile -L $BIZ_ROOT -s Biz/Bot.scm
 
+(import (ice-9 rdelim))
+(import (ice-9 match))
+(import (ice-9 regex))
+(import (ice-9 receive))
 
+(import (bs core))
+(import (prefix (bs string) string.))
 
-(display "hello")
+(define (log msg)
+  (display msg (current-error-port)))
+
+(define (is-command? msg)
+  (string.prefix? msg "bizbot:"))
+
+(define (parse-line line)
+  (if (eof-object? line)
+    (exit)
+    (let ([matches (regexp-exec
+                     (make-regexp "<(\\S*)>(.*)" regexp/extended)
+                     (string-drop line 11))])
+      (if matches
+          `(user
+             ,(match:substring matches 1)
+             ,(string.lstrip (match:substring matches 2) #\space))
+          `(system ,(string-drop line 11))))))
+
+(define (dispatch user msg)
+  (let ([msg (-> msg
+                 (string-drop (string-length "bizbot:"))
+                 (string.lstrip #\space))])
+    (cond
+      ((equal? msg "hi")
+       (display (fmt "~a: well, hello!" user)))
+
+      (else
+        (display (fmt "command not understood: ~a" msg))))))
+
+(while #t
+  (match (parse-line (read-line))
+    [('user user msg)
+     (if (is-command? msg)
+       (dispatch user msg)
+       (begin
+        (log (fmt "user: ~a " user))
+        (log (fmt "message: ~a" msg))))]
+
+    [('system msg)
+      (log (fmt "system: ~a" msg))])
+
+  (newline)
+  (force-output))