  |
はてなキーワード: 人文書とは
LaTeXで、縦書き人文書のように全角括弧内（）の級数下げをするマクロを書いた。
・「（」が来ると級数下げる
・「）」が来ると級数上る
・「（）」のなかに入れ子の「（）」が来た場合は、変更しない（本づくりのお作法）
※ 「（」と「）」が対応してないと級数下げたまま、になってしまう可能性があるので、ちゃんと合わせておくこと
\usepackage{relsize}\usepackage{newunicodechar}\newif\iffoot\footfalse\newcounter{parnest}\setcounter{parnest}{0}%（）内の級数下げマクロ：変数の準備（級数下げしたくない箇所は、（）の前後を\foottrue～\footfalseで括ること）
\let\origfootnotetext\footnotetext\renewcommand{\footnotetext}[2][]{\ifx\relax#1\relax \origfootnotetext{\foottrue #2 \footfalse}\else\origfootnotetext[#1]{\foottrue #2 \footfalse}\fi}\let\origfootnote\footnote\renewcommand{\footnote}[1]{\ifnum\ltjgetparameter{direction}=3\origfootnote{\foottrue #1 \footfalse}\else\origfootnote{\foottrue #1 \footfalse}\fi}%脚注コマンドを変更
\let\origendnotetext\endnotetext\renewcommand{\endnotetext}[2][]{\ifx\relax#1\relax \origendnotetext{\foottrue #2 \footfalse}\else\origendnotetext[#1]{\foottrue #2 \footfalse}\fi}\let\origendnote\endnote\renewcommand{\endnote}[1]{\ifnum\ltjgetparameter{direction}=3\origendnote{\foottrue #1 \footfalse}\else\origendnote{\foottrue #1 \footfalse}\fi}%文末脚注コマンドを変更
\makeatletter\chardef\my@J@kakkostart="FF08\newunicodechar{（}{\iffoot\my@J@kakkostart\else\addtocounter{parnest}{1}\ifnum\value{parnest}=1 \relsize{-0.5}\my@J@kakkostart\else\my@J@kakkostart\fi\fi}\makeatother%開くカッコは脚注外では級数下げ
\makeatletter\chardef\my@J@kakkoend="FF09\newunicodechar{）}{\iffoot\my@J@kakkoend\else\addtocounter{parnest}{-1}\ifnum\value{parnest}=0 \my@J@kakkoend\relsize{0.5}\else\my@J@kakkoend\fi\fi}\makeatother%閉じるカッコは脚注外では級数上げ（元に戻す）
