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

scribble: add nosearchform to HTML output without a search box

Browse Source 
original commit: 3d637c047c51674ab061c61f618fb925aa22800b
This commit is contained in:
Matthew Flatt 2014-06-26 16:07:04 +01:00
parent 6b302dcfc6
commit adc82b0c67
5 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pkgs/scribble-pkgs/scribble-doc/scribblings/scribble/config.scrbl
View File

@ -349,6 +349,7 @@ The style classes:
[@css{nonavigation} @elem{Disabled links within a navigation bar.}] [@css{nonavigation} @elem{Disabled links within a navigation bar.}]
[@css{searchform} @elem{Outer wrapper for a search box within the top navigation bar.}] [@css{searchform} @elem{Outer wrapper for a search box within the top navigation bar.}]
[@css{searchbox} @elem{Inner wrapper for a search box within the top navigation bar.}] [@css{searchbox} @elem{Inner wrapper for a search box within the top navigation bar.}]
[@css{nosearchform} @elem{Takes the place of an absent search box within the top navigation bar.}]
[@spacer @spacer] [@spacer @spacer]

3
pkgs/scribble-pkgs/scribble-doc/scribblings/scribble/demo.scrbl
View File

@ -309,7 +309,8 @@ Links that are disabled (such as a next-page link on the last page)
are each in a span ``nonavigation''. are each in a span ``nonavigation''.
When a search box is included, then it is in ``searchform'' and then When a search box is included, then it is in ``searchform'' and then
``searchbox''. ``searchbox''. If no search box is included, then a ``nosearchform''
@tt{div} is used.
Finally, and not part of the nagivation bar, the bottom nagivation bar Finally, and not part of the nagivation bar, the bottom nagivation bar
is followed by a @tt{div} with the name is followed by a @tt{div} with the name

2
pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt
View File

@ -1001,7 +1001,7 @@
`(span ([class "navleft"]) `(span ([class "navleft"])
,@(if search-box? ,@(if search-box?
(list (if up-path search-box top-search-box)) (list (if up-path search-box top-search-box))
null) (list `(div ([class "nosearchform"]))))
,@(render ,@(render
sep-element sep-element
(and up-path (make-element top-link top-content)) (and up-path (make-element top-link top-content))

6
pkgs/scribble-pkgs/scribble-lib/scribble/manual-style.css
View File

@ -241,6 +241,12 @@ a:hover {
height: 4rem; height: 4rem;
} }
.nosearchform {
margin: 0;
padding: 0;
height: 4rem;
}
.searchbox { .searchbox {
font-size: 1rem; font-size: 1rem;
width: 12rem; width: 12rem;

4
pkgs/scribble-pkgs/scribble-lib/scribble/scribble.css
View File

@ -122,6 +122,10 @@ table td {
padding: 0; padding: 0;
} }
.nosearchform {
display: none;
}
.searchbox { .searchbox {
width: 16em; width: 16em;
margin: 0px; margin: 0px;