diff options
author | Duncan Wilkie <antigravityd@gmail.com> | 2023-09-21 18:32:10 -0500 |
---|---|---|
committer | Duncan Wilkie <antigravityd@gmail.com> | 2023-09-21 18:32:10 -0500 |
commit | 55876d63a3c037da975df21e0cd8e337902195d7 (patch) | |
tree | 47659224673bbd2ef2ee0bd8205540558f085465 /dnw/forms.scm~ | |
parent | 78c78126b8a0f3a666127cc7088844604e6f2456 (diff) |
Remove garbage
Diffstat (limited to 'dnw/forms.scm~')
-rw-r--r-- | dnw/forms.scm~ | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/dnw/forms.scm~ b/dnw/forms.scm~ deleted file mode 100644 index 99813a7..0000000 --- a/dnw/forms.scm~ +++ /dev/null @@ -1,22 +0,0 @@ -(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/ - -")) |