Source Browser ?

1%D \module
2%D   [       file=typo-fln,
3%D        version=2013.08.22, % comes from the few years older m-newstuff
4%D          title=\CONTEXT\ Typesetting Macros,
5%D       subtitle=First Lines,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\writestatus{loading}{ConTeXt Typesetting Macros / First Lines}
15
16%D I had this code laying around for a while \unknown\ probably as a side effect
17%D of cleaning up the supp-fun modules. There is probably room for improvement
18%D and more features.
19
20% \setupbodyfont[pagella]
21%
22% \starttext
23%
24%     \setupindenting[medium,yes]
25%
26%     \definefirstline
27%       [smallcaps]
28%       [alternative=line,
29%        color=darkred,
30%        style=\setfontfeature{smallcaps}]
31%
32%     \setfirstline[smallcaps] \input tufte  \par
33%     \setfirstline[smallcaps] \input ward   \par
34%     \setfirstline[smallcaps] \input knuth  \par
35%     \setfirstline[smallcaps] \input bryson \par
36%
37%     \definefirstline
38%       [smallcaps]
39%       [alternative=word,
40%        color=darkblue,
41%        style=bold,
42%        n=2]
43%
44%     \setfirstline[smallcaps] \input tufte  \par
45%     \setfirstline[smallcaps] \input ward   \par
46%     \setfirstline[smallcaps] \input knuth  \par
47%     \setfirstline[smallcaps] \input bryson \par
48%
49% \stoptext
50
51\unprotect
52
53\registerctxluafile{typo-fln}{}
54
55\definesystemattribute[firstline][public]
56
57\appendtoks
58    \c_attr_firstline\attributeunsetvalue
59\to \everyforgetall
60
61\installcorenamespace {firstline}
62
63\installcommandhandler \??firstline {firstline} \??firstline
64
65\setupfirstline
66  [\c!alternative=\v!line,
67   %\c!style=,
68   %\c!color=,
69    \c!n=1]
70
71\unexpanded\def\setfirstline
72  {\dosingleempty\typo_firstline_set}
73
74\unexpanded\def\typo_firstline_set[#1]%
75  {\edef\typo_firstline_handle{\typo_firstline_handle_indeed{#1}}}
76
77\unexpanded\def\typo_firstline_handle_indeed#1%
78  {\dontleavehmode
79   \begingroup
80   \edef\currentfirstline{#1}%
81   \usefirstlinestyleandcolor\c!style\c!color
82   \clf_setfirstline
83        alternative {\firstlineparameter\c!alternative}%
84        ma          \c_attr_colormodel
85        ca          \c_attr_color
86        ta          \c_attr_transparency
87        n           \numexpr\firstlineparameter\c!n\relax
88        font        \fontid\font
89        dynamic     \font_dynamic_value
90   \relax
91%    \kern\zeropoint % we need a node
92%    \hskip\zeropoint\s!plus\emwidth\relax % can be an option
93   \endgroup
94   \glet\typo_firstline_handle\relax}
95
96\let\typo_firstline_handle\relax
97
98% goodie, question on list
99%
100% \defineframed[ChapterFramed][location=low,background=color,backgroundcolor=red,frame=off]
101%
102% \setuphead[chapter][deeptextcommand=\applytofirstcharacter\ChapterFramed]
103
104\unexpanded\def\applytofirstcharacter#1%
105  {\begingroup
106   \dowithnextbox
107     {\clf_applytofirstcharacter\nextbox{\csstring#1}%
108      \unhbox\nextbox
109      \endgroup}%
110   \hbox}
111
112\protect \endinput
113