add new environments: LatinScript, GreekScript and CyrillicScript.

[chise/omega.git] / chise.sty

diff --git a/chise.sty b/chise.sty
index a00e928..17698b3 100644 (file)
--- a/chise.sty
+++ b/chise.sty
@@ -184,10 +184,31 @@
 
 \ocp\OCPutf=inutf8fix
 \ocplist\inutf
+\addbeforeocplist 1 \OCPutf
+\nullocplist
+
+\ocp\OCPTeX=omtex
+\ocp\OCPGrUniToFont=uni2greekfix
+\ocp\OCPCyrUniToFont=uni2latfix
+\ocp\OCPLatinUniToFont=uni2latfix
+\ocplist\GreekOCP
+  \addbeforeocplist 1 \OCPutf
+  \addbeforeocplist 1 \OCPTeX
+  \addbeforeocplist 1 \OCPGrUniToFont
+  \nullocplist
+\ocplist\CyrillicOCP
+  \addbeforeocplist 1 \OCPutf
+  \addbeforeocplist 1 \OCPTeX
+  \addbeforeocplist 1 \OCPCyrUniToFont
+  \nullocplist
+\ocplist\LatinOCP
   \addbeforeocplist 1 \OCPutf
+  \addbeforeocplist 1 \OCPTeX
+  \addbeforeocplist 1 \OCPLatinUniToFont
   \nullocplist
+
 \AtBeginDocument{
-  \NonCJK
+  \LatinScript
 }
 
 \def\rmdefault{omlgc}
@@ -198,7 +219,7 @@
 \def\selectgbsfont{\fontencoding{OT1}\fontfamily{omgbs}\selectfont}
 \def\selectcnsfont{\fontencoding{OT1}\fontfamily{omcns}\selectfont}
 \def\selectksxfont{\fontencoding{OT1}\fontfamily{omksx}\selectfont}
-\def\selectlgcfont{\fontencoding{OT1}\fontfamily{\rmdefault}\selectfont}
+\def\selectlgcfont{\fontencoding{OT1}\fontfamily{omlgc}\selectfont}
 
 \newenvironment{JISfont}{\pushocplist\uniJIS}{}
 \newenvironment{GBfont}{\pushocplist\uniGB}{}
@@ -208,6 +229,13 @@
 \newenvironment{NonCJK}{\pushocplist\inutf\selectlgcfont}{}
 \newenvironment{ASCII}{\clearocplists\fontencoding{T1}\selectnormalfont}{}
 
+\newenvironment{GreekScript}{\pushocplist\GreekOCP\selectlgcfont%
+\language=3\lefthyphenmin=2\righthyphenmin=2}{%
+}
+\newenvironment{CyrillicScript}{\pushocplist\CyrillicOCP\selectlgcfont}{}
+\newenvironment{LatinScript}{\pushocplist\LatinOCP\selectlgcfont}{}
+
+
 \newcommand{\jisfont}[1]{\begingroup%
   \pushocplist\uniJIS #1\endgroup}
 \newcommand{\gbfont}[1]{\begingroup%