PDF Bookmarks gefixt

This commit is contained in:
tux 2023-08-10 13:20:16 +02:00
parent 5c6fde06cc
commit 7ddd597bed

View File

@ -44,14 +44,7 @@
(ly:make-stencil (ly:make-stencil
(list 'embedded-ps (list 'embedded-ps
(ly:format (ly:format
"[/Action /GoTo /View [/Fit] /Title <~a> /OUT pdfmark" "[/Action /GoTo /View [/Fit] /Title (~a) /OUT pdfmark" (pdf-encode title)))
(fold
(lambda (ch hexout)
(string-append hexout
(format #f "~2,'0x" (char->integer ch))))
""
(string->list
(pdf-encode title)))))
empty-interval empty-interval empty-interval empty-interval
;'(0 . 0) '(0 . 0) ;'(0 . 0) '(0 . 0)
)) ))