From a34252099f841eb01c7b982d0e79dc41a724244d Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 2 Aug 2003 23:06:19 +0000
Subject: [PATCH] (headertext): rewording

---
 ChangeLog                     |  4 ++++
 buildscripts/mutopia-index.py |  8 +++++---
 scm/new-markup.scm            | 16 ++++++++--------
 3 files changed, 17 insertions(+), 11 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a54a85fa1e..c6a30a3dd8 100644
--- 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 130a6814ad..dc8cbe54a4 100644
--- 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 d7e751ea69..824444cd60 100644
--- 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))
-- 
2.39.5