%% %% This is file `texnegar-common-kashida.tex', %% generated with the docstrip utility. %% %% The original source files were: %% %% texnegar.dtx (with options: `texnegar-common-kashida-tex') %% %% Copyright (C) 2020-2021 Hossein Movahhedian %% %% It may be distributed and/or modified under the LaTeX Project Public License, %% version 1.3c or higher (your choice). The latest version of %% this license is at: http://www.latex-project.org/lppl.txt %% \ProvidesExplFile {texnegar-common-kashida.tex} {2021-02-09} {0.1e} { Full implementation of kashida feature in XeLaTex and LuaLaTeX } \bool_if:NT \l_texnegar_ligature_bool { \clist_new:N \l_texnegar_ligatures_clist \int_new:N \l_texnegar_lig_names_len_int \int_set:Nn \l_texnegar_lig_names_len_int { \clist_count:N \l_texnegar_lig_names_clist } \int_step_inline:nnnn { 1 } { 2 } { \l_texnegar_lig_names_len_int } { \int_set:Nn \l_tmpa_int { #1 } \int_set:Nn \l_tmpb_int { \int_eval:n { \l_tmpa_int + 1 } } \tl_set:Nf \l_tmpa_tl { \clist_item:Nn \l_texnegar_lig_names_clist { \l_tmpa_int } } \clist_set:Nx \l_tmpa_clist { { \clist_item:Nn \l_texnegar_lig_names_clist { \l_tmpb_int } } } \bool_if:nT { \tl_if_eq_p:NN \l_texnegar_active_ligs_tl \l_tmpa_tl || \tl_if_eq_p:NN \l_texnegar_active_ligs_tl \l_texnegar_lig_default_tl } { \clist_put_left:Nx \l_texnegar_ligatures_clist { \l_tmpa_clist } } } \clist_map_inline:Nn \l_texnegar_ligatures_clist { \seq_set_split:Nnn \l_tmpa_seq { = } { #1 } \seq_pop_left:NN \l_tmpa_seq \l_tmpa_tl { } { } \seq_pop_left:NN \l_tmpa_seq \l_tmpb_tl { } { } \tl_const:cx { \tl_use:N \l_tmpb_tl } { \char"\l_tmpa_tl \ } } } \bool_if:NT \l_texnegar_linebreakpenalty_bool { %% Partly adapted from LaTeX2e source \cs_new:Nn \texnegar_line_break: { \if_mode_vertical: \GenericError{ \space\space\space\space\space\space\space\space\space\space\space\space\space\space\space }{ LaTeX Error: There’s no line here to end }{ See the LaTeX manual or LaTeX Companion for explanation. }{ Your command was ignored.\MessageBreak Type \space I \space to replace it~ with another command,\MessageBreak or \space \space to continue without it.} \else: \l_tmpa_skip \tex_lastskip:D \tex_unskip:D \tex_penalty:D -\l_texnegar_line_break_penalty_int \dim_compare:nT { \l_tmpa_skip > \c_zero_skip } { \skip_horizontal:N \l_tmpa_skip \tex_ignorespaces:D } \fi: } \NewDocumentCommand { \discouragebadlinebreaks } { O{\l_texnegar_line_break_penalty_int} O{\c_texnegar_skip_b_tl} m } { \IfNoValueF {#1} { \int_set:Nn \l_texnegar_line_break_penalty_int {#1} } \IfNoValueF {#2} { \tl_set:Nn \l_texnegar_skip_default_tl {#2} } \texnegar_put_line_breaks:n { #3 } } \cs_new_protected:Nn \texnegar_put_line_breaks:n { \tl_set:Nn \l_texnegar_line_break_tl { #1 } \regex_replace_all:nnN { ([ابپتثجحخچدذرزژسشعغصضفقطظکگلمنوهیـ])+ } { \ \0 \ \c{texnegar_line_break:}\ } \l_texnegar_line_break_tl \tl_use:N \l_texnegar_line_break_tl } } \endinput %% %% %% End of file `texnegar-common-kashida.tex'.