rhi
/
lang
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

use .ipa on gloss pronunciation

This commit is contained in:
Rhiannon Morris 2021-04-28 12:34:32 +02:00
parent 7234ad089e
commit 3aba096598
2 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
langfilter/langfilter.hs
View File

@ -52,6 +52,10 @@ glosses = \case
[RawBlock (Format "html") "</figure>"]
b -> [b]
pattern Gloss l g w t = BulletList [[Plain l], [Plain g], [Plain w], [Plain t]]
pattern PGloss l p g w t =
BulletList [[Plain l], [Plain p], [Plain g], [Plain w], [Plain t]]
glossTable :: Block -> Maybe Block
glossTable = \case
Gloss l s g t -> Just $ make l Nothing s g t
@ -68,16 +72,16 @@ glossTable = \case
Table ("", ["gloss"], []) (Caption Nothing []) colspecs
(TableHead mempty [])
[TableBody mempty (RowHeadColumns 0) [] $ concat
[[row "gloss-lang" [l']],
maybe [] (pure . row "gloss-pron" . pure) p',
[row "gloss-split" ss],
[row "gloss-gloss" gs],
[row "gloss-trans" [t']]]]
[[row ["gloss-lang", "lang"] [l']],
maybe [] (pure . row ["gloss-pron", "ipa"] . pure) p',
[row ["gloss-split", "lang"] ss],
[row ["gloss-gloss"] gs],
[row ["gloss-trans"] [t']]]]
(TableFoot mempty [])
cell is = Cell mempty AlignDefault (RowSpan 1) (ColSpan 1) [Plain is]
cell1 n is = Cell mempty AlignDefault (RowSpan 1) (ColSpan n) [Plain is]
cells = map (cell . concatMap abbrs) . splitInlines
row c = Row ("", [c], [])
row c = Row ("", c, [])
endash :: Text -> Text
endash = Text.map \case '-' -> '–'; '_' -> ' '; c -> c
@ -102,10 +106,6 @@ splitInlines is = filter (not . null) $ go is where
let (is1, is') = break (== Space) is in
fromList is1 : splitInlines (dropWhile (== Space) is')
pattern Gloss l g w t = BulletList [[Plain l], [Plain g], [Plain w], [Plain t]]
pattern PGloss l p g w t =
BulletList [[Plain l], [Plain p], [Plain g], [Plain w], [Plain t]]
makeFigures :: Block -> [Block]
makeFigures (Div ("", ["figure"], []) blks) =

4
style/page.css
View File

@ -164,10 +164,6 @@ figure table {
border: none;
text-align: left;
}
.gloss-lang, .gloss-pron, .gloss-split {
font-family: var(--ipa-font);
line-height: 115%;
}
figure ul {
text-align: left;