Add `\kurl` (9e87af0b) · Commits · Vít Starý Novotný / Programmes Catalogue

katalog.dtx

+77 −16

Original line number	Diff line number	Diff line
		@@ -719,6 +719,32 @@
		%
		% \end{macro}
		%
		% \begin{macro}{\kurl}
		%
		% Pro vloženi hypertextového odkazu pomocí poznámkového aparátu slouží makro
		% \|\kurl\|\marg{adresa}\marg{zobrazený text odkazu}.
		%
		% \begin{macrocode}
		\NewDocumentCommand
		{ \kurl }
		{ m m }
		{
		\@@_text_href_note:nn
		{ #1 }
		{ #2 }
		}
		% \end{macrocode}
		%
		% Makro \|\kurl\| můžete použít například následovně:
		%
		% \begin{verbatim}
		% Novinky z fakultního senátu můžete sledovat
		% \kurl{http://www.sci.muni.cz/cz/AS/}%
		% {na webových stránkách AS}.
		% \end{verbatim}
		%
		% \end{macro}
		%
		% \begin{macro}{\akinput}
		%
		% Pro vkládání externích souborů s textem slouží makro \|\akinput\|\marg{jméno
		@@ -1692,6 +1718,7 @@
		%
		% \begin{macro}{\@@_text_href:n}
		% \begin{macro}{\@@_text_href:nn}
		% \begin{macro}{\@@_text_href_note:nn}
		% \begin{macro}{\@@_text_href_strip_schema:N}
		% \begin{macro}{\@@_text_href_strip_slash:N}
		% \begin{macro}{\@@_text_href_strip:N}
		@@ -1703,12 +1730,6 @@
		\cs_new:Nn
		\@@_text_href:n
		{
		% \end{macrocode}
		%
		% Z adresy odstraníme úvodní část ve formátu \meta{schéma}\|:\|, následovanou
		% volitelně textem \|//\|. Tato zkrácená adresa nám poslouží jako text odkazu.
		%
		% \begin{macrocode}
		\tl_set:Nn
		\l_tmpa_tl
		{ #1 }
		@@ -1718,15 +1739,15 @@
		{ #1 }
		\l_tmpa_tl
		}
		\cs_new:Nn
		\@@_text_href:nn
		{
		% \end{macrocode}
		%
		% Ze zobrazeného textu adresy odstraníme úvodní a koncové mezery a odstraníme
		% případné koncové lomítko (\|/\|).
		% Pro vloženi hypertextového odkazu s konkrétním zobrazeným textem slouží makro
		% \|\@@_text_href:nn\|\marg{adresa}\marg{zobrazený text odkazu}.
		%
		% \begin{macrocode}
		\cs_new:Nn
		\@@_text_href:nn
		{
		\tl_set:Nn
		\l_tmpa_tl
		{ #2 }
		@@ -1742,6 +1763,42 @@
		\cs_generate_variant:Nn
		\@@_text_href:nn
		{ nV }
		% \end{macrocode}
		%
		% Pro vloženi hypertextového odkazu s konkrétním zobrazeným textem pomocí
		% poznámkového aparátu slouží makro
		% \|\@@_text_href_note:nn\|\marg{adresa}\marg{zobrazený text odkazu}.
		%
		% \begin{macrocode}
		\cs_new:Nn
		\@@_text_href_note:nn
		{
		\href { #1 } { #2 }
		\hspace * { 0.2ex }
		\tl_set:Nn
		\l_tmpa_tl
		{ #2 }
		\@@_text_href_strip:N
		\l_tmpa_tl
		\tl_set:Nn
		\l_tmpb_tl
		{ \href }
		\tl_put_right:Nn
		\l_tmpb_tl
		{ { #1 } }
		\tl_put_left:Nn
		\l_tmpb_tl
		{ \hspace * { 0.2ex } }
		\tl_put_right:Nx
		\l_tmpb_tl
		{ { \l_tmpa_tl } }
		\@@_table_note_direct:VN
		\l_tmpb_tl
		\c_true_bool
		}
		\cs_generate_variant:Nn
		\@@_table_note_direct:nN
		{ VN }
		\cs_new:Nn
		\@@_text_href_strip_schema:N
		{
		@@ -1770,6 +1827,10 @@
		%
		% \end{macro}
		% \end{macro}
		% \end{macro}
		% \end{macro}
		% \end{macro}
		% \end{macro}
		%
		% \begin{macro}{\@@_text_input:nn}
		%
		@@ -2162,7 +2223,7 @@
		\group_end:
		}
		}
		\@@_table_note_use_worker:VN
		\@@_table_note_direct:VN
		\l_tmpa_tl
		#2
		}
		@@ -2170,16 +2231,16 @@
		%
		% \end{macro}
		%
		% \begin{macro}{\@@_table_note_use_worker:nN}
		% \begin{macro}{\@@_table_note_direct:nN}
		%
		% Pro přímé vkládání textu poznámek do tabulky předmětů slouží makro
		% \|\@@_table_note_use_worker:nN\|\marg{text poznámky}\marg{číslování poznámky},
		% \|\@@_table_note_direct:nN\|\marg{text poznámky}\marg{číslování poznámky},
		% kde \meta{číslování poznámky} je proměnná typu boolean, která udává, jestli
		% bude poznámka číslovaná.
		%
		% \begin{macrocode}
		\cs_new:Nn
		\@@_table_note_use_worker:nN
		\@@_table_note_direct:nN
		{
		\tl_set:Nn
		\l_tmpa_tl
		@@ -2286,7 +2347,7 @@
		}
		}
		\cs_generate_variant:Nn
		\@@_table_note_use_worker:nN
		\@@_table_note_direct:nN
		{ VN }
		% \end{macrocode}
		%

ukazka.tex

+5 −10

Original line number	Diff line number	Diff line
		@@ -6,9 +6,8 @@
		% Tables
		\usepackage{tabularx}

		% Blind text and PDF comments
		% Blind text
		\usepackage{lipsum}
		\usepackage{pdfcomment}

		% For loops
		\usepackage{pgffor}
		@@ -75,15 +74,11 @@ Aktuální elektronická verze tohoto dokumentu je přístupná na adrese\\

		\begin{multicols*}{2}
		\noindent
		\lipsum[1]
		\lipsum[1-15]

		\pdfcomment[author={Vit Novotny}]{%
		Pridal jsem odstavcum odstavcovou zarazku.
		V grafickem navrhu chybi jak odstavcova zarazka
		tak odstavcovy proklad, coz povazuji za chybu,
		protoze to povede ke splyvani textu odstavcu.
		}%
		\lipsum[2-15]
		Novinky z fakultního senátu můžete sledovat
		\kurl{http://www.sci.muni.cz/cz/AS/}%
		{na webových stránkách AS}.
		\medskip

		\noindent