From: Masamichi Hosoda <trueroad@trueroad.jp>
Date: Sat, 29 Oct 2016 18:33:41 +0000 (+0900)
Subject: Issue 4994/4: Add creating font exporting directory
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=38b0e0930b677ddcaa153d7d7d4b6dac19a63b22;p=lilypond.git

Issue 4994/4: Add creating font exporting directory

This commit makes
LilyPond creates font exporting directory if it does not exist.
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 4a17477cb8..aee522e0fa 100644
--- 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))