From: Mats Bengtsson <mats.bengtsson@s3.kth.se>
Date: Wed, 10 Aug 2005 08:15:40 +0000 (+0000)
Subject: 	* scm/define-markup-commands.scm (normal-text): Added 2 new
X-Git-Tag: release/2.7.5~27
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=faf123b0b9d9ba402d94aa3b33e8756ad658b41c;p=lilypond.git

	* scm/define-markup-commands.scm (normal-text): Added 2 new
	markup commands, \normal-text and \medium (the latter thanks to
	Bruce Fairchild).
---

diff --git a/ChangeLog b/ChangeLog
index 0a805ea649..9532c6feff 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2005-08-10  Mats Bengtsson  <mabe@drongo.s3.kth.se>
+
+	* scm/define-markup-commands.scm (normal-text): Added 2 new
+	markup commands, \normal-text and \medium (the latter thanks to
+	Bruce Fairchild). 
+
 2005-08-08  Graham Percival  <gpermus@gmail.com>
 
 	* Documentation/user/programming-interface.itely: fix @{ @}.
diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 54b1f70649..5b8fb0b348 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -762,6 +762,17 @@ recommend font for this is bold and italic"
   (interpret-markup
    layout (prepend-alist-chain 'font-shape 'upright props) arg))
 
+(def-markup-command (medium layout props arg) (markup?)
+  "Switch to medium font-series (in contrast to bold)."
+  (interpret-markup layout (prepend-alist-chain 'font-series 'medium props)
+		    arg))
+
+(def-markup-command (normal-text layout props arg) (markup?)
+  "Set all font related properties (except the size) to get the default normal text font, no matter what font was used earlier."
+  ;; ugh - latin1
+  (interpret-markup layout
+                    (cons '((font-family . roman) (font-shape . upright) (font-series . medium) (font-encoding . latin1)) props)
+                    arg)) 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; symbols.