From 5a8152186179868f0b7bbc22f47ce81342b18e1b Mon Sep 17 00:00:00 2001 From: Sven Axelsson Date: Sun, 15 Feb 2009 13:55:36 +0100 Subject: [PATCH] Added and updated stuff. --- _sets/medley_2008_strasbourg.ly | 2 +- formatbook.ly | 94 ++++++++++++++++----------------- 2 files changed, 48 insertions(+), 48 deletions(-) diff --git a/_sets/medley_2008_strasbourg.ly b/_sets/medley_2008_strasbourg.ly index ce14f86..b48e6c3 100644 --- a/_sets/medley_2008_strasbourg.ly +++ b/_sets/medley_2008_strasbourg.ly @@ -1,4 +1,4 @@ - + \header { title = "2008 Medley for Strasbourg" diff --git a/formatbook.ly b/formatbook.ly index f0717fa..3481ba0 100644 --- a/formatbook.ly +++ b/formatbook.ly @@ -1,47 +1,47 @@ -%{ - Header formatting for bagpipe tunes. Customize to get your name in the tag line. -%} - -\version "2.11.43" - -% Bring in the time/date package. Set format to month day, year - -#(use-modules (srfi srfi-19)) -today = #(date->string (current-date) "~B ~d, ~Y") - -\paper { - raggedbottom = ##t - tagline = \markup { - \line { - "Rev. " \today - #(ly:export (ly:wide-char->utf-8 #x2014)) % Em-dash - "P/S Sven Axelsson, MPD" - } - } - bookTitleMarkup = \markup { - \override #'(baseline-skip . 3.5) - \column { - \fill-line { \fromproperty #'header:dedication } - \override #'(baseline-skip . 3.5) - \column { - \huge \bigger \bold - \fill-line { - \bigger \fromproperty #'header:title - } - \fill-line { - \large \smaller \bold - \bigger \fromproperty #'header:subtitle - } - \fill-line { - \smaller - \line { "(" \fromproperty #'header:source ")" } - } - \fill-line { - \line { \fromproperty #'header:meter } - \line { \fromproperty #'header:composer " " \italic \fromproperty #'header:arranger } - } - \fill-line { " " } % Empty line - } - } - } -} +%{ + Header formatting for bagpipe tunes. Customize to get your name in the tag line. +%} + +\version "2.11.43" + +% Bring in the time/date package. Set format to month day, year + +#(use-modules (srfi srfi-19)) +today = #(date->string (current-date) "~B ~d, ~Y") + +\paper { + raggedbottom = ##t + tagline = \markup { + \line { + "Rev. " \today + #(ly:export (ly:wide-char->utf-8 #x2014)) % Em-dash + "P/S Sven Axelsson, MPD" + } + } + bookTitleMarkup = \markup { + \override #'(baseline-skip . 3.5) + \column { + \fill-line { \fromproperty #'header:dedication } + \override #'(baseline-skip . 3.5) + \column { + \huge \larger \bold + \fill-line { + \larger \fromproperty #'header:title + } + \fill-line { + \large \smaller \bold + \larger \fromproperty #'header:subtitle + } + \fill-line { + \smaller \bold + \line { "(" \fromproperty #'header:source ")" } + } + \fill-line { + \line { \fromproperty #'header:meter } + \line { \fromproperty #'header:composer " " \italic \fromproperty #'header:arranger } + } + } + } + } + +}