* 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 0a805ea6499200bff17c00c0ba88d370d5afd152..9532c6feff8e9c77ebe61828331a18132933d885 100644 (file)
--- 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 54b1f7064937335dcb3792d770d8f99ebe81f4b4..5b8fb0b34807b1b77ff07ab74d56ac0358206d8b 100644 (file)
--- 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.