summaryrefslogtreecommitdiff
path: root/language/korean/kotex-oblivoir/memhangul-x/memucs-interword-x.sty
diff options
context:
space:
mode:
Diffstat (limited to 'language/korean/kotex-oblivoir/memhangul-x/memucs-interword-x.sty')
-rw-r--r--language/korean/kotex-oblivoir/memhangul-x/memucs-interword-x.sty188
1 files changed, 188 insertions, 0 deletions
diff --git a/language/korean/kotex-oblivoir/memhangul-x/memucs-interword-x.sty b/language/korean/kotex-oblivoir/memhangul-x/memucs-interword-x.sty
new file mode 100644
index 0000000000..e033b74ce2
--- /dev/null
+++ b/language/korean/kotex-oblivoir/memhangul-x/memucs-interword-x.sty
@@ -0,0 +1,188 @@
+%% memucs-interword-x.sty
+%%
+%% Copyright (c) 2007-2013 Kangsoo Kim <karnes at ktug org>
+%%
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3c
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3c or later is part of all distributions of LaTeX
+%% version 2006/05/20 or later.
+%%
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{memucs-interword-x}[2009/04/02]
+\RequirePackage{ifluatex}
+\RequirePackage{ifxetex}
+
+\def\memucsinterwordskip{}
+\def\memucsinterwordchapterskip{}
+\def\memucshangulskips{}
+
+\newif\if@nonfrench\@nonfrenchfalse
+\DeclareOption{nonfrench}{%
+ \@nonfrenchtrue}
+\DeclareOption{HWP}{%
+ \def\memucsinterwordskip{\HWPinterwordskip}}
+\DeclareOption{default}{%
+ \@nonfrenchtrue\def\memucsinterwordskip{\DEFAULTskips}%\interHchar{0pt}
+ }
+\DeclareOption{wider}{}
+% \def\memucshangulskips{\widerhangul}}
+\DeclareOption{narrower}{}
+% \def\memucshangulskips{\narrowerhangul}}
+%\DeclareOption*{%
+% \def\memucsinterwordskip{\DEFAULTskips}%
+%}
+
+%\newlength\dimen@skip
+%\setlength\dimen@skip{.1pt}
+
+%% finemath active.
+%\ifluatex\else\ifxetex\else
+% \if@dhucsfinemath\else\@dhucsfinemathtrue\fi
+%\fi\fi
+
+%%% inter hchar
+\newcommand*\interHchar[1]{%
+ \ifluatex
+ \@luatex@setinterhangulskip{#1}%
+ \else\ifxetex
+ \@xetex@setinterhangulskip{#1}%
+ \else
+ \@setinterhangulskip{#1}%
+ \fi\fi
+}
+
+\newcommand*\DefaultInterHchar{%
+ \interHchar{-.04}%
+}
+
+\newcommand*\@luatex@setinterhangulskip[1]{%
+\directlua{
+ fmconfig.hangul_hangul = #1 % ÇÑ±Û »çÀÌ ÀÚ°£
+}}
+
+\newcommand*\@xetex@setinterhangulskip[1]{%
+ \def\xetexkointerhchar{#1em}%
+}
+
+\newcommand*\@setinterhangulskip[1]{%
+ \setInterHangulSkip{#1em}%
+}
+
+\newcommand*\interhword[4][\@empty]{%
+ \ifx#1\@empty\setinterwordskip{#2}{#3}{#4}\else
+ \setinterwordskip[#1]{#2}{#3}{#4}\fi
+}
+
+%%%\def\narrowerhangul{%
+%%% \def\memucshangulskips{%
+%%% \interHchar{-.5pt}%
+%%% }%
+%%%}
+%%%\def\widerhangul{%
+%%% \def\memucshangulskips{%
+%%% \interHchar{1pt}%
+%%% }%
+%%%}
+
+\newdimen\BASE@FONTsize
+\BASE@FONTsize=\f@size\p@
+
+\def\HWPinterwordskip{%
+ \def\memucshangulskips{%
+ \DefaultInterHchar
+ }%
+ \def\memucsinterwordskip{%
+ \spaceskip = .475\BASE@FONTsize plus .25\BASE@FONTsize minus .1331\BASE@FONTsize
+ \if@nonfrench
+ \xspaceskip = .6\BASE@FONTsize plus .2\BASE@FONTsize minus .1\BASE@FONTsize
+ \fi
+ }%
+ \def\memucsinterwordchapterskip{%
+ \spaceskip = .5\BASE@FONTsize plus .1\BASE@FONTsize minus .05\BASE@FONTsize
+ \if@nonfrench
+ \xspaceskip = .65\BASE@FONTsize plus .2\BASE@FONTsize minus .1\BASE@FONTsize
+ \fi
+ }%
+}
+
+\def\setinterwordskip{\@ifnextchar[\setinterwordskip@\setinterwordskip@@}
+\def\setinterwordskip@[#1]#2#3#4{%
+ \def\memucsinterwordskip{%
+ \spaceskip = #2\BASE@FONTsize plus #3\BASE@FONTsize minus #4\BASE@FONTsize
+ \if@nonfrench
+ \xspaceskip = #1\BASE@FONTsize plus #3\BASE@FONTsize minus #4\BASE@FONTsize
+ \fi
+ }%
+}
+
+\def\setinterwordskip@@#1#2#3{%
+ \def\memucsinterwordskip{%
+ \spaceskip = #1\BASE@FONTsize plus #2\BASE@FONTsize minus #3\BASE@FONTsize
+ \if@nonfrench
+ \xspaceskip = .6\BASE@FONTsize plus #2\BASE@FONTsize minus #3\BASE@FONTsize
+ \fi
+ }%
+}
+
+\def\DEFAULTskips{%
+ \DefaultInterHchar
+ \def\memucsinterwordskip{%
+ \spaceskip = .413\BASE@FONTsize plus .1\BASE@FONTsize minus .1\BASE@FONTsize
+ \if@nonfrench
+ \xspaceskip = .55\BASE@FONTsize plus .11\BASE@FONTsize minus .1\BASE@FONTsize
+ \fi
+ }%
+ \def\memucsinterwordchapterskip{%
+ \spaceskip = .46\BASE@FONTsize plus .11\BASE@FONTsize minus .1\BASE@FONTsize
+ \if@nonfrench
+ \xspaceskip = .575\BASE@FONTsize plus .1\BASE@FONTsize minus .1\BASE@FONTsize
+ \fi
+ }%
+}
+
+\ProcessOptions\relax
+
+\def\verbatim@font{\m@mverbfont\spaceskip\z@
+ \hyphenchar\font\m@ne
+ \let\do\do@noligs
+ \verbatim@nolig@list}
+
+\def\narrowerinterhword{%
+ \spaceskip=.331\BASE@FONTsize plus .111\BASE@FONTsize minus .1\BASE@FONTsize
+ \if@nonfrench
+ \xspaceskip=.466\BASE@FONTsize plus .05\BASE@FONTsize minus .05\BASE@FONTsize
+ \fi
+}
+
+\def\memucsinterwordhook{\memucsinterwordskip\memucshangulskips}%
+\def\memucsinterwordchapterskiphook{\memucsinterwordchapterskip\memucshangulskips}%
+\def\memucsfninterwordhook{\narrowerinterhword}%
+
+% engtext env
+\@ifundefined{engtext}%
+ {%
+ \newenvironment{engtext}%
+ {\begingroup\spaceskip=\fontdimen2\font plus\fontdimen3\font minus\fontdimen4\font}%
+ {\endgroup}%
+ }{}
+
+% engtxt
+\newskip\ORIG@spaceskip
+\def\engtxt{\ORIG@spaceskip=\spaceskip
+ \spaceskip=\fontdimen2\font plus\fontdimen3\font minus\fontdimen4\font}
+\def\endengtxt{\spaceskip=\ORIG@spaceskip}
+
+\endinput
+
+%% CHANGE LOG
+% 2009/04/02. small alterations.
+% 2005/01/07. code clearance
+% 2005/02/08. reset interwordchapterskip values
+% 2005/05/17. engtext env. added.
+% 2005/07/30. replace em by \BASE@FONTsize
+% 2005/08/05. nonfrench option introduced.
+% 2005/11/17. \interhword bug fixed.
+% 2007/06/03. dhucs 4.0 hfontspec applied