Added autoconf to manage building and installation flow

.gitignore

@@ -1,6 +1,9 @@
+**/.*
+
 # emacs buffers and backup files
 **/*~
 **/*#
+**/.#*
 
 # elm buildfiles
 frontend/elm-stuff/
@@ -8,4 +11,10 @@ frontend/www/elm.js
 
 # backend logs and data
 backend/*.log
-backend/repo/
+backend/repo/
+
+# autoconf products
+**/Makefile
+configure.scan
+config.log
+config.status

Makefile

@@ -1,15 +0,0 @@
-
-ELM := $(shell command -v elm 2>/dev/null)
-GUILE := $(shell command -v guile 2>/dev/null)
-ART := $(shell command -v art)
-ifndef ELM
-ELM = $(error "elm installation not found in PATH")
-endif
-ifndef GUILE
-GUILE = $(error "guile installation not found in PATH")
-endif
-ifndef ART
-ART = $(error "artanis installation not found in PATH")
-endif
-
-ELM_TARGET = frontend/www/elm.js

Makefile.in

@@ -0,0 +1,22 @@
+
+.PHONY: all back front install
+
+all: back front
+
+back:
+	cd backend && ${MAKE}
+
+front:
+	cd frontend && ${MAKE}
+
+@public_dir@:
+	cd frontend && ${MAKE} install
+
+@nginx_config@: m4/environment.m4 nginx/yacswa.conf.m4
+	 m4 m4/environment.m4 nginx/yacswa.conf.m4 > @nginx_config@
+
+install: @public_dir@ @nginx_config@
+
+up: install
+	sudo $(LN_S) /etc/nginx/sites_available/yacswa.conf /etc/nginx/sites_enabled/
+        cd backend && ${MAKE} up

backend/Makefile.in

@@ -0,0 +1,20 @@
+
+.PHONY: all deps tk csv up down
+
+all: deps
+
+deps: tk csv
+
+tk:
+	cd deps/guile-toolkit && ${MAKE} && sudo ${MAKE} install
+
+csv:
+	cd deps/guile-csv && ${MAKE} && sudo ${MAKE} install
+
+up: deps .backend.lock
+
+.backend.lock: main.scm
+	@nohup $(GUILE) ./main.scm > yacswa-backend.log & export PID=$$! & echo "Server spawned with PID $${PID}"; echo $${PID} > .backend.lock; unset PID
+
+down:
+	@export PID=`cat .backend.lock`; kill -15 $${PID}; rm .backend.lock; rm bc; echo "Server on PID $${PID} down."; unset PID

backend/deps/guile-csv

@@ -1 +1 @@
-Subproject commit ac87ac1294de72a6bbc84b0eb68a605d17058796
+Subproject commit 0b20cd490312de9154d023bc8627e3c90bb5845a

backend/deps/guile-toolkit

@@ -1 +1 @@
-Subproject commit bd06431dc8d878440f6eb2853543252434fad736
+Subproject commit 0d1e98c17262ba7c85b2427cdca54ebe401200e9

backend/main.scm

@@ -1,6 +1,10 @@
 
 (use-modules (artanis artanis)
 	     (csv csv)
+             (git bindings)
+             (git clone)
+             (git repository)
+             (git remote)
              (ice-9 popen)
              (ice-9 regex)
              (ice-9 string-fun)
@@ -18,6 +22,7 @@
 
 (include "./src/debugging.scm")
 (include "./src/repo.scm")
+(git:init)
 (include "./src/associations.scm")
 (include "./src/scheduler.scm")
 (include "./src/spawn_interaction.scm")

backend/src/repo.scm

@@ -1,6 +1,3 @@
-(use-modules (git clone)
-             (git repository)
-             (git remote))
 
 (define %new-repo-url "https://github.com/ccodwg/CovidTimelineCanada")
 (define %repo-url "https://github.com/ccodwg/Covid19Canada.git")
@@ -27,5 +24,7 @@
       (init-repo)))
 
 (define (git:init)
+  (libgit2-init!)
   (if (not (repo-exists?))
       (init-repo)))
+

backend/src/scheduler.scm

@@ -91,7 +91,7 @@
                      (prov-terse . ,(assq-ref plist 'prov-code))
                      (last-7 . ,(sum-first-n 7 (assq-ref plist 'reports)))
                      (last-14 . ,(sum-first-n 14 (assq-ref plist 'reports)))))))
-       (set-symbol-property! hr-sym 'json-string json-esc)))
+       (set-symbol-property! hr-sym 'json-string json)))
    hr-syms))
 
 ;;Update Thread

configure.in

@@ -0,0 +1,28 @@
+#                                               -*- Autoconf -*-
+# Process this file with autoconf to produce a configure script.
+
+AC_PREREQ([2.72])
+AC_INIT([Yet Another Covid Statistics Web App], [1.0], [me@bradymcd.ca])
+
+# Pull in environment variables
+AC_SUBST([server_name], [yacswa.home])
+AC_SUBST([public_dir], [/srv/yacswa.home])
+AC_SUBST([nginx_config], [yacswa.home.conf])
+
+# Checks for programs.
+AC_PROG_MAKE_SET
+AC_CHECK_PROG(GUILE, [guile], [guile], [no])
+test "$GUILE" == "no" && AC_MSG_ERROR([Guile's interpreter: 'guile' not found.])
+AC_CHECK_PROG(GUILD, [guild], [guild], [no])
+test "$GUILD" == "no" && AC_MSG_ERROR([Guile's compiler: 'guild' not found.])
+AC_CHECK_PROG(ART, [art], [art], [no])
+test "$ART" == "no" && AC_MSG_ERROR([Guile Artanis webserver: 'art' not found.])
+AC_CHECK_PROG(ELM, [elm], [elm], [no])
+test "$ELM" == "no" && AC_MSG_ERROR([Elm's compiler: 'elm' not found.])
+AC_PROG_LN_S
+
+
+AC_CONFIG_FILES([Makefile
+                 backend/Makefile
+                 frontend/Makefile])
+AC_OUTPUT

frontend/Makefile.in

@@ -0,0 +1,16 @@
+
+.PHONY: all
+
+all: www/elm.js
+
+www/elm.js:
+	$(ELM) make src/Main.elm --output=www/elm.js
+
+install: www/elm.js @public_dir@
+
+@public_dir@:
+	mkdir @public_dir@
+	cp ./www/ @public_dir@
+
+uninstall:
+	rm -rf @public_dir@

frontend/www/elm-local-storage-ports.js

@@ -1,79 +1,80 @@
-var ElmLocalStoragePorts = function() {};
+const ElmLocalStoragePorts = function () {}
+const localStorage = window.localStorage
 
 ElmLocalStoragePorts.prototype.subscribe =
-    function(app, getPortName, setPortName, clearPortName, responsePortName, listKeysPortName) {
-        if (!getPortName) getPortName = "getItem";
-        if (!setPortName) setPortName = "setItem";
-        if (!clearPortName) clearPortName = "clear";
-        if (!listKeysPortName) listKeysPortName = "listKeys";
-        if (!responsePortName) responsePortName = "response";
+    function (app, getPortName, setPortName, clearPortName, responsePortName, listKeysPortName) {
+      if (!getPortName) getPortName = 'getItem'
+      if (!setPortName) setPortName = 'setItem'
+      if (!clearPortName) clearPortName = 'clear'
+      if (!listKeysPortName) listKeysPortName = 'listKeys'
+      if (!responsePortName) responsePortName = 'response'
 
-        if (app.ports[responsePortName]) {
-            var responsePort = app.ports[responsePortName];
+      if (app.ports[responsePortName]) {
+        const responsePort = app.ports[responsePortName]
 
-            if (app.ports[getPortName]) {
-                app.ports[getPortName].subscribe(function(key) {
-                    var val = null;
-                    try {
-                        val = JSON.parse(localStorage.getItem(key))
-                    } catch (e) {}
-                    responsePort.send({
-                        key:key,
-                        value:val
-                    })
-                });
-            } else {
-                console.warn(getPortName + ": This port is not connected.");
-            }
+        if (app.ports[getPortName]) {
+          app.ports[getPortName].subscribe(function (key) {
+            let val = null
+            try {
+              val = JSON.parse(localStorage.getItem(key))
+            } catch (e) {}
+            responsePort.send({
+              key,
+              value: val
+            })
+          })
+        } else {
+          console.warn(getPortName + ': This port is not connected.')
+        }
 
-            if (app.ports[setPortName]) {
-                app.ports[setPortName].subscribe(function(kv) {
-                    var key = kv[0];
-                    var json = kv[1];
-                    if (json === null) {
-                        localStorage.removeItem(key);
-                    } else {
-                        localStorage.setItem(key, JSON.stringify(json));
-                    }
-                });
+        if (app.ports[setPortName]) {
+          app.ports[setPortName].subscribe(function (kv) {
+            const key = kv[0]
+            const json = kv[1]
+            if (json === null) {
+              localStorage.removeItem(key)
             } else {
-                console.warn(setPortName + ": This port is not connected.");
+              localStorage.setItem(key, JSON.stringify(json))
             }
+          })
+        } else {
+          console.warn(setPortName + ': This port is not connected.')
+        }
 
-            if (app.ports[clearPortName]) {
-                app.ports[clearPortName].subscribe(function(prefix) {
-                    if (prefix) {
-                        var cnt = localStorage.length;
-                        for (var i = cnt - 1; i >= 0; --i) {
-                            var key = localStorage.key(i);
-                            if (key && key.startsWith(prefix)) {
-                                localStorage.removeItem(key);
-                            }
-                        }
-                    } else {
-                        localStorage.clear();
-                    }
-                });
+        if (app.ports[clearPortName]) {
+          app.ports[clearPortName].subscribe(function (prefix) {
+            if (prefix) {
+              const cnt = localStorage.length
+              for (let i = cnt - 1; i >= 0; --i) {
+                const key = localStorage.key(i)
+                if (key && key.startsWith(prefix)) {
+                  localStorage.removeItem(key)
+                }
+              }
             } else {
-                console.warn(clearPortName + ": This port is not connected.");
+              localStorage.clear()
             }
+          })
+        } else {
+          console.warn(clearPortName + ': This port is not connected.')
+        }
 
-            if (app.ports[listKeysPortName]) {
-                app.ports[listKeysPortName].subscribe(function(prefix) {
-                    var cnt = localStorage.length;
-                    var keys = [];
-                    for (var i = 0; i < cnt; i++) {
-                        var key = localStorage.key(i);
-                        if (key && key.startsWith(prefix)) {
-                            keys.push(key);
-                        }
-                    }
-                    responsePort.send(keys);
-                });
-            } else {
-                console.warn(listKeysPortName + ": This port is not connected.");
+        if (app.ports[listKeysPortName]) {
+          app.ports[listKeysPortName].subscribe(function (prefix) {
+            const cnt = localStorage.length
+            const keys = []
+            for (let i = 0; i < cnt; i++) {
+              const key = localStorage.key(i)
+              if (key && key.startsWith(prefix)) {
+                keys.push(key)
+              }
             }
+            responsePort.send(keys)
+          })
         } else {
-            console.warn(responsePortName + ": This port is not connected.");
+          console.warn(listKeysPortName + ': This port is not connected.')
         }
-    };
+      } else {
+        console.warn(responsePortName + ': This port is not connected.')
+      }
+    }

nginx/yacswa.conf.m4

@@ -0,0 +1,30 @@
+
+server {
+    listen 80;
+    listen [::]:80;
+
+    server_name @server_name@ www.@server_name@;
+
+    root _PUBLIC_DIR_;
+    try_files $uri $uri/ /not_found;
+
+    location /json/pc {
+        proxy_pass 127.0.0.1:1665/json/pc
+    }
+
+    location /json/hr {
+        proxy_pass 127.0.0.1:1665/json/hr
+    }
+
+    location /json/batch {
+        proxy_pass 127.0.0.1:1665/json/batch
+    }
+
+    location /update {
+        proxy_pass 127.0.0.1:1665/update
+    }
+
+    location /not_found {
+        return 404;
+    }
+}