suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Fix nav separator for Opera

Browse Source 
Commit 8653bc6792b614c69b7d0aab7e329591735a0dad caused
the doc navigation to render oddly on Opera due to how
it handles  . This commit retains the spacing
for text browsers, but fixes the navigation on Opera.

original commit: 3e81924f848731abda7415d89b4db0ada6ecb308
This commit is contained in:
Asumu Takikawa 2012-11-27 17:49:45 -05:00
parent 84cef2a69a
commit 7a4767a341
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/html-render.rkt
View File

@ -843,6 +843,8 @@
"" ""
`(span ([class "navright"]) `(span ([class "navright"])
,@(render ,@(render
;; put space here for text browsers and to avoid an Opera issue
sep-element
(make-element (make-element
(cond [(not parent) "nonavigation"] (cond [(not parent) "nonavigation"]
[prev (titled-url "backward" prev)] [prev (titled-url "backward" prev)]
@ -871,7 +873,7 @@
next-content))))) next-content)))))
(define navbar (define navbar
`(div ([class ,(if top? "navsettop" "navsetbottom")]) `(div ([class ,(if top? "navsettop" "navsetbottom")])
,navleft ,sep-element ,navright nbsp)) ; need nbsp to make the navset bg visible ,navleft ,navright nbsp)) ; need nbsp to make the navset bg visible
(if (include-navigation?) (if (include-navigation?)
(list navbar) (list navbar)
null)) null))