blob: 97c2cb37e9cf68e520fb2941db546e93c2b4329f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
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.
|