summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/luatex/luatexko/luatexko-core.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/luatex/luatexko/luatexko-core.sty')
-rw-r--r--Master/texmf-dist/tex/luatex/luatexko/luatexko-core.sty29
1 files changed, 19 insertions, 10 deletions
diff --git a/Master/texmf-dist/tex/luatex/luatexko/luatexko-core.sty b/Master/texmf-dist/tex/luatex/luatexko/luatexko-core.sty
index e34a222ef35..bec7d1206b2 100644
--- a/Master/texmf-dist/tex/luatex/luatexko/luatexko-core.sty
+++ b/Master/texmf-dist/tex/luatex/luatexko/luatexko-core.sty
@@ -17,7 +17,7 @@
\ifcsname ifpdf\endcsname\else \input ifpdf.sty \fi
\catcode`@ = 11
\else
- \ProvidesPackage{luatexko-core}[2016/04/25 v1.13 Typesetting Korean with LuaTeX]
+ \ProvidesPackage{luatexko-core}[2016/05/08 v1.14 Typesetting Korean with LuaTeX]
\RequirePackage{luaotfload}[2016/04/21]
\RequirePackage{ifpdf}
\fi
@@ -271,27 +271,36 @@
\def\ulinedown {0.25em }
\newcount\luakoulineboxcnt\luakoulineboxcnt\z@
\protected\def\uline#1{%
+ \begingroup
\ifnum\luakoulineboxcnt > 65535 \luakoulineboxcnt\z@ \fi
\global\advance\luakoulineboxcnt\@ne
+ \edef\luako@temp@{\the\luakoulineboxcnt}%
+ \leavevmode
\dimen@\dimexpr\ulinedown+\ulinewidth\relax
\dimen@ii-\dimexpr\ulinedown\relax
- \setbox\z@\hbox{\vrule width\z@ height\dimen@ii depth\dimen@}%
- \directlua{luatexko.ulinebox[\the\luakoulineboxcnt]=node.copy_list(tex.box[0].head)}%
- \leavevmode\special{luako:ulinebegin=\the\luakoulineboxcnt}%
- #1\special{luako:ulineend}}
-% strike-out
+ \setbox\z@\hbox{\vrule width0pt height\dimen@ii depth\dimen@}%
+ \directlua{ luatexko.ulinebox[\luako@temp@]=node.copy_list(tex.box[0].head)
+ luatexko.uline_boundary(\luako@temp@,true) }%
+ #1%
+ \directlua{ luatexko.uline_boundary(\luako@temp@,false) }%
+ \endgroup}
\protected\def\sout#1{{\def\ulinedown{-0.5ex-\ulinewidth/2}\uline{#1}}}
% ulem with arbitray box
\protected\def\markoverwith#1#2{%
+ \begingroup
\ifnum\luakoulineboxcnt > 65535 \luakoulineboxcnt\z@ \fi
\global\advance\luakoulineboxcnt\@ne
+ \edef\luako@temp@{\the\luakoulineboxcnt}%
+ \leavevmode
\setbox\z@\hbox{#1}%
- \directlua{luatexko.ulinebox[\the\luakoulineboxcnt]=node.copy_list(tex.box[0])}%
- \leavevmode\special{luako:ulinebegin=\the\luakoulineboxcnt}%
- #2\special{luako:ulineend}}
+ \directlua{ luatexko.ulinebox[\luako@temp@]=node.copy_list(tex.box[0])
+ luatexko.uline_boundary(\luako@temp@,true) }%
+ #2%
+ \directlua{ luatexko.uline_boundary(\luako@temp@,false) }%
+ \endgroup}
\protected\def\uuline{\dimen@ii-\dimexpr\ulinedown\relax
\dimen@\dimexpr\ulinedown+\ulinewidth\relax
- \markoverwith{\vtop{\hrule width.2em height\dimen@ii depth\dimen@
+ \markoverwith{\vtop{\hrule width.1em height\dimen@ii depth\dimen@
\kern.1em\hrule height\dimen@ii depth\dimen@}}}
\protected\def\uwave {\ifx\ltxko@sixly\undefined \font\ltxko@sixly=lasy6 \fi
\markoverwith{\lower4\p@\hbox{\ltxko@sixly\char58}}}