Skip to content

Instantly share code, notes, and snippets.

@jgm

jgm/gist:1115661

Created July 30, 2011 15:45
Show Gist options
  • Save jgm/1115661 to your computer and use it in GitHub Desktop.
Save jgm/1115661 to your computer and use it in GitHub Desktop.
Download ZIP
HeX macro definition for \lettrine{T}{he}
Raw
gistfile1.hs
lettrine :: Format -> InlineDoc -> InlineDoc -> Doc
lettrine "html" (InlineDoc x) (InlineDoc y) =
inTags "span" [("class","lettrine")] x +++ y
lettrine "latex" (InlineDoc x) (InlineDoc y) =
ctl "lettrine" +++ grp [x] +++ grp [y]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment