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

correct a logical error that would lead to merging unrelated preformatted blocks

Browse Source
This commit is contained in:
w6vvn
2025-09-01 20:34:59 -07:00
parent 1fab00d3a2
commit 75d833949c
1 changed files with 10 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
gem300.rkt
View File

@@ -41,7 +41,6 @@
;; add line to most recent preformat block ;; add line to most recent preformat block
[(symbol=? 'preformatted state) [(symbol=? 'preformatted state)
(if (preformatted? (car document))
;; little bit hard to follow: take the existing ;; little bit hard to follow: take the existing
;; preformatted blocks content, cons the new line; ;; preformatted blocks content, cons the new line;
;; then, cons the new preformatted block to the cdr of ;; then, cons the new preformatted block to the cdr of
@@ -50,11 +49,7 @@
(preformatted-str (car document)))) (preformatted-str (car document))))
(cdr document)) (cdr document))
(cdr lines) (cdr lines)
'preformatted) 'preformatted)]
(iter (cons (preformatted (list)) document)
(cdr lines)
'preformatted))]
;; rest of this is normal mode ;; rest of this is normal mode
@@ -68,7 +63,7 @@
;; preformatting toggle lines ;; preformatting toggle lines
[(string-prefix? (car lines) "```") [(string-prefix? (car lines) "```")
;; add preformatted block to document and toggle mode ;; add preformatted block to document and toggle mode
(iter document (iter (cons (preformatted (list)) document)
(cdr lines) (cdr lines)
'preformatted)] 'preformatted)]