boernel/lilypond-common-includes
10
0
Fork 0
Code Issues 10 Pull Requests Packages Projects Releases Wiki Activity

PDF Bookmarks gefixt

Browse Source
This commit is contained in:
tux 2023-08-10 13:20:16 +02:00
parent 5c6fde06cc
commit 7ddd597bed
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
title_with_category_images.ly
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)
)) ))