From 38b0e0930b677ddcaa153d7d7d4b6dac19a63b22 Mon Sep 17 00:00:00 2001
From: Masamichi Hosoda <trueroad@trueroad.jp>
Date: Sun, 30 Oct 2016 03:33:41 +0900
Subject: [PATCH] Issue 4994/4: Add creating font exporting directory
This commit makes
LilyPond creates font exporting directory if it does not exist.
---
scm/framework-ps.scm | 9 +++++++++
1 file changed, 9 insertions(+)
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))
--
2.39.5