]> git.donarmstrong.com Git - lilypond.git/commitdiff
Clean up declarations-init.ly, paper-defaults-init.ly.
authorMark Polesky <markpolesky@yahoo.com>
Sat, 4 Dec 2010 23:28:02 +0000 (15:28 -0800)
committerMark Polesky <markpolesky@yahoo.com>
Sun, 5 Dec 2010 18:28:55 +0000 (10:28 -0800)
ly/declarations-init.ly
ly/paper-defaults-init.ly

index 403bb0d01d8b24bddbfc9386f78153d728ea7547..b500cbf09f37f520df0dcbef8d77ceb36c2210bd 100644 (file)
@@ -99,27 +99,27 @@ repeatTie = #(make-music 'RepeatTieEvent)
 \include "paper-defaults-init.ly"
 
 \layout {
-    mm = #(ly:output-def-lookup $defaultpaper 'mm)
-    unit = #(ly:output-def-lookup $defaultpaper 'unit)
+  unit = #(ly:output-def-lookup $defaultpaper 'unit)
+  mm = #(ly:output-def-lookup $defaultpaper 'mm)
 
-    in = #(* 25.4 mm)
-    pt = #(/  in 72.27)
-    cm = #(* 10 mm)
+  cm = #(* 10 mm)
+  in = #(* 254/10 mm)
+  pt = #(* 100/7227 in)
 
-    \include "engraver-init.ly"
+  \include "engraver-init.ly"
 
-    #(set-paper-dimension-variables (current-module))
+  #(set-paper-dimension-variables (current-module))
 }
 
 #(set-default-paper-size (ly:get-option 'paper-size))
 
 partCombineListener = \layout {
-    \context {
-       \Score
-       skipTypesetting = ##t
-       ignoreBarChecks = ##t
-       \alias "Timing"
-    }
+  \context {
+    \Score
+    skipTypesetting = ##t
+    ignoreBarChecks = ##t
+    \alias "Timing"
+  }
 }
 
 \include "dynamic-scripts-init.ly"
index e18e12019da5bf4a44a41c8546013e77ef2e91a8..d0869eaf509aa3d26bcb5f7501fe89052fdece2a 100644 (file)
   %%% the dimension-variables variable.  See paper.scm.
 
   unit = #(ly:unit)
-  mm = 1.0
-  in = 25.4
-  pt = #(/ in 72.27)
+  mm = #1
   cm = #(* 10 mm)
+  in = #(* 254/10 mm)
+  pt = #(* 100/7227 in)
 
   % 20pt staff, 5 pt = 1.75 mm
   output-scale = #1.7573
@@ -98,9 +98,9 @@
   %%
   %% Page breaking
   %%
-  blank-after-score-page-force = 2
-  blank-last-page-force = 0
-  blank-page-force = 5
+  blank-after-score-page-force = #2
+  blank-last-page-force = #0
+  blank-page-force = #5
   page-breaking = #ly:optimal-breaking
 
 
   %%
   %% Headers, footers, and titles
   %%
-  #(define make-header (marked-up-headfoot 'oddHeaderMarkup 'evenHeaderMarkup))
-  #(define make-footer (marked-up-headfoot 'oddFooterMarkup 'evenFooterMarkup))
+  make-header = #(marked-up-headfoot 'oddHeaderMarkup 'evenHeaderMarkup)
+  make-footer = #(marked-up-headfoot 'oddFooterMarkup 'evenFooterMarkup)
 
   #(define-public book-title (marked-up-title 'bookTitleMarkup))
   #(define-public score-title (marked-up-title 'scoreTitleMarkup))
   %%
   %% Fonts
   %%
-  #(define font-defaults
-    '((font-family . feta) (font-encoding . fetaMusic)))
+  font-defaults = #'((font-family . feta)
+                     (font-encoding . fetaMusic))
 
   % `latin1' is a dummy value for Pango fonts
-  #(define text-font-defaults
-     `((font-encoding . latin1)
-       (baseline-skip . 3)
-       (word-space . 0.6)))
+  text-font-defaults = #'((font-encoding . latin1)
+                          (baseline-skip . 3)
+                          (word-space . 0.6))
 
 }