1 files changed, 40 insertions, 2 deletions

@@ -1,5 +1,43 @@
-(use-modules (ice-9 peg)
-             (ice-9 match))
+#!/bin/sh
+#| -*- scheme -*-
+exec guile -e main -s "$0" "$@"
+
+Flat Fuck Format
+--- a new configuration format, because who doesn't need that?
+
+Copyright (C) 2023 Case Duckworth <acdw@acdw.net>
+
+Everyone is permitted to do whatever with this software, without
+limitation.  This software comes without any warranty whatsoever,
+but with two pieces of advice:
+
+- Don't hurt yourself.
+- Make good choices.
+
+Commentary:
+
+This script will convert files defined in the Flat Fuck Format (fff) into json.
+It will not convert anything back to fff.  fff is explicitly made to be as
+simple as possible, and exclusively human-written.  If a machine writes your
+configuration, ... use a better configuration format.  Or make your program
+scriptable!
+
+FLAT FUCK FORMAT : Specification
+|#
+!#
+
+(define-module (fff)
+  #:use-module (ice-9 peg)
+  #:use-module (ice-9 match)
+  #:use-module (srfi srfi-11)
+  #:version (0 1 0)
+  #:export (fff
+            fff?
+            fff/comments?
+            fff->scm))
+
+
+;;; PEG Grammar
 
 (define-peg-pattern fff all
   (and (* (or WHITESPACE NEWLINE))