suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

add table-row-skip to latex-properties

Browse Source
This commit is contained in:
Matthew Flatt 2020-02-27 13:49:08 -07:00
parent ed02550d1a
commit 66c4c50f47
4 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
scribble-doc/scribblings/scribble/core.scrbl
View File

@ -1961,3 +1961,14 @@ arguments to the element's command in Latex output.}
@history[#:added "1.20"]
}
@defstruct[table-row-skip ([amount string?])]{
Used as a @tech{style property} in @racket[table-cells] to specify a
spacing adjustment between the cell's row and the row afterward, such
as @racket["1ex"] to increase the space or @racket["-1ex"] to
decrease it. If multiple cells on a row provide this property, the
first one in the row is used.
@history[#:added "1.33"]
}

2
scribble-lib/info.rkt
View File

@ -23,4 +23,4 @@
(define pkg-authors '(mflatt eli))
(define version "1.32")
(define version "1.33")

3
scribble-lib/scribble/latex-properties.rkt
View File

@ -12,4 +12,5 @@
([replacements (hash/c string? (or/c bytes? path-string? (cons/c 'collects (listof bytes?))))])]
[command-extras ([arguments (listof string?)])]
[command-optional ([arguments (listof string?)])]
[short-title ([text (or/c string? #f)])])
[short-title ([text (or/c string? #f)])]
[table-row-skip ([amount string?])])

7
scribble-lib/scribble/latex-render.rkt
View File

@ -836,7 +836,12 @@
(not (for/or ([cell-style (in-list cell-styles)])
(or (memq 'bottom-border (style-properties cell-style))
(memq 'border (style-properties cell-style)))))))
(printf " \\\\\n"))
(let ([row-skip (for/or ([cell-style (in-list cell-styles)])
(for/or ([prop (style-properties cell-style)])
(and (table-row-skip? prop) prop)))])
(printf " \\\\~a\n" (if row-skip
(format "[~a]" (table-row-skip-amount row-skip))
""))))
(cond
[(null? rest-blockss)
(unless index? (add-clines cell-styles #f))]