1
2
3
4
5
6
7
8
9
10
11
12
13
14\writestatus{loading}{ConTeXt Packaging Macros Fences for Ruled Content}
15
16
17
18
19
20
21
22
23
24
25
26
27
28\unprotect
29
30\permanent\protected\def\installleftframerenderer#1#2
31 {\defcsname\??framedleft\v!on#1\endcsname{\whateverleftframe{#2}}
32 \letcsname\??framedleft\v!off#1\expandafter\endcsname\csname\??framedleft\v!on#1\endcsname}
33
34\permanent\protected\def\installrightframerenderer#1#2
35 {\defcsname\??framedright\v!on#1\endcsname{\whateverrightframe{#2}}
36 \letcsname\??framedright\v!off#1\expandafter\endcsname\csname\??framedright\v!on#1\endcsname}
37
38\permanent\protected\def\installtopframerenderer#1#2
39 {\defcsname\??framedtop\v!on#1\endcsname{\whatevertopframe{#2}}
40 \letcsname\??framedtop\v!off#1\expandafter\endcsname\csname\??framedtop\v!on#1\endcsname}
41
42\permanent\protected\def\installbottomframerenderer#1#2
43 {\defcsname\??framedbottom\v!on#1\endcsname{\whateverbottomframe{#2}}
44 \letcsname\??framedbottom\v!off#1\expandafter\endcsname\csname\??framedbottom\v!on#1\endcsname}
45
46\newbox\b_framed_rendered
47
48\permanent\protected\def\whateverleftframe#1
49 {\pack_framed_overlay_initialize_indeed
50 \setbox\b_framed_rendered\vpack to \d_overlay_height{\vss#1\vss}
51 \setbox\b_framed_rendered\hpack to \zeropoint{\box\b_framed_rendered\hss}
52 \ht\b_framed_rendered\zeropoint
53 \dp\b_framed_rendered\zeropoint
54 \box\b_framed_rendered}
55
56\permanent\protected\def\whateverrightframe#1
57 {\pack_framed_overlay_initialize_indeed
58 \setbox\b_framed_rendered\vpack to \d_overlay_height{\vss#1\vss}
59 \setbox\b_framed_rendered\hpack to \zeropoint{\hss\box\b_framed_rendered}
60 \ht\b_framed_rendered\zeropoint
61 \dp\b_framed_rendered\zeropoint
62 \box\b_framed_rendered}
63
64\permanent\protected\def\whatevertopframe#1
65 {\pack_framed_overlay_initialize_indeed
66 \setbox\b_framed_rendered\hpack to \d_overlay_width{\hss#1\hss}
67 \setbox\b_framed_rendered\vpack to \zeropoint{\box\b_framed_rendered\vss}
68 \ht\b_framed_rendered\zeropoint
69 \dp\b_framed_rendered\zeropoint
70 \box\b_framed_rendered
71 \nointerlineskip}
72
73\permanent\protected\def\whateverbottomframe#1
74 {\pack_framed_overlay_initialize_indeed
75 \setbox\b_framed_rendered\hpack to \d_overlay_width{\hss#1\hss}
76 \setbox\b_framed_rendered\vpack to \zeropoint{\vss\box\b_framed_rendered}
77 \ht\b_framed_rendered\zeropoint
78 \dp\b_framed_rendered\zeropoint
79 \box\b_framed_rendered}
80
81\protect \endinput
82 |