suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

put search-box input inside form in Scribbled HTML

Browse Source 
svn: r12137

original commit: 6be0f8f4dfdbd92cf3c057ffa1bcac9ef09e1aa6
This commit is contained in:
Matthew Flatt 2008-10-27 13:06:01 +00:00
parent 1096283709
commit b70318935e
2 changed files with 24 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
collects/scribble/html-render.ss
View File

@ -191,7 +191,7 @@
(define search-field (define search-field
@`p{Search: @(input ([type "text"] [id "search_box"] @`p{Search: @(input ([type "text"] [id "search_box"]
[onchange "delayed_search(this.value,event);"] [onchange "delayed_search(this.value,event);"]
[onkeyup "delayed_search(this.value,event);"]))}) [onkeyup "delayed_search(this.value,event);"])))})
) )
@ -199,21 +199,23 @@
(let ([sa string-append] (let ([sa string-append]
[emptylabel "...search manuals..."] [emptylabel "...search manuals..."]
[dimcolor "#888"]) [dimcolor "#888"])
`(input `(form
([class "searchbox"] ([class "searchform"])
[style ,(sa "color: "dimcolor";")] (input
[type "text"] ([class "searchbox"]
[value ,emptylabel] [style ,(sa "color: "dimcolor";")]
[title "Enter a search string to search the manuals"] [type "text"]
[onkeypress ,(format "return DoSearchKey(event, this, ~s, ~s);" [value ,emptylabel]
(version) top-path)] [title "Enter a search string to search the manuals"]
[onfocus ,(sa "this.style.color=\"black\"; " [onkeypress ,(format "return DoSearchKey(event, this, ~s, ~s);"
"this.style.textAlign=\"left\"; " (version) top-path)]
"if (this.value == \""emptylabel"\") this.value=\"\";")] [onfocus ,(sa "this.style.color=\"black\"; "
[onblur ,(sa "if (this.value.match(/^ *$/)) {" "this.style.textAlign=\"left\"; "
" this.style.color=\""dimcolor"\";" "if (this.value == \""emptylabel"\") this.value=\"\";")]
" this.style.textAlign=\"center\";" [onblur ,(sa "if (this.value.match(/^ *$/)) {"
" this.value=\""emptylabel"\"; }")])))) " this.style.color=\""dimcolor"\";"
" this.style.textAlign=\"center\";"
" this.value=\""emptylabel"\"; }")])))))
(define search-box (make-search-box "../")) (define search-box (make-search-box "../"))
(define top-search-box (make-search-box "")) (define top-search-box (make-search-box ""))

6
collects/scribble/scribble.css
View File

@ -101,6 +101,12 @@ table td {
color: #e0e0e0; color: #e0e0e0;
} }
.searchform {
display: inline;
margin: 0;
padding: 0;
}
.searchbox { .searchbox {
width: 16em; width: 16em;
margin: 0px; margin: 0px;