diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-12 23:52:36 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-12 23:52:36 +0000 |
commit | 5ce5f1cb397fbb9db0d1f3103ebc44090d02e365 (patch) | |
tree | c625efebbf5f761d04ad695169bfe335ffea56f1 /Master/texmf-dist/tex/latex/calendar/hmonth.sty | |
parent | 2c678ff7b3c69227fce2c9882886d9943b77a6cf (diff) |
calendar
git-svn-id: svn://tug.org/texlive/trunk@732 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/calendar/hmonth.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/calendar/hmonth.sty | 180 |
1 files changed, 180 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/calendar/hmonth.sty b/Master/texmf-dist/tex/latex/calendar/hmonth.sty new file mode 100644 index 00000000000..5578ee44939 --- /dev/null +++ b/Master/texmf-dist/tex/latex/calendar/hmonth.sty @@ -0,0 +1,180 @@ +%% +%% This is file `hmonth.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% htmlstuf.dtx (with options: `htmlmonth') +%% This file is part of the Calendar package, +%% Copyright (C) 1996, 1997 Frank Bennett, Jr. +%% All rights reserved. +%% ------------------------------------------ +%% +%% IMPORTANT NOTICE: +%% +%% You are not allowed to change this file. You may however copy +%% this file to a file with a different name and then change the +%% copy if (a) you do not charge for the modified code, (b) you +%% acknowledge the author of this file in the new file, if it +%% is distributed to others, and (c) you attach these same +%% conditions to the new file. +%% +%% You are not allowed to distribute this file alone. You are not +%% allowed to take money for the distribution or use of this file +%% (or a changed version) except for a nominal charge for copying +%% etc. +%% +%% You are allowed to distribute this file under the condition that +%% it is distributed with all of its contents, intact. +%% +%% For error reports, or offers to help make this a more powerful, +%% friendlier, and altogether more thrilling package, please contact me on +%% fb@soas.ac.uk. Better yet, make a contribution to +%% my pension. Account details available on request. +%% ------------------------------------------ +%% +\NeedsTeXFormat{LaTeX2e}[1995/06/01] +\ProvidesPackage{hmonth} + [1998/01/17 18:15:02 3.1.1.1 HTML calendar (Frank Bennett)] +\RequirePackage{calendar} +\input calopts.cfg +\InputIfFileExists{dates.cfg}{}{} +\ProcessOptions +\define@key{opt}{title}{% + \def\yrly@title{#1}} +\define@key{opt}{labels}{% + \@storelabels#1,,{}} +\define@key{opt}{firstday}{% + \yrly@firstday=#1} +\define@key{opt}{outputfile}{% + \@ifundefined{html@outputfile} + {\newwrite\html@output + \gdef\html@outputfile{#1}% + \immediate\openout\html@output=\html@outputfile} + {\gdef\hm@temp{#1}% + \ifx\html@outputfile\hm@temp% + \relax% + \else% + \immediate\closeout\html@output% + \gdef\html@outputfile{#1}% + \immediate\openout\html@output=\html@outputfile\relax + \fi}} +\def\yrly@title{\themonth} +\newcount\yrly@firstday +\yrly@firstday=3\relax +\newtoks\yrly@tempreg@a +\newcount\yrly@tempcount +\def\@storelabels{% + \def\yrly@labeltext{}% + \@@storelabels} +\def\@@storelabels#1,#2#{% + \ifcat$#1$% + \yrly@tempreg@a=\expandafter{\yrly@labeltext}% + \edef\yrly@labeltext{\the\yrly@tempreg@a}% + \let\next\@gobble% + \else% + \let\next\@@storelabels% + \yrly@tempreg@a=\expandafter{\yrly@labeltext}% + \protected@edef\yrly@labeltext{\the\yrly@tempreg@a\space#1}% + \fi% + \next#2{}} +\newcount\thumbnails% +\newtoks\hm@line@a% +\def\hm@line{} +\def\hm@writeout#1{% + \edef\hm@temp{#1}% + \immediate\write\html@output{\hm@line\hm@temp}% + \def\hm@line{}} +\def\hm@spaces{\ifcase\hm@spacenum\or\space\or\space\space\or\space\space\space% + \or\space\space\space\space\fi} +\newcount\hm@spacenum +\newcalendar% + {htmlmonth} + {\el@output} + {\yrly@firstday} + {\dates@days} + {7} + {\hm@spaces} + {I} + {<pre><B>\themonth</B>^^J\yrly@labeltext^^J}% + {^^J^^J</pre>} + {\cal@footer% + \cal@header} + {^^J} + {} + {\global\dates@day=1% + \dates@fix% + \cal@range@start\dates@date% + \message{^^JStart: \theshortweekday\space% + \theday\space\theshortmonth\space\theyear}% + \global\dates@date\cal@range@end% + \caldate% + \global\dates@day\dates@days% + \dates@fix% + \cal@range@end\dates@date% + \message{^^JEnd: \theshortweekday\space% + \theday\space\theshortmonth\space\theyear}% + \global\dates@date=\cal@range@start% + \caldate% + \@ifundefined{yrly@labeltext}{% + \def\yrly@defaultlabels{}% + \yrly@tempcount=1% + \global\advance\dates@date by-\dates@weekd% + \global\advance\dates@date by\yrly@firstday% + \caldate% + \loop% + \yrly@tempreg@a=\expandafter{\yrly@defaultlabels}% + \edef\yrly@defaultlabels{\the\yrly@tempreg@a\theshortweekday,}% + \ifnum\yrly@tempcount<7% + \global\advance\dates@date by1% + \caldate% + \advance\yrly@tempcount by 1\relax% + \repeat% + \expandafter\@storelabels\yrly@defaultlabels,,{}% + \dates@date\cal@range@start% + \caldate}% + {}% + \def\el@output##1{% + \def\hm@temp{##1}% + \def\hm@temptwo{\cal@groupbreak}% + \ifx\hm@temp\hm@temptwo% + \hm@spacenum=4\relax% + \fi% + \ifnum\cal@subgroup@count>6\relax% + \hm@writeout{##1}% + \else% + \def\hm@temptwo{\cal@footer}% + \ifx\hm@temp\hm@temptwo% + \hm@writeout{##1}% + \else% + \hm@line@a=\expandafter{\hm@line}% + \edef\hm@line{\the\hm@line@a\hm@temp}% + \fi% + \fi}% + \hm@spacenum=4\relax}% + {}% + {\ifnum\dates@day<9\hm@spacenum=3\else\hm@spacenum=2\fi% + \cal@get@appointments\cal@get@events}% + {\protected@edef\cal@entry@text{X}}% + {\ifnum\dates@weekd=\yrly@firstday% + \hm@spaces% + \ifnum\theday=9% + \space\space% + \fi% + \else% + \ifnum\dates@day=1% + \space\hm@spaces% + \fi% + \fi% + \ifcat$\theappointments\theevents$% + \else% + <A HREF="\expandafter\@gobble\string\#\the\dates@date">% + \fi% + \theday% + \ifcat$\theappointments\theevents$% + \else% + </A>% + \fi} +\endinput +%% +%% End of file `hmonth.sty'. |