diff options
author | Karl Berry <karl@freefriends.org> | 2013-11-09 00:52:44 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-11-09 00:52:44 +0000 |
commit | d82f205d424457a0853f7501ab50cf5fb81b9f38 (patch) | |
tree | 171957cba33221dcc47623901f9e85e2107b0a82 /Master/texmf-dist/tex/latex/kotex-utf/contrib/dhucs-interword.sty | |
parent | 521b3aca41e705539f95064ac2b4577a37ee5f3a (diff) |
kotex-utf
git-svn-id: svn://tug.org/texlive/trunk@32103 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/kotex-utf/contrib/dhucs-interword.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/kotex-utf/contrib/dhucs-interword.sty | 129 |
1 files changed, 129 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/kotex-utf/contrib/dhucs-interword.sty b/Master/texmf-dist/tex/latex/kotex-utf/contrib/dhucs-interword.sty new file mode 100644 index 00000000000..97c2cb37e9c --- /dev/null +++ b/Master/texmf-dist/tex/latex/kotex-utf/contrib/dhucs-interword.sty @@ -0,0 +1,129 @@ +%% File `dhucs-interword.sty` +%% +%% (C) Copyright 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. +%% +\ProvidesPackage{dhucs-interword}[2009/03/15] +\RequirePackage{dhucs} + +\newif\if@HWP\@HWPfalse +\DeclareOption{HWP}{\@HWPtrue\let\dhucs@interhchar\z@\HWPinterwordskip} +\newif\if@default\@defaultfalse +\DeclareOption{default}{\@defaulttrue\@nonfrenchtrue\DEFAULTskips} +\newif\if@nonfrench\@nonfrenchfalse +\DeclareOption{nonfrench}{\@nonfrenchtrue} +\DeclareOption{wider}{\widerhangul} +\DeclareOption{narrower}{\narrowerhangul} +%\DeclareOption*{\DEFAULTskips} + +\newdimen\dimen@skip +\dimen@skip=\f@size\p@ + +%\let\dhucs@interhchar\setInterHangulSkip +\newcommand\interHchar[1]{\setInterHangulSkip{#1}} +\let\interhchar\interHchar + +%% finemath active +\if@dhucsfinemath\else\@dhucsfinemathtrue\fi + +\newcommand\interhword[4][\@empty]{% + \ifx#1\@empty\setinterwordskip{#2}{#3}{#4}\else\setinterwordskip[#1]{#2}{#3}{#4}\fi +} + +\def\narrowerhangul{% + \interHchar{-.75pt}% +} +\def\widerhangul{% + \interHchar{1pt}% +} + +\def\setinterwordskip{\@ifnextchar[\setinterwordskip@\setinterwordskip@@} +\def\setinterwordskip@[#1]#2#3#4{% + \spaceskip = #2\dimen@skip plus #3\dimen@skip minus #4\dimen@skip + \xspaceskip = #1\dimen@skip plus #3\dimen@skip minus #4\dimen@skip +} +\def\setinterwordskip@@#1#2#3{% + \spaceskip = #1\dimen@skip plus #2\dimen@skip minus #3\dimen@skip +} + +\def\HWPinterwordskip{% + \let\dhucs@interhchar\z@ + \if@nonfrench + \interhword[.6]{.475}{.111}{.111}% + \else + \interhword{.475}{.111}{.111}% + \fi +} + +\def\DEFAULTskips{% +% \let\dhucs@interhchar\z@ + \interHchar{-.5pt}% + \if@nonfrench + \interhword[.55]{.413}{.11}{.1}% + \else + \interhword{.413}{.11}{.1}% + \fi +} + +\ProcessOptions\relax + +\if@default +\AtEndOfPackage{% +\def\ucsfninterwordhook{% +% \let\dhucs@interhchar\z@ + \interHchar{-.55pt}% + \if@nonfrench + \interhword[.5]{.303}{.11}{.1}% + \else + \interhword{.303}{.11}{.1}% + \fi +}}\else +\if@HWP +\AtEndOfPackage{% +\def\ucsfninterwordhook{% + \let\dhucs@interhchar\z@ + \if@nonfrench + \interhword[.55]{.331}{.133}{.1}% + \else + \interhword{.331}{.133}{.1}% + \fi +}}\fi\fi + +\RequirePackage{verbatim} +\renewcommand\verbatim@font{\normalfont + \ttfamily\spaceskip.5em\relax + \hyphenchar\font\m@ne + \let\do\do@noligs + \verbatim@nolig@list} + +% 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 +%% +%% End of file `dhucs-interword.sty'. + +%% CHANGE LOG. +% 2005/09/22. finemath active, change default interhchar. +% 2005/01/07. code clearance +% 2005/05/12. add engtext env., HWP interhchar=0pt. +% 2005/08/05. rewrite codes. introduce nonfrench option +% 2005/11/17. \interhword bug fix. |