refactor include system

private_includes/base/eps_file_from_song_dir.ily

@@ -0,0 +1,18 @@
+% songfilename auch im Markup verfügbar machen
+#(define-markup-list-command (setsongfilename layout props songfilename markuplist)
+  (string? markup-list?)
+  (interpret-markup-list layout (prepend-alist-chain 'songfilename songfilename props) markuplist))
+
+#(define-markup-command (customEps layout props ysize filename)(number? string?)
+   #:properties ((songfilename ""))
+   (interpret-markup layout props
+     (let ((defaulttitlemarkup (ly:output-def-lookup layout 'defaultTitleMarkup))
+           (filepath (if (string-null? songfilename)
+                          filename
+                          (ly:format "~a/~a/~a" songPath songfilename filename))))
+       (if (file-exists? filepath)
+             (make-epsfile-markup Y ysize filepath)
+             (if defaulttitlemarkup
+                 defaulttitlemarkup
+                 (ly:format "file does not exist ~a" filepath))
+))))