blob: 99813a7fcc4562596b76a30b6d0cf4dcad27eb44 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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/
"))
|