solarpunk-guile
/
guile-reflow
3
0
Fork 0
Code Issues Pull Requests Releases 1 Activity

remove pks

This commit is contained in:
Vivianne 2024-02-28 19:26:55 -05:00
parent d3715cb8a1
commit b40011ca7c
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
reflow/ansi.scm
View File

@ -11,7 +11,6 @@
(define (ansi-terminator? char)
(let ((c (char->integer char)))
(pk c)
(or (and (>= c #x40) (<= c #x5a)) (and (>= c #x61) (<= c #x7a)))))
;; TODO: create helpers that allow the reflow to operate properly.
@ -21,7 +20,6 @@
(define sequence-port #f)
(define sequence-port-get-bv #f)
(define (reset-sequence-port!)
(pk "Resetting seq port")
(define-values (p get)
(open-bytevector-output-port))
(set! sequence-port p)
@ -33,7 +31,6 @@
(define last-seq-port #f)
(define last-seq-port-get-bv #f)
(define (reset-last-seq-port!)
(pk "Resetting LAST seq port")
(define-values (p get)
(open-bytevector-output-port))
(set! last-seq-port p)
@ -50,14 +47,12 @@
(define (put-char c)
(cond
((equal? %MARKER-CHAR c)
(pk "start esc seq" c)
(set! in-escape-sequence? #t)
(set! sequence? #t)
(display c sequence-port))
(in-escape-sequence?
(display c sequence-port)
(when (ansi-terminator? c)
(pk "terminator found, no longer in esc seq:" c)
(set! in-escape-sequence? #f)
(let* ((bv (sequence-port-get-bv))
(sequence (and bv (bytevector->string bv (native-transcoder)))))
@ -68,12 +63,10 @@
(cond
((string-suffix? %RESET sequence)
;; Reset sequence, clear the saved sequence!
(pk "reset seq found")
(reset-last-seq-port!)
(set! sequence? #f))
((equal? c #\m)
;; color code, put the sequence into the last-seq port!
(pk "end of color code")
(put-bytevector last-seq-port bv)
(set! cached-sequence #f)))
@ -100,10 +93,9 @@
(define (last-sequence)
(and sequence?
(or cached-sequence
(pk
(let ((seq (bytevector->string (last-seq-port-get-bv) (native-transcoder))))
(set! cached-sequence seq)
seq)))))
(let ((seq (bytevector->string (last-seq-port-get-bv) (native-transcoder))))
(set! cached-sequence seq)
seq))))
(define (reset-ansi)
(when sequence?