Testing automatic git ops

1 files changed, 22 insertions, 0 deletions

diff --git a/dnw/forms.scm~ b/dnw/forms.scm~
new file mode 100644
index 0000000..99813a7
--- /dev/null
+++ b/dnw/forms.scm~
@@ -0,0 +1,22 @@
+(define-module (dnw forms.el-to-html))
+
+;; Idea: function that takes in a git repository link pointing to something containing a forms file pair,
+;; and reads it in along with a mapping between whatever Elisp functions you use in forms-format-list
+;; and equivalent Scheme implementations (bc I can't figure out how to programmatically use Guile's Elisp support).
+
+(define (forms.el->shtml git-link))
+
+(define (forms.el-parse file)
+  (define-peg-string-patterns
+    "form-control-file <- (comment/whitespace/setq)+
+comment < ';' (!'\n')* '\n'
+whitespace < [\r\n\t ]+
+setq < '(' whitespace? 'setq' whitespace name-val-pair whitespace? ')'
+
+name-val-pair <- forms-file/forms-format-list/forms-number-of-fields/forms-field-sep
+/forms-read-only/forms-multi-line/forms-read-file-filter/forms-write-file-filter
+/forms-new-record-filter/forms-insert-after/forms-check-number-of-fields
+
+value <- string/quoted/
+
+"))