diff options
Diffstat (limited to 'macros/luatex/latex/luaquotes/luaquotes.sty')
-rw-r--r-- | macros/luatex/latex/luaquotes/luaquotes.sty | 58 |
1 files changed, 54 insertions, 4 deletions
diff --git a/macros/luatex/latex/luaquotes/luaquotes.sty b/macros/luatex/latex/luaquotes/luaquotes.sty index f26758b909..c07785bcd6 100644 --- a/macros/luatex/latex/luaquotes/luaquotes.sty +++ b/macros/luatex/latex/luaquotes/luaquotes.sty @@ -1,6 +1,6 @@ -\def\luaquotesversionnumber{1.2.1} +\def\luaquotesversionnumber{1.2.2} \ProvidesPackage{luaquotes} - [2022/11/23\luaquotesversionnumber smart quotes with lua] + [2022/12/09\luaquotesversionnumber smart quotes with lua] % !TeX program = lualatex % !TeX encoding = utf8 % This work may be distributed and/or modified under the @@ -153,7 +153,7 @@ luatexbase.add_to_callback ( \singlequotesoff} \DeclareOption{en}{ -\AtBeginDocument{\frsmartquotes\frdumbquotes\desmartquotes\dedumbquotes\smartquotes} +\AtBeginDocument{\frsmartquotes\frdumbquotes\desmartquotes\dedumbquotes\degmsmartquotes\degmdumbquotes\smartquotes} \renewcommand{\texttt}[1]{{\ttfamily\addfontfeature{RawFeature={+qtbye,-tlig}} #1}} } @@ -180,6 +180,8 @@ luatexbase.add_to_callback ( %%%%%%%%%%%%%%%%%%%%%%%%%%% \newcommand{\desingle}{{\addfontfeature{RawFeature={-qtbye,-tlig}}\symbol{"201A}}} \newcommand{\dedouble}{{\addfontfeature{RawFeature={-qtbye,-tlig}}\symbol{"201E}}} +\newcommand{\degmsingle}{{\addfontfeature{RawFeature={-qtbye,-tlig}}\symbol{"203A}}} +\newcommand{\degmdouble}{{\addfontfeature{RawFeature={-qtbye,-tlig}}\symbol{"00BB}}} %%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%% % backtick @@ -227,6 +229,10 @@ luatexbase.add_to_callback ( \newcommand{\glmtr}{{\addfontfeature{RawFeature={-qtbye,-tlig}}\,»}} \newcommand{\sglmtl}{{\addfontfeature{RawFeature={-qtbye,-tlig}}‹\,}} \newcommand{\sglmtr}{{\addfontfeature{RawFeature={-qtbye,-tlig}}\,›}} +\newcommand{\degmtl}{{\addfontfeature{RawFeature={-qtbye,-tlig}}»}} +\newcommand{\degmtr}{{\addfontfeature{RawFeature={-qtbye,-tlig}}«}} +\newcommand{\desgmtl}{{\addfontfeature{RawFeature={-qtbye,-tlig}}›}} +\newcommand{\desgmtr}{{\addfontfeature{RawFeature={-qtbye,-tlig}}‹}} %%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%% % DEUTSCH @@ -273,6 +279,50 @@ return ( s:gsub ( " '(..-)'", " ‚\%1`" ) ) %%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%% +% SCHÖNERES DEUTSCH +%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%% +\luaexec{function degmdoublequotes ( s ) + return ( s:gsub ( '"(..-)"' , "»\%1«" ) ) + end} +\luaexec{function degmsinglequotelinestart ( s ) + return (s:gsub ("^'","›" ) ) + end} +\luaexec{function degmsinglequotesclose( s ) +return ( s:gsub ( " '(..-)'", " ‚\%1‹" ) ) + end} + +%% Two utility macros to activate/deactivate the Lua function: +\newcommand\degmdoublequoteson{\directlua{luatexbase.add_to_callback ( + "process_input_buffer" , degmdoublequotes , "degmdoublequotes" )}} +\newcommand\degmdoublequotesoff{\directlua{luatexbase.remove_from_callback ( + "process_input_buffer" , "degmdoublequotes" )}} +\newcommand\degmsinglequotelinestarton{\directlua{luatexbase.add_to_callback ( + "process_input_buffer" , degmsinglequotelinestart , "degmsinglequotelinestart" )}} +\newcommand\degmsinglequotelinestartoff{\directlua{luatexbase.remove_from_callback ( + "process_input_buffer" , "degmsinglequotelinestart" )}} + \newcommand\degmsinglequotescloseon{\directlua{luatexbase.add_to_callback ( + "process_input_buffer" , degmsinglequotesclose , "degmsinglequotesclose" )}} +\newcommand\degmsinglequotescloseoff{\directlua{luatexbase.remove_from_callback ( + "process_input_buffer" , "degmsinglequotesclose" )}} + \newcommand{\degmsmartquotes}{\degmdoublequoteson +\degmsinglequotelinestarton +\degmsinglequotescloseon} + \newcommand{\degmdumbquotes}{\degmdoublequotesoff +\degmsinglequotelinestartoff +\degmsinglequotescloseoff} + \DeclareOption{degm}{ +\AtBeginDocument{ +\frsmartquotes +\frdumbquotes +\smartquotes +\dumbquotes\dumbquotes +\degmsmartquotes} +\renewcommand{\texttt}[1]{{\ttfamily\addfontfeature{RawFeature={+qtbye,-tlig}} #1}} +} + +%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%% % Français %%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -308,7 +358,7 @@ return ( s:gsub ( " '(..-)'", " ‹\\,\%1\\,›" ) ) \frsinglequotelinestartoff \frsinglequotescloseoff} \DeclareOption{fr}{ -\AtBeginDocument{\desmartquotes\dedumbquotes\smartquotes\dumbquotes\dumbquotes\frsmartquotes} +\AtBeginDocument{\desmartquotes\dedumbquotes\degmsmartquotes\degmdumpquotes\smartquotes\dumbquotes\dumbquotes\frsmartquotes} \renewcommand{\texttt}[1]{{\ttfamily\addfontfeature{RawFeature={+qtbye,-tlig}} #1}} |