Re: lilypond-book: "external" fonts and --pdf option problem

[Dmytro O. Redchuk]

2015-12-09 15:10 GMT+02:00 tisimst <address@hidden>:
> Dmytro,
>
> Sorry for my delayed comment. I don't know what is causing this, but I've
> seen this come up before from other users. I'm excited to see you like
> Improviso! I hope we can get this figured out.
Abraham,
yes, I like it very much, THANK you :)

When I insert some (display ...)'s into framework-ps.scm I can see
that ly:find-file fails to find font-file with --pdf option for some
reason.

Ok, as you can see, I can be wrong! Don't mind, please :)

Now I've simply added "fallback" workaround:

--- framework-ps.scm.orig       2015-12-08 10:44:54.293262621 +0200
+++ framework-ps.scm    2015-12-08 12:07:52.786888984 +0200
@@ -237,16 +237,18 @@
     (let* ((font (car font-name-filename))
            (name (cadr font-name-filename))
            (file-name (caddr font-name-filename))
-           (bare-file-name (ly:find-file file-name)))
+           (bare-file-name (ly:find-file file-name))
+           (font-file-name (ly:find-file (format #f "~a.otf" file-name))))
       (cons name
             (if (mac-font? bare-file-name)
                 (handle-mac-font name bare-file-name)
                 (cond
                  ((internal-font? file-name)
-                  (ps-load-file (ly:find-file
-                                 (format #f "~a.otf" file-name))))
+                  (ps-load-file font-file-name))
                  ((string? bare-file-name)
                   (ps-load-file file-name))
+                 ((string? font-file-name)
+                  (ps-load-file font-file-name))
                  (else
                   (ly:warning (_ "cannot embed ~S=~S") name file-name)
                   ""))))))

-- 
  Dmytro O. Redchuk