pkgs/default.nix

@@ -91,6 +91,7 @@ in {
   odhcp-script = callPackage ./odhcp-script {};
   odhcp6c = callPackage ./odhcp6c {};
   openwrt = callPackage ./openwrt {};
+  output-template = callPackage ./output-template { };
   ppp = callPackage ./ppp {};
   pppoe = callPackage ./pppoe {};
   preinit = callPackage ./preinit {};

pkgs/output-template/Makefile

@@ -0,0 +1,3 @@
+check:
+	./output-template ./example-output/ '{{' '}}' < example.ini > output
+	diff -u output example.ini.expected

pkgs/output-template/default.nix

@@ -0,0 +1,34 @@
+{
+  fetchurl,
+  writeFennel,
+  fennel,
+  runCommand,
+  lua,
+  anoia,
+  linotify,
+  lualinux,
+  stdenv
+}:
+let name = "output-template";
+in stdenv.mkDerivation {
+  inherit name;
+  src = ./.;
+
+  buildInputs = [lua];
+  doCheck = true;
+
+  buildPhase = ''
+    cp -p ${writeFennel name {
+      packages = [
+        anoia
+        lualinux
+        linotify
+      ] ;
+      mainFunction = "run";
+    } ./output-template.fnl } ${name}
+  '';
+  checkPhase = "make check";
+  installPhase = ''
+    install -D ${name} $out/bin/${name}
+  '';
+}

pkgs/output-template/example-output/addresses/1/attribute

@@ -0,0 +1 @@
+a11

pkgs/output-template/example-output/addresses/3/attribute

@@ -0,0 +1 @@
+a33

pkgs/output-template/example-output/addresses/5/attribute

@@ -0,0 +1 @@
+a55

pkgs/output-template/example-output/addresses/6/attribute

@@ -0,0 +1 @@
+a66

pkgs/output-template/example-output/colours/black

@@ -0,0 +1 @@
+000000

pkgs/output-template/example-output/colours/blue

@@ -0,0 +1 @@
+0000ff

pkgs/output-template/example-output/colours/green

@@ -0,0 +1 @@
+00ff00

pkgs/output-template/example-output/colours/red

@@ -0,0 +1 @@
+ff0000

pkgs/output-template/example-output/name

@@ -0,0 +1 @@
+eth1

pkgs/output-template/example.ini

@@ -0,0 +1,2 @@
+wpa_passphrase={{ secret "colours/black"  }}
+think = {{ string.format("%q", secret("colours/blue")) }}

pkgs/output-template/example.ini.expected

@@ -0,0 +1,2 @@
+wpa_passphrase=000000
+think = "0000ff"

pkgs/output-template/output-template.fnl

@@ -0,0 +1,22 @@
+(local svc (require :anoia.svc))
+
+(fn substitute [text service opening closing]
+  (let [delim (.. opening "(.-)" closing)
+        myenv {
+               : string
+               :secret (fn [x] (service:output x))
+               :lua_quote #(string.format "%q" %1)
+               }]
+    (string.gsub text delim
+                 (fn [x]
+                   (assert ((load (.. "return " x) x :t myenv))
+                           (string.format "missing value for %q" x))))))
+
+(fn run []
+  (let [[service-dir opening closing] arg
+        service (assert (svc.open service-dir))
+        out  (substitute (: (io.input) :read "*a") service opening closing)]
+    (io.write out)))
+
+
+{ : run }