solarpunk-guile/guile-termenv
3
0
Fork 1
Code Issues Pull requests Releases 1 Activity

Compare commits

base: solarpunk-guile:0e0c797a7391df98e958c2486db198406db120eb
Branches Tags
solarpunk-guile:main
solarpunk-guile:fix-repo-name
solarpunk-guile:updated-hex
solarpunk-guile:v0.1-117d81d691
...
compare: solarpunk-guile:fdb3e4f3a2b11b84885887e7f48a543f6dcceb5f
Branches Tags
solarpunk-guile:main
solarpunk-guile:fix-repo-name
solarpunk-guile:updated-hex
solarpunk-guile:v0.1-117d81d691

2 commits
0e0c797a73 ... fdb3e4f3a2

Author SHA1 Message Date
Vivianne Langdon
fdb3e4f3a2 Merge remote-tracking branch 'origin/main' 2024-02-29 09:37:47 -05:00
Vivianne Langdon
c18669e7b5 Tidying up style, and switch to display in one spot 2024-02-29 09:36:36 -05:00
1 changed files with 12 additions and 6 deletions
Show stats Expand all files Collapse all files

18
termenv/style.scm
View file

@ -51,7 +51,7 @@
(define (style->sequence style port) (define (style->sequence style port)
(define str (style-string style)) (define str (style-string style))
(define (just-str) (format port "~a" str)) (define (just-str) (display str port))
;; Color sequences aren't strings, so handle them specially ;; Color sequences aren't strings, so handle them specially
;; Colors don't get resolved until we have the port because we don't know the color profile until then. ;; Colors don't get resolved until we have the port because we don't know the color profile until then.
@ -72,12 +72,18 @@
(define (cons-seq stylish sequence) (define (cons-seq stylish sequence)
(match stylish (match stylish
((? string? str) (make-style str (list sequence))) ((? string? str)
((style) (cons-seq style sequence)) (make-style str (list sequence)))
((? list? l) (make-style-node (map (cut cons-seq <> sequence) l))) ((style)
((? style? style) (set-style-sequences style (cons* sequence (style-sequences style)))) (cons-seq style sequence))
((? list? l)
(make-style-node (map (cut cons-seq <> sequence) l)))
((? style? style)
(set-style-sequences style
(cons* sequence (style-sequences style))))
((? style-node? node) ((? style-node? node)
(set-style-node-children node (map (cut cons-seq <> sequence) (style-node-children node)))))) (set-style-node-children node
(map (cut cons-seq <> sequence) (style-node-children node))))))
(define (bold . s) (cons-seq s %BOLD)) (define (bold . s) (cons-seq s %BOLD))
(define (faint . s) (cons-seq s %FAINT)) (define (faint . s) (cons-seq s %FAINT))