blob: 6c09b53428d50ea62d700814e74614a3f0e98106 (
plain)
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
|
%%
%% FILE a5.sty
%%
\newcount\daysinpage
\newdimen\cellheight
\vsize=17.5cm\voffset=-0.5in
\hsize=11cm\hoffset=-0.6in
\cellheight=\vsize
\divide\cellheight by7
\advance\cellheight by-0.4pt
\parindent=0pt
\font\Rm=cmr10 at 14pt
\font\Bf=cmbx10 at 14pt
\font\rm=cmr10
\footline={\Bf\ifodd\pageno\hfill\botmark
\else\botmark\hfill\fi}
\def\newpage{\vfill\penalty-10000}
\def\beginday{\ifnum\daysinpage>0\hrule\fi
\mark{\themonth} % Outside any box
\setbox2=\vbox\bgroup
\ifodd\pageno
\rightskip=3cm plus 1fill
\else
\leftskip=3cm plus 1fill\fi\rm}
\def\endday{\egroup
\vbox to\cellheight{\vglue2pt
\setbox0=\hbox to\hsize{%
\ifodd\pageno
\hfill{\Rm\theweekday\ \ifholy\Bf\fi\the\Day}
\else
{\Rm{\ifholy\Bf\fi\the\Day}\ \theweekday}%
\hfill\fi}
\copy0\kern-\ht0\box2\vfill}
\advance\daysinpage by1
\ifnum\daysinpage=7 \daysinpage=0
\newpage\fi}
%
% Local: from monday ...
\Day=1 \Month=9\dayno\nextday1\currentdate=\date
% Local: ... to sunday.
{\nextyear\Day=31 \Month=5\dayno\nextday0
\global\lastdate=\date}
\leftskip=0pt\rightskip=0pt
\daysinpage=0
\def\epilog{}
|