From b682d52a9dbe57d0f22328d7f3f3bc8d0d8e1110 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Mon, 26 Jun 2006 07:08:35 +0000
Subject: [PATCH] Help markup fixes

---
 library/help/help.factor       | 2 +-
 library/help/markup.factor     | 4 ++--
 library/help/stylesheet.factor | 3 +++
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/library/help/help.factor b/library/help/help.factor
index 139053afe4..431c7d250e 100644
--- a/library/help/help.factor
+++ b/library/help/help.factor
@@ -30,7 +30,7 @@ M: word article-content
 : help ( topic -- ) dup $title (help) terpri ;
 
 : see-help ( word -- )
-    dup help [ terpri $definition terpri ] with-default-style ;
+    dup help terpri $definition terpri ;
 
 : handbook ( -- ) "handbook" help ;
 
diff --git a/library/help/markup.factor b/library/help/markup.factor
index 7b7554ed85..8c5c3da47c 100644
--- a/library/help/markup.factor
+++ b/library/help/markup.factor
@@ -159,7 +159,7 @@ M: link summary "Link: " swap link-name unparse append ;
     ] ($block) table last-element set ;
 
 : $list ( content -- )
-    [  "\u00b7" swap 2array ] map list-style $grid ;
+    [  "-" swap 2array ] map list-style $grid ;
 
 : $table ( content -- )
     table-style $grid ;
@@ -192,7 +192,7 @@ M: link summary "Link: " swap link-name unparse append ;
 : $see ( content -- ) first ($see) ;
 
 : $definition ( content -- )
-    "Definition" $heading ($see) ;
+    "Definition" $heading terpri ($see) ;
 
 : $curious ( content -- )
     "For the curious..." $heading print-element ;
diff --git a/library/help/stylesheet.factor b/library/help/stylesheet.factor
index 0d1ec14bb1..f26af7284d 100644
--- a/library/help/stylesheet.factor
+++ b/library/help/stylesheet.factor
@@ -7,6 +7,7 @@ USING: styles ;
     H{
         { font "sans-serif" }
         { font-size 12 }
+        { font-style plain }
         { wrap-margin 500 }
     } ;
 
@@ -34,6 +35,7 @@ USING: styles ;
 
 : heading-style
     H{
+        { font "sans-serif" }
         { font-size 14 }
         { font-style bold }
     } ;
@@ -56,6 +58,7 @@ USING: styles ;
 : code-style
     H{
         { font "monospace" }
+        { font-size 12 }
         { page-color { 0.8 0.8 0.8 0.5 } }
         { border-width 5 }
         { wrap-margin f }