* scm/page-layout.scm: New file.

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index 41aea4a7449617fef651b3e521b6b57a1b5ef243..cf76e0afe5a42fa9ea1c9e59c7db165a7aa1152f 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -394,22 +394,11 @@ L1 is copied, L2 not.
        (caddr d)
        (scm-error "Could not find dumper for format ~s" format))))
 
-
-(define-public (make-title paper markup)
-  (if (markup? markup)
-      (let ((BASELINE-SKIP 2)
-            (props (list (append `((linewidth . ,(ly:paper-get-number
-                                                 paper 'linewidth))
-                                   (font-family . roman))
-                                 (ly:paper-lookup paper 'font-defaults)))))
-       (stack-lines DOWN 0 BASELINE-SKIP
-                    (list (interpret-markup paper props markup))))))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; other files.
 
 (map ly:load
-                                       ; load-from-path
+     ;; load-from-path
      '("define-music-types.scm"
        "output-lib.scm"
        "c++.scm"
@@ -440,6 +429,7 @@ L1 is copied, L2 not.
        "define-grobs.scm"
        "define-grob-interfaces.scm"
 
+       "page-layout.scm"
        "paper.scm"
        ))