Issue 4994/4: Add creating font exporting directory

[lilypond.git] / scm / framework-ps.scm

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 4a17477cb8f29e1e6b069ed1380ed20cf1810485..aee522e0fa7e53b55101b7f14350d7d27fe2eeaa 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -536,6 +536,15 @@
    "/lilypond-datadir where {pop} {userdict /lilypond-datadir (~a) put } ifelse"
    (ly:get-option 'datadir))
   (set! never-embed-font-list (list))
+  (if (ly:get-option 'font-export-dir)
+      (let ((dirname (format #f "~a" (ly:get-option 'font-export-dir))))
+        (if (file-exists? dirname)
+            (ly:debug
+             (_ "Font export directory `~a' already exists.") dirname)
+            (begin
+              (ly:debug
+               (_ "Making font export directory `~a'.") dirname)
+              (mkdir dirname)))))
   (if load-fonts?
       (for-each (lambda (f)
                   (format port "\n%%BeginFont: ~a\n" (car f))