misc-deps
/
raart
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix bolding/etc

This commit is contained in:
Jay McCarthy 2019-07-12 18:37:46 -06:00
parent a7f914acf4
commit 46758aa583
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
buffer.rkt
View File

@ -26,7 +26,9 @@
(define color/c (apply or/c #f (hash-keys symbol->color))) (define color/c (apply or/c #f (hash-keys symbol->color)))
(define (select-style* s) (define (select-style* s)
(A:select-graphic-rendition (hash-ref symbol->style s))) (define (k s) (A:select-graphic-rendition (hash-ref symbol->style s)))
(if (eq? s 'normal) (k s)
(string-append (k 'normal) (k s))))
(define (select-text-color* c) (define (select-text-color* c)
(if c (if c
(A:select-xterm-256-text-color (hash-ref symbol->color c)) (A:select-xterm-256-text-color (hash-ref symbol->color c))
@ -59,7 +61,7 @@
(when (terminal-buffer-clear? buf) (when (terminal-buffer-clear? buf)
(display (A:clear-screen/home) op)) (display (A:clear-screen/home) op))
(display (A:hide-cursor) op) (display (A:hide-cursor) op)
(define last-s 'normal) (define last-s #f)
(define last-f #f) (define last-f #f)
(define last-b #f) (define last-b #f)
(define cur-r -1) (define cur-r -1)
@ -156,7 +158,7 @@
(values draw-rows draw-cols (draw-cell! cells))) (values draw-rows draw-cols (draw-cell! cells)))
(define (buffer-commit! buf #:cursor? [cursor? #t]) (define (buffer-commit! buf #:cursor? [cursor? #t])
(output-buffer-define buf) (output-buffer-define buf)
(for/fold ([last-s 'normal] [last-f #f] [last-b #f]) (for/fold ([last-s #f] [last-f #f] [last-b #f])
([row (in-vector (cells-vec cells))]) ([row (in-vector (cells-vec cells))])
(begin0 (begin0
(for/fold ([last-s last-s] [last-f last-f] [last-b last-b]) (for/fold ([last-s last-s] [last-f last-f] [last-b last-b])