commit d2687dde3a8129975f4049a16a7513d8973c6bcc
Author: Sam Liddicott <sliddicott@sonicwall.com>
Date:   Thu May 24 12:50:43 2012 +0100

    Fix: try to use museo

diff --git a/TeXmacs/progs/fonts/fonts-truetype.scm b/TeXmacs/progs/fonts/fonts-truetype.scm
index ca25a37..85c957e 100644
--- a/TeXmacs/progs/fonts/fonts-truetype.scm
+++ b/TeXmacs/progs/fonts/fonts-truetype.scm
@@ -27,6 +27,22 @@
     ((luxi $a $b slanted $s $d) (truetype luxirri $s $d))
     ((luxi $a $b $c $s $d) (truetype luxirr $s $d))
 
+    ((ttf-museo rm $a $b $s $d)    (truetype MuseoForDell-Regular     $s $d))
+    ((ttf-museo rm bold $a $s $d)  (truetype MuseoForDell-Bold        $s $d))
+    ((ttf-museo rm xbold $a $s $d) (truetype MuseoForDell-Bold        $s $d))
+    ((ttf-museo ss $a $b $s $d)    (truetype MuseoSansForDell-Regular $s $d))
+    ((ttf-museo ss bold $a $s $d)  (truetype MuseoSansForDell-Bold    $s $d))
+
+    ((otf-museo rm $a $b $s $d)    (truetype MuseoForDell-300         $s $d))
+    ((otf-museo rm bold $a $s $d)  (truetype MuseoForDell-500         $s $d))
+    ((otf-museo rm xbold $a $s $d) (truetype MuseoForDell-700         $s $d))
+    ((otf-museo ss $a $b $s $d)    (truetype MuseoForDell-300         $s $d))
+    ((otf-museo ss bold $a $s $d)  (truetype MuseoForDell-500         $s $d))
+    ((otf-museo ss xbold $a $s $d) (truetype MuseoForDell-700         $s $d))
+    ((otf-museo ss $a $italic $s $d)    (truetype MuseoForDell-300_italic $s $d))
+    ((otf-museo ss bold $italic $s $d)  (truetype MuseoForDell-500_italic $s $d))
+    ((otf-museo ss xbold $italic $s $d) (truetype MuseoForDell-700_italic $s $d))
+
     ((ms-andalemo rm $b $c $s $d) (truetype andalemo $s $d))
     ((ms-arial rm xbold $a $s $d) (truetype ariblk $s $d))
     ((ms-arial rm bold italic $s $d) (truetype arialbi $s $d))
diff --git a/TeXmacs/progs/text/format-text-menu.scm b/TeXmacs/progs/text/format-text-menu.scm
index 21032be..e28f268 100644
--- a/TeXmacs/progs/text/format-text-menu.scm
+++ b/TeXmacs/progs/text/format-text-menu.scm
@@ -27,6 +27,12 @@
       (if (url-exists-in-tex? "ccr10.mf")
 	  ("Concrete" (make-with "font" "concrete")))
       ---
+      (-> "Dell"
+          (if (font-exists-in-tt? "MuseoForDell-Regular")
+              ("Museo (ttf)" (make-with "font" "ttf-museo")))
+          (if (font-exists-in-tt? "MuseoForDell-100")
+              ("Museo (otf)" (make-with "font" "otf-museo")))
+      )
       (-> "Adobe"
 	  (if (url-exists-in-tex? "rpagk.tfm")
 	      ("Avant Garde" (make-with "font" "avant-garde")))