1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
%D \module
%D [ file=typo-drp, % was typo-par
%D version=2011.10.27,
%D title=\CONTEXT\ Typesetting Macros,
%D subtitle=Initials,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
\writestatus{loading}{ConTeXt Typesetting Macros / Initials}
%D This will change ... par specific attribute set and such.
\unprotect
\registerctxluafile{typo-drp}{autosuffix}
\definesystemattribute[initial][public]
\appendtoks
\c_attr_initial\attributeunsetvalue
\to \everyforgetall
%D For the moment here: dropped caps redone. In addition to the parameters shown in
%D the example you can use the \type {style} and more low level \type {font} keys to
%D set up the font where the first one wins. If you don't like the behaviour you can
%D always roll out your own command.
%D
%D \starttyping
%D \placeinitial \input ward \par \input ward \par \placeinitial \input tufte
%D
%D \setupinitial
%D [location=text,
%D n=2,
%D color=darkred,
%D distance=-1em,
%D hoffset=1em,
%D voffset=-3ex,
%D before=\blank]
%D
%D \placeinitial \input ward \par \input ward \placeinitial \input tufte
%D \stoptyping
% todo: angle (once we can set parshape at the Lua end)
\installcorenamespace{initial}
\installcommandhandler \??initial {initial} \??initial
\definemeasure[initial:n][\lineheight*\initialparameter\c!n - \strutdp]
\setupinitial
[\c!location=\v!text,
\c!n=3,
\c!m=1,
\c!method=\v!none,
% \c!font=Bold sa 4,
% \c!font=Bold ht \measure{initial:n},
\c!font=Bold cp \measure{initial:n},
\c!distance=.125\emwidth,
\c!hoffset=\zeropoint,
\c!voffset=\v!line, % \dimexp\lineheight*\initialparameter\c!n-\lineheight\relax]
\c!style=,
\c!color=,
\c!before=\blank]
\permanent\tolerant\protected\def\placeinitial[#1]% old command
{\par
\namedinitialparameter{#1}\c!before
\edef\typo_initial_handle{\typo_initial_handle_indeed{#1}{}}}
\permanent\tolerant\protected\def\setinitial[#1]#*[#2]%
{\edef\typo_initial_handle{\typo_initial_handle_indeed{#1}{#2}}}
\protected\def\typo_initial_handle_indeed#1#2%
{\dontleavehmode
\begingroup
\edef\currentinitial{#1}%
\setupcurrentinitial[#2]%
\resetfontfeature % might be needed in more places
\doifelsenothing{\initialparameter\c!style}
{\definedfont[\initialparameter\c!font]}
{\useinitialstyleparameter\c!style}%
\useinitialcolorparameter\c!color
\edef\p_voffset{\initialparameter\c!voffset}%
\scratchcounter \initialparameter\c!n\relax
\scratchvoffset\dimexpr\ifx\p_voffset\v!line\scratchcounter\lineheight-\lineheight\else\p_voffset\fi\relax
\clf_setinitial
location {\initialparameter\c!location}%
enabled true\space
n \scratchcounter
m \numexpr\initialparameter\c!m\relax
method {\initialparameter\c!method}%
distance \dimexpr\initialparameter\c!distance\relax
hoffset \dimexpr\initialparameter\c!hoffset\relax
voffset \scratchvoffset
ma \c_attr_colormodel
ca \c_attr_color
ta \c_attr_transparency
font \fontid\font
dynamic \font_dynamic_value % it's a bit over the top to support this here
\relax
\c_attr_initial\plusone
\initialparameter\c!text
\endgroup
\glet\typo_initial_handle\relax}
\let\typo_initial_handle\relax
% \setupbodyfont[dejavu,9pt]
%
% \startbuffer
% \setinitial[two] D. E. Knuth \ignorespaces\input knuth \par
% \setinitial[two] Knuth \ignorespaces\input knuth \par
% \setinitial[two] \quotation{D. E. Knuth} \ignorespaces\input knuth \par
% \setinitial[two] \quotation {Knuth} \ignorespaces\input knuth \par
% \setinitial[two] [text={D.E. Knuth}] \ignorespaces\input knuth \par
% \setinitial[two] [m=4] D. E. Knuth \ignorespaces\input knuth \par
% \stopbuffer
%
% \type{m=2} \start \defineinitial[two][m=2,method=none] \getbuffer \page \stop
% \type{m=1,method=auto} \start \defineinitial[two][m=1,method=auto] \getbuffer \page \stop
% \type{m=1,method={auto,first,last}} \start \defineinitial[two][m=1,method={first,auto,last}] \getbuffer \page \stop
\protect \endinput
|