PDF Bookmarks gefixt
This commit is contained in:
parent
5c6fde06cc
commit
7ddd597bed
@ -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)
|
||||||
))
|
))
|
||||||
|
Loading…
Reference in New Issue
Block a user