1bf17a7 · typeable/pandoc

git.iko.soy/typeable/pandoc

Ms writer: boldface definition terms in DefinitionLists.

Like LaTeX, ConTeXt.

commit1bf17a7c876fe5070d3bec0cc307c4d3686f3a15 authorJohn MacFarlane <jgm@berkeley.edu> dateSat 16 Nov 2019, 19:01 (7 years ago) parent0cea8df

2 files changed+19−18

compare with master

unifiedsplit

src/Text/Pandoc/Writers/Ms.hs+2−1 test/writer.ms+17−17

src/Text/Pandoc/Writers/Ms.hs+2−1

@@ -308,7 +308,8 @@ definitionListItemToMs :: PandocMonad m

308308 -> ([Inline],[[Block]])

309309 -> MS m (Doc Text)

310310definitionListItemToMs opts (label, defs) = do

311− labelText <- inlineListToMs' opts $ map breakToSpace label

311+ labelText <- withFontFeature 'B' $

312+ inlineListToMs' opts $ map breakToSpace label

312313 contents <- if null defs

313314 then return empty

314315 else liftM vcat $ forM defs $ \blocks -> do

test/writer.ms+17−17

@@ -445,55 +445,55 @@ Definition Lists

445445.pdfhref M "definition-lists"

446446.LP

447447Tight using spaces:

448−.IP "apple"

448+.IP "\f[B]apple\f[R]"

449449red fruit

450450.RS

451451.RE

452−.IP "orange"

452+.IP "\f[B]orange\f[R]"

453453orange fruit

454454.RS

455455.RE

456−.IP "banana"

456+.IP "\f[B]banana\f[R]"

457457yellow fruit

458458.RS

459459.RE

460460.LP

461461Tight using tabs:

462−.IP "apple"

462+.IP "\f[B]apple\f[R]"

463463red fruit

464464.RS

465465.RE

466−.IP "orange"

466+.IP "\f[B]orange\f[R]"

467467orange fruit

468468.RS

469469.RE

470−.IP "banana"

470+.IP "\f[B]banana\f[R]"

471471yellow fruit

472472.RS

473473.RE

474474.LP

475475Loose:

476−.IP "apple"

476+.IP "\f[B]apple\f[R]"

477477red fruit

478478.RS

479479.RE

480−.IP "orange"

480+.IP "\f[B]orange\f[R]"

481481orange fruit

482482.RS

483483.RE

484−.IP "banana"

484+.IP "\f[B]banana\f[R]"

485485yellow fruit

486486.RS

487487.RE

488488.LP

489489Multiple blocks with italics:

490−.IP "\f[I]apple\f[R]"

490+.IP "\f[B]\f[BI]apple\f[B]\f[R]"

491491red fruit

492492.RS

493493.PP

494494contains seeds, crisp, pleasant to taste

495495.RE

496−.IP "\f[I]orange\f[R]"

496+.IP "\f[B]\f[BI]orange\f[B]\f[R]"

497497orange fruit

498498.RS

499499.IP

@@ -509,14 +509,14 @@ orange block quote

509509.RE

510510.LP

511511Multiple definitions, tight:

512−.IP "apple"

512+.IP "\f[B]apple\f[R]"

513513red fruit

514514.RS

515515.RE

516516computer

517517.RS

518518.RE

519−.IP "orange"

519+.IP "\f[B]orange\f[R]"

520520orange fruit

521521.RS

522522.RE

@@ -525,14 +525,14 @@ bank

525525.RE

526526.LP

527527Multiple definitions, loose:

528−.IP "apple"

528+.IP "\f[B]apple\f[R]"

529529red fruit

530530.RS

531531.RE

532532computer

533533.RS

534534.RE

535−.IP "orange"

535+.IP "\f[B]orange\f[R]"

536536orange fruit

537537.RS

538538.RE

@@ -541,14 +541,14 @@ bank

541541.RE

542542.LP

543543Blank line after term, indented marker, alternate markers:

544−.IP "apple"

544+.IP "\f[B]apple\f[R]"

545545red fruit

546546.RS

547547.RE

548548computer

549549.RS

550550.RE

551−.IP "orange"

551+.IP "\f[B]orange\f[R]"

552552orange fruit

553553.RS

554554.IP " 1." 4