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

add currently visited document, pre-rendering, to global state

Browse Source 
its becoming apparent that this doesn't need to be global state, and
can be passed from iteration to iteration in the program loop. this
shall be revisited
This commit is contained in:
w6vvn
2025-09-04 15:21:31 -07:00
parent ea9a3b8fb7
commit 38a420d649
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
gem300.rkt
View File

@@ -7,15 +7,20 @@
;; rendered out gemtext document as it shall be shown to the user ;; rendered out gemtext document as it shall be shown to the user
(define document-buffer null) (define document-buffer null)
;; global state which will be the document structure, before rendering
(define document null)
(define (go-cmd url) (define (go-cmd url)
(if (non-empty-string? url) (if (non-empty-string? url)
(let-values ([(status meta c-in) (net:get url)]) (let-values ([(status meta c-in) (net:get url)])
(let-values ([(document) (gmi:parse (port->lines c-in))] (let-values ([(doc) (gmi:parse (port->lines c-in))]
[(db-in db-out) (make-pipe #f)]) [(db-in db-out) (make-pipe #f)])
(set! document doc)
(set! document-buffer db-in) (set! document-buffer db-in)
(parameterize ([current-output-port db-out]) (parameterize ([current-output-port db-out])
(gmi:render document)) (gmi:render doc))
(let ([remaining (pipe-content-length db-in)]) (let ([remaining (pipe-content-length db-in)])
(printf "document retrieved. ~a bytes\n" remaining)) (printf "document retrieved. ~a bytes\n" remaining))