42 lines
977 B
Racket
42 lines
977 B
Racket
#lang scribble/base
|
|
|
|
@;{ This test is mainly intended for checking Latex
|
|
rendering of box characters, but it should render
|
|
ok with text, too. }
|
|
|
|
@(define charss
|
|
'((#\┌ #\─ #\┐ #\│ #\└ #\┘ #\┬ #\├ #\┤ #\┼ #\┴)
|
|
(#\╔ #\═ #\╗ #\║ #\╚ #\╝ #\╦ #\╠ #\╣ #\╬ #\╩)
|
|
(#\┏ #\━ #\┓ #\┃ #\┗ #\┛ #\┳ #\┣ #\┫ #\╋ #\┻)))
|
|
|
|
@(define (adj-verbatim which . strs)
|
|
(define ht (for/hash ([c1 (in-list (car charss))]
|
|
[c2 (in-list (list-ref charss which))])
|
|
(values c1 c2)))
|
|
(apply verbatim
|
|
(for/list ([s (in-list strs)])
|
|
(list->string
|
|
(for/list ([c (in-string s)])
|
|
(hash-ref ht c c))))))
|
|
|
|
@verbatim{
|
|
┌┬─┐
|
|
├┤ │
|
|
└┼─┼┐
|
|
└─┴┘
|
|
}
|
|
|
|
@adj-verbatim[1]{
|
|
┌┬─┐
|
|
├┤ │
|
|
└┼─┼┐
|
|
└─┴┘
|
|
}
|
|
|
|
@adj-verbatim[2]{
|
|
┌┬─┐
|
|
├┤ │
|
|
└┼─┼┐
|
|
└─┴┘
|
|
}
|