27 lines
1.2 KiB
Scheme
Executable file
27 lines
1.2 KiB
Scheme
Executable file
(import (chicken format) srfi-18 fancy)
|
|
|
|
(define (main . args)
|
|
(display (rule "[bold green]Fancy demo" style: 'simple))
|
|
(display (parse-markup
|
|
"[bold red]Lorem ipsum[/bold red] dolor sit amet, [underline]consectetur[/underline] adipiscing elit, sed do
|
|
eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad
|
|
minim veniam, [cyan]quis nostrud exercitation [yellow]ullamco[/yellow] laboris[/cyan] nisi ut
|
|
aliquip ex ea commodo consequat. Duis aute irure dolor in
|
|
reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla
|
|
pariatur. [black on yellow]Excepteur sint [on red]occaecat[/on red] cupidatat non proident, sunt in
|
|
culpa qui officia deserunt mollit anim id est laborum."))
|
|
(display "\n\n")
|
|
|
|
(define tab (make-table '("[bold]#" "[bold]Name" "[bold]Property") '(3 20 20)))
|
|
(display (table-header tab))
|
|
(display (table-row tab "42" "[green]Foo" "Bar"))
|
|
(display (table-row tab "21" "[red]Toto" "Blublu"))
|
|
(display (table-footer tab))
|
|
(display "\n\n")
|
|
|
|
(let loop ((i 0))
|
|
(when (< i 20)
|
|
(display (spinner i "[yellow]Waiting:" (format "(computing ~a/20)" (add1 i))
|
|
style: 'dots))
|
|
(thread-sleep! 0.1)
|
|
(loop (add1 i)))))
|