w6vvn/gem300
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

start firmly defining module boundaries for gmi parser

Browse Source
This commit is contained in:
w6vvn
2025-09-04 14:45:55 -07:00
parent c786466d65
commit 724dc95086
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
gmi.rkt
View File

@@ -1,9 +1,14 @@
#lang racket #lang racket
(provide parse render) (provide (contract-out
[render (-> document? void?)]
[parse (-> (listof string?) document?)]
[struct document ((structure (listof (or/c text? link? pre?))))]))
;; a gemtext document is represented as a list of structs, a struct ;; a gemtext document is represented as a list of structs, a struct
;; for each type of item in a document. ;; for each type of item in a document.
(struct document (structure))
(struct text (str)) (struct text (str))
(struct link (url str ord)) (struct link (url str ord))
(struct pre (str)) (struct pre (str))
@@ -87,7 +92,7 @@
'normal 'normal
link-#)]))) link-#)])))
(iter (list) lines 'normal 1)) (document (iter (list) lines 'normal 1)))
;;; ;;;
;;; RENDERING ;;; RENDERING
@@ -141,4 +146,4 @@
[(link? line) [(link? line)
(printf "[~a] ~a\n" (link-ord line) (link-str line))])) (printf "[~a] ~a\n" (link-ord line) (link-str line))]))
document)) (document-structure document)))