]> gitweb.factorcode.org Git - factor.git/commitdiff
add rollover and remove underline from factor browser links
authorChris Double <chris.double@double.co.nz>
Fri, 20 May 2005 00:08:05 +0000 (00:08 +0000)
committerChris Double <chris.double@double.co.nz>
Fri, 20 May 2005 00:08:05 +0000 (00:08 +0000)
library/httpd/browser-responder.factor
library/httpd/html-tags.factor

index 8631cbbf56bc66186ec55404cfa604d56d411c33..b4a5130cf954b5e596b6d83611d9cdf919cc4061 100644 (file)
@@ -185,6 +185,13 @@ sequences ;
               " - " write
               "current-word" get write
             </title>
+            <style>
+              "A:link { text-decoration:none}\n" write
+              "A:visited { text-decoration:none}\n" write
+              "A:active { text-decoration:none}\n" write
+              "A:hover, A.nav:hover { border: 1px solid black; text-decoration: none; margin: 0px }\n" write
+              "A { margin: 1px }" write
+            </style>
           </head>
           <body> 
             <form name= "main" action= method= "post" form> 
index e8fe702d4424117422dbfe4fef2b0a106f483c03..a253da5b6606b22cf3beb6eb6b54bc038df9e570 100644 (file)
@@ -206,7 +206,7 @@ USE: sequences
     "h1" "h2" "h3" "h4" "h5" "h6" "h7" "h8" "h9"    
     "ol" "li" "form" "a" "p" "html" "head" "body" "title"
     "b" "i" "ul" "table" "tr" "td" "th" "pre" "textarea"
-    "script" "div" "span" "select" "option"
+    "script" "div" "span" "select" "option" "style"
 ] [ define-closed-html-word ] each
 
 ! Define some open HTML tags