[latex3-commits] [git/LaTeX3-latex3-pdfresources] testlinkstuff: hm, listings don't like str_to_lower ... (e2cbf84)

[Ulrike Fischer]

Repository : https://github.com/latex3/pdfresources
On branch  : testlinkstuff
Link       : https://github.com/latex3/pdfresources/commit/e2cbf84d97eeeeb8ea09b1c457febe3fc6f5627a

>---------------------------------------------------------------

commit e2cbf84d97eeeeb8ea09b1c457febe3fc6f5627a
Author: Ulrike Fischer <fischer at troubleshooting-tex.de>
Date:   Fri May 3 00:06:07 2019 +0200

    hm, listings don't like str_to_lower ...


>---------------------------------------------------------------

e2cbf84d97eeeeb8ea09b1c457febe3fc6f5627a
 pdfresources.dtx      |    2 +-
 test-pdfresources.tex |   21 +++++++++++++++++++--
 2 files changed, 20 insertions(+), 3 deletions(-)

diff --git a/pdfresources.dtx b/pdfresources.dtx
index 907852d..a642374 100644
--- a/pdfresources.dtx
+++ b/pdfresources.dtx
@@ -546,7 +546,7 @@
 % perhaps some manipulation of the argument will be needed to map the current
 % hyperref syntax
 \cs_new_protected:Npn \pdf_destination:nn #1 #2
- {
+ { %hm listings doesn't like \str_lower_case
   \exp_args:Nnx\driver_pdf_destination:nn {#1}{\str_lower_case:n{#2}}
  }
 \cs_generate_variant:Nn\pdf_destination:nn {no,nf}
diff --git a/test-pdfresources.tex b/test-pdfresources.tex
index 1fc40fe..e3e8a16 100644
--- a/test-pdfresources.tex
+++ b/test-pdfresources.tex
@@ -15,15 +15,17 @@
 
 %\driver_pdf_catalog_gput:nn {Lang}
 \ExplSyntaxOff
-\usepackage{xcolor}
+\usepackage{xcolor,listings}
 \title{some title}
 \usepackage[customdriver=hluatex-experimental,
-            pdfusetitle,ocgcolorlinks,
+            pdfusetitle,
             pdftrapped=True,
             pdfversion=1.7
            % pdfstartpage=3,
            % pdfstartview=
             ]{hyperref}
+\usepackage[ocgcolorlinks]{ocgx2}
+            
 \makeatletter
 %\makeatother
 \hypersetup{pdfinfo={blub=bla,blb=zzz}}
@@ -37,6 +39,21 @@
 \makeatletter%\tracingmacros=1
 \textwidth=5cm
 \begin{document}
+\begin{lstlisting}[columns=fixed]
+stream
+   BT
+   /F27 14.3462 Tf                 %select font
+   89.291 746.742 Td               %move point
+   [(1)-574(Intro)-32(duction)]TJ  %print text
+   /F24 10.9091 Tf                 %select font
+    0 -24.35 Td                    %move point
+    [(Let's)-331(start)]TJ         %print text
+    205.635 -605.688 Td            %move point
+    [(1)]TJ                        %print text
+   ET
+endstream
+\end{lstlisting}
+\url{www.xxx.com}
 abc\newpage blb\newpage ccc
 \end{document}
 \tableofcontents