Add `\kJedenUc` command (802667a2) · Commits · Vít Starý Novotný / Programmes Catalogue

katalog.dtx

+68 −0

Original line number	Original line	Diff line number	Diff line
	@@ -900,6 +900,31 @@
	%		%
	% \end{macro}		% \end{macro}
	%		%
			% \begin{macro}{\kJedenUc}
			%
			% Pro odstranění duplicit v seznamu vyučujících slouží makro \|\kJedenUc\|^^A
			% \marg{oddělovač}\marg{vyučující}. Parametr \meta{oddělovač} udává symbol,
			% který odděluje jednotlivé vyučující v parametru \meta{vyučující}.
			%
			% \begin{macrocode}
			\NewDocumentCommand
			{ \kJedenUc }
			{ m m }
			{
			\@@_deduplicate_teachers:nn
			{ #1 }
			{ #2 }
			}
			% \end{macrocode}
			%
			% Makro \|\kJedenUc\| můžete použít například následovně:
			%
			% \begin{verbatim}
			% \kJedenUc{;}{Lacina, A.; Musilová, J.; Lacina, A. ; Musilová, J..}
			% \end{verbatim}
			%
			% \end{macro}
			%
	% \section{Implementace}		% \section{Implementace}
	% \label{sekce:implementace}		% \label{sekce:implementace}
	%		%
	@@ -2252,6 +2277,49 @@
	%		%
	% \end{macro}		% \end{macro}
	%		%
			% \begin{macro}{\@@_deduplicate_teachers:nn}
			%
			% Pro odstranění duplicit v seznamu vyučujících slouží makro
			% \|\@@_deduplicate_teachers:nn\|\marg{oddělovač}\marg{vyučující}. Parametr
			% \meta{oddělovač} udává symbol, který odděluje jednotlivé vyučující v
			% parametru \meta{vyučující}.
			%
			% \begin{macrocode}
			\cs_new:Nn
			\@@_deduplicate_teachers:nn
			{
			\seq_clear:N
			\l_tmpa_seq
			\prop_clear:N
			\l_tmpa_prop
			\seq_set_split:Nnn
			\l_tmpb_seq
			{ #1 }
			{ #2 }
			\seq_map_inline:Nn
			\l_tmpb_seq
			{
			\prop_if_in:NnF
			\l_tmpa_prop
			{ ##1 }
			{
			\prop_put:Nnn
			\l_tmpa_prop
			{ ##1 }
			{ }
			\seq_put_right:Nn
			\l_tmpa_seq
			{ ##1 }
			}
			}
			\seq_use:Nn
			\l_tmpa_seq
			{ #1~ }
			}
			% \end{macrocode}
			%
			% \end{macro}
			%
	% \begin{macrocode}		% \begin{macrocode}
	\ExplSyntaxOff		\ExplSyntaxOff
	% \end{macrocode}		% \end{macrocode}

ukazka.tex

+1 −1

Original line number	Original line	Diff line number	Diff line
	@@ -315,7 +315,7 @@ Tel.: 549 49 1111, 549 49 xxxx \\
	\lipsum[1]		\lipsum[1]

	\begin{kTabulka-DSP}		\begin{kTabulka-DSP}
	\kPredmet{Bi6180}{Biologie rostlin}{2+2}{2/0/0}{zk}{Baláž, Gloser, Kummerová}{}		\kPredmet{Bi6180}{Biologie rostlin}{2+2}{2/0/0}{zk}{\kJedenUc{,}{Baláž, Gloser, Kummerová, Gloser, Kummerová}}{}
	\kPredmet{Bi5710c}{Mikrobiologie -- cvičení}{4}{0/2/0}{z}{Kučerová}{}		\kPredmet{Bi5710c}{Mikrobiologie -- cvičení}{4}{0/2/0}{z}{Kučerová}{}
	\kPredmet{Bi4030c}{Laboratorní cvičení z molekulární biologie pro biochemiky}{3}{0/3/0}{z}{Botka}{}		\kPredmet{Bi4030c}{Laboratorní cvičení z molekulární biologie pro biochemiky}{3}{0/3/0}{z}{Botka}{}
	\kNadpisNormal{Prázdná sekce}		\kNadpisNormal{Prázdná sekce}