(headertext): rewording

diff --git a/ChangeLog b/ChangeLog
index a54a85fa1e4d540183f9ae2baa3c3adf9796fb49..c6a30a3dd8d23e2223b51b1ab0bb6bcb448f9b95 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-08-03  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+       * buildscripts/mutopia-index.py (headertext): rewording
+
 2003-08-02  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
        * scm/new-markup.scm (strut-markup): new markup function.

diff --git a/buildscripts/mutopia-index.py b/buildscripts/mutopia-index.py
index 130a6814ada0ec6c6d068811677b6813d04e29b7..dc8cbe54a4bd061b5b037072419367d727fc5d02 100644 (file)
--- a/buildscripts/mutopia-index.py
+++ b/buildscripts/mutopia-index.py
@@ -52,9 +52,11 @@ def file_exist_b (fn):
 
 
 headertext= r"""
-<p>You're looking at a page with some LilyPond samples.
-These files are also included in the distribution. The output is
-completely generated by LilyPond, without any touch up by humans.
+
+<p>You're looking at a page with some LilyPond samples.  These files
+are also included in the distribution. The output is completely
+generated from the <tt>.ly</tt> source file, without any further touch
+up.
 
 <p>The PostScript files were generated using TeX and dvips at 600 dpi.
 The pictures are 90 dpi anti-aliased snapshots of the printed output.

diff --git a/scm/new-markup.scm b/scm/new-markup.scm
index d7e751ea691139c889e097e2136aa680d0a56f4d..824444cd608b9382868743317144bb92208f8911 100644 (file)
--- a/scm/new-markup.scm
+++ b/scm/new-markup.scm
@@ -53,9 +53,7 @@ for the reader.
 ;;
 
 (define-public (simple-markup grob props . rest)
-  (Text_item::text_to_molecule grob props (car rest))
-  )
-
+  (Text_item::text_to_molecule grob props (car rest)))
 
 (define-public (stack-molecule-line space molecules)
   (if (pair? molecules)
@@ -101,7 +99,6 @@ for the reader.
                      (cadr rest))
     ))
 
-
 (define-public (finger-markup grob props . rest)
   (interpret-markup grob
                    (cons (list '(font-relative-size . -3)
@@ -109,7 +106,6 @@ for the reader.
                                props)
                    (car rest)))
 
-
 (define-public fontsize-markup (set-property-markup 'font-relative-size))
 (define-public magnify-markup (set-property-markup 'font-magnification))
 
@@ -674,11 +670,15 @@ against SIGNATURE, reporting MAKE-NAME as the user-invoked function.
  markup-module
  )
 
+;;
+;; TODO: add module argument so user-defined markups can also be 
+;; processed.
+;;
 (define-public (lookup-markup-command code)
   (let*
-      ( (sym (string->symbol (string-append code "-markup")))
-       (var (module-local-variable markup-module sym))
-       )
+      ((sym (string->symbol (string-append code "-markup")))
+       (var (module-local-variable markup-module sym))
+       )
     (if (eq? var #f)
        #f   
        (cons (variable-ref var) (object-property  (variable-ref var) 'markup-keyword))