% sfletter.sty 
% by Shinsaku Fujita 
% Copyright (C) S. Fujita (2000). All rights reserved. 
% Version 1.00 2000/01/02
%
%  作成者: 藤田眞作
%          fujitas@chem.kit.ac.jp
%
%   藤田眞作著「入門・縦横文書術」所載
%
%\typeout{Option Style `sfletter.sty' by S. Fujita}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\j@urnalname{sfletter}
\def\versi@ndate{January 2, 2000}
\def\versi@nno{ver1.00}
\def\copyrighth@lder{SF} % Shinsaku Fujita
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\typeout{Option Style `\j@urnalname' (\versi@nno) <\versi@ndate>\space 
[\copyrighth@lder]}
\typeout{藤田眞作著「入門・縦横文書術」所載}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\jikouaisatu{\@ifnextchar[{\jikou@isatu}{\jikou@isatu[\the\month]}}
\def\jikou@isatu[#1]{\@ifnextchar({\jikou@is@tu[#1]}%
{\jikou@is@tu[#1](0)}}
\def\jikou@is@tu[#1](#2){\aisatuA{#1}\aisatuB{#2}}
\def\aisatuA#1{%
\ifcase#1\relax
\or 新しき年の始め、%一月
\or 厳しい寒さの折、%二月
\or 弥生三月となりましたが、%三月
\or 春爛漫の桜の咲き競う時候となりましたが、%四月
\or 若葉の季節となりましたが、%五月
\or うっとうしい梅雨が続きますが、%六月
\or 本格的な夏がやってまいりましたが、%\七月
\or 酷暑厳しき砌、%八月
\or 九月とはいえ残暑厳しき折、%九月
\or ふるさとの秋祭りの便りが聞かれる頃となりましたが、%十月
\or 紅葉の便りもそこかしこと聞かれはじめましたが、%十一月
\or 師走のあわただしい季節がやってまいりましたが、%十二月
\else ご無沙汰いたしておりますが、\fi}
\def\aisatuB#1{%
\ifcase#1\relax
ますますご清栄のこととお慶び申し上げます。
\or ますますご清祥のこととお慶び申し上げます。
\or ますますご健勝のこととお慶び申し上げます。
\or いがが御過ごしでしょうか。
\else 皆様には、恙無くお過ごしのことと存じ上げます。\fi}
\def\aisatu{\@ifnextchar[{\@isatu}{\@isatu[拝啓]}}
\def\@isatu[#1]{\@ifnextchar({\@is@tu[#1]}{\@is@tu[#1](\jikouaisatu)}}
\def\@is@tu[#1](#2){\par\noindent #1\par #2}
\def\musubi{\@ifnextchar[{\@musubi}{\@musubi[敬具]}}
\def\@musubi[#1]{\mbox{}\hfill #1\hskip1zw\mbox{}\par}
\def\Date{\expandafter\kanji\the\year 年
\expandafter\kanji\the\month 月
\expandafter\kanji\the\day 日}
\def\yDate#1{\mbox{}\hfill\def\tempaaa{#1}%
\ifx\tempaaa\empty\Date\else#1\fi\par}
\def\sasidasistretch{0.6}
\def\sasidasi{\@ifnextchar[{\s@sidasi}{\s@sidasi[\Date]}}
\def\s@sidasi[#1]#2#3{%
#1\hfill\parbox[t]{\sasidasistretch\textwidth}{\baselineskip=12pt
\hspace*{-1zw}#2\\[4pt]#3}\par}
\def\atenakeishou{様}
\def\atena#1#2{%
\parbox{8cm}{\baselineskip=12pt
\hspace*{-1zw}#1 \atenakeishou\\[4pt]#2}\hfill\mbox{}\par}
\endinput