(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/

"))