Create a gist now

Instantly share code, notes, and snippets.

日付を「昭和」にするパッケージ
% pxshowa.sty
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{pxshowa}
\def\昭和{\Showa}
\def\Showa{%
\pxsw@check@wareki
\ifx\pxsw@wareki\relax \pxsw@error@nonavail
\else \pxsw@showa@a
\fi}
\def\pxsw@showa@a{%
\begingroup
\pxsw@wareki
\protected@xdef\pxsw@gtempb{\today}%
\@tempcnta\year \advance\@tempcnta-1988
\@tempcntb\year \advance\@tempcntb-1925
\xdef\pxsw@gtempa{{\the\@tempcnta}{\the\@tempcntb}}%
\endgroup
\pxsw@unbrace\pxsw@today\pxsw@gtempb
\expandafter\pxsw@showa@b\pxsw@gtempa}
\def\pxsw@unbrace#1#2{%
\expandafter\pxsw@unbrace@a#2\pxsw@nil#1}
\def\pxsw@unbrace@a#1\pxsw@nil#2{\def#2{#1}}
\def\pxsw@showa@b#1#2{%
\def\pxsw@showa@c ##1平成##2#1##3\pxsw@nil{%
\pxsw@showa@d{##1}{##2}{##3}{#2}}%
\expandafter\pxsw@showa@c \pxsw@today\pxsw@mark 平成#1\pxsw@nil}
\def\pxsw@showa@d#1#2#3#4{%
\ifx\pxsw@empty#1\pxsw@empty
\pxsw@showa@e 昭和#2#4#3\pxsw@nil
\else \pxsw@nonavail
\fi}
\def\pxsw@showa@e#1\pxsw@mark#2\pxsw@nil{%
\def\today{{#1}}}
\def\pxsw@check@wareki{%
\begingroup
\global\let\pxsw@wareki\relax
\pxsw@check@wareki@a{Wareki}%
\pxsw@check@wareki@a{和暦}%
\pxsw@check@wareki@a{西暦false}%
\endgroup}
\def\pxsw@check@wareki@a#1{%
\expandafter\ifx\csname#1\endcsname\relax\else
\global\expandafter\let\expandafter\pxsw@wareki
\csname#1\endcsname
\fi}
\def\Heisei{%
\let\today\pxsw@org@today}
\def\平成{\Heisei}
\def\pxsw@empty{\pxsw@empty@}
\let\pxsw@org@today\today
\def\pxsw@error@nonavail{%
\PackageError{pxshowa}%
{Not available in this document class}\@ehc}
%% EOF
\documentclass{jsarticle}
\usepackage{pxshowa}
\昭
\begin{document}
\title{Knuthの原版の{\TeX}を使う件について}
\author{匿 名}
\maketitle
\begin{abstract}Web2Cじゃないやつ。\end{abstract}
本文を書く気が全くないという不可避な事情のため
後は省略することを了承されたい。
\end{document}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment