diff options
Diffstat (limited to 'tex/context/base/typo-fln.mkiv')
| -rw-r--r-- | tex/context/base/typo-fln.mkiv | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tex/context/base/typo-fln.mkiv b/tex/context/base/typo-fln.mkiv index c2c661afa..d8651b459 100644 --- a/tex/context/base/typo-fln.mkiv +++ b/tex/context/base/typo-fln.mkiv @@ -95,4 +95,18 @@ \let\typo_firstline_handle\relax +% goodie, question on list +% +% \defineframed[ChapterFramed][location=low,background=color,backgroundcolor=red,frame=off] +% +% \setuphead[chapter][deeptextcommand=\applytofirstcharacter\ChapterFramed] + +\unexpanded\def\applytofirstcharacter#1% + {\begingroup + \dowithnextbox + {\ctxcommand{applytofirstcharacter(\number\nextbox,"\strippedcsname#1")}% + \unhbox\nextbox + \endgroup}% + \hbox} + \protect \endinput |