summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/pmhanguljamo/pmhanguljamo-frkim.code.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/pmhanguljamo/pmhanguljamo-frkim.code.tex')
-rw-r--r--Master/texmf-dist/tex/latex/pmhanguljamo/pmhanguljamo-frkim.code.tex31
1 files changed, 22 insertions, 9 deletions
diff --git a/Master/texmf-dist/tex/latex/pmhanguljamo/pmhanguljamo-frkim.code.tex b/Master/texmf-dist/tex/latex/pmhanguljamo/pmhanguljamo-frkim.code.tex
index cd005323bf6..ede63f21366 100644
--- a/Master/texmf-dist/tex/latex/pmhanguljamo/pmhanguljamo-frkim.code.tex
+++ b/Master/texmf-dist/tex/latex/pmhanguljamo/pmhanguljamo-frkim.code.tex
@@ -1,11 +1,13 @@
%% code part of frkim
+%% v1.1 (\AddRule extended, \RenewVowels added)
%% v1.0.2 (\frkhangulfont, \bf)
%% v1.0.1 (\AddRule)
-%% v1.1 (\jamoul)
+%% v1.1 (\jamoul)
%%
\char_set_catcode_other:N \@
\clist_const:Nn \c_hgvow_clist { a, e, o, u, y, i, @, * }
+\tl_set:Nn \zero_const { x }
\tl_new:N \g_cho_tl
\tl_new:N \g_jun_tl
@@ -175,7 +177,7 @@
{ 0 } {%%% 직전이 0이면 초성 확정
\tl_if_empty:NT \l_currtk_tl %%% 어두에 모음 => 초성을 'ㅇ'으로
{
- \tl_set:Nn \l_currtk_tl { x }
+ \tl_set:No \l_currtk_tl { \zero_const }
}
\tl_gset:NV \g_cho_tl \l_currtk_tl
@@ -390,32 +392,33 @@
{
\bool_if:NF \opt_zeroisx_bool
{
- \regex_replace_all:nnN { ' } { x } \g_cho_tl
+ \exp_args:Nno
+ \regex_replace_all:nnN { ' } { \zero_const } \g_cho_tl
}
\tl_if_empty:NF \g_cho_tl
{
- \prop_get:NVNTF \c_frkcho_prop \g_cho_tl \l_tmpone_tl
+ \prop_get:NVNTF \l_usercho_prop \g_cho_tl \l_tmpone_tl
{ \tl_use:N \l_tmpone_tl }
{
- \prop_get:NVNT \l_usercho_prop \g_cho_tl \l_tmpone_tl
+ \prop_get:NVNT \c_frkcho_prop \g_cho_tl \l_tmpone_tl
{ \tl_use:N \l_tmpone_tl }
}
}
\tl_if_empty:NF \g_jun_tl
{
- \prop_get:NVNTF \c_frkjung_prop \g_jun_tl \l_tmptwo_tl
+ \prop_get:NVNTF \l_userjung_prop \g_jun_tl \l_tmptwo_tl
{ \tl_use:N \l_tmptwo_tl }
{
- \prop_get:NVNT \l_userjung_prop \g_jun_tl \l_tmptwo_tl
+ \prop_get:NVNT \c_frkjung_prop \g_jun_tl \l_tmptwo_tl
{ \tl_use:N \l_tmptwo_tl }
}
}
\tl_if_empty:NF \g_jon_tl
{
- \prop_get:NVNTF \c_frkjong_prop \g_jon_tl \l_tmpthr_tl
+ \prop_get:NVNTF \l_userjong_prop \g_jon_tl \l_tmpthr_tl
{ \tl_use:N \l_tmpthr_tl }
{
- \prop_get:NVNT \l_userjong_prop \g_jon_tl \l_tmpthr_tl
+ \prop_get:NVNT \c_frkjong_prop \g_jon_tl \l_tmpthr_tl
{ \tl_use:N \l_tmpthr_tl }
}
}
@@ -594,4 +597,14 @@
{ \par }
}
+\NewDocumentCommand \RenewVowels { m }
+{
+ \clist_set:Nn \c_hgvow_clist { @, *, #1 }
+}
+
+\NewDocumentCommand \RenewLeadingZero { m }
+{
+ \tl_set:Nn \zero_const { #1 }
+}
+
\endinput