{"size": 815, "ext": "scrbl", "max_stars_repo_path": "scribble-test/tests/scribble/docs/box-chars.scrbl", "max_stars_repo_name": "cwebber/scribble", "max_stars_repo_stars_event_min_datetime": "2015-01-11T18:19:42.000Z", "max_stars_repo_stars_event_max_datetime": "2022-03-31T08:45:52.000Z", "max_issues_repo_path": "scribble-test/tests/scribble/docs/box-chars.scrbl", "max_issues_repo_name": "cwebber/scribble", "max_issues_repo_issues_event_min_datetime": "2015-03-24T20:53:21.000Z", "max_issues_repo_issues_event_max_datetime": "2022-02-20T22:51:57.000Z", "max_forks_repo_path": "scribble-test/tests/scribble/docs/box-chars.scrbl", "max_forks_repo_name": "cwebber/scribble", "max_forks_repo_forks_event_min_datetime": "2015-03-09T12:23:06.000Z", "max_forks_repo_forks_event_max_datetime": "2022-03-07T15:00:13.000Z"}
{"max_stars_count": 161, "max_issues_count": 260, "max_forks_count": 103, "avg_line_length": 19.4047619048, "max_line_length": 63, "alphanum_fraction": 0.3889570552}
#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]{
┌┬─┐
├┤ │
└┼─┼┐
 └─┴┘
 }
