Remove obsolete code
parent
7b78022924
commit
18e0be59e0
|
@ -8,8 +8,6 @@ io ;
|
|||
serving-html
|
||||
dup article-title [
|
||||
[ help ] with-html-stream
|
||||
<br/>
|
||||
<a "search" =href a> "Search" write </a>
|
||||
] html-document ;
|
||||
|
||||
: string>topic ( string -- topic )
|
||||
|
@ -27,13 +25,4 @@ M: link browser-link-href
|
|||
[ show-help ] curry quot-link
|
||||
] if ;
|
||||
|
||||
TUPLE: search terms ;
|
||||
|
||||
: search ( terms -- )
|
||||
<search> "search" "Search" render-page ;
|
||||
|
||||
\ search {
|
||||
{ "terms" }
|
||||
} define-action
|
||||
|
||||
"help" "show-help" "libs/furnace/tools" web-app
|
||||
|
|
|
@ -1,15 +0,0 @@
|
|||
<% USING: help kernel sequences html namespaces io ; %>
|
||||
|
||||
<form action="search" method="get">
|
||||
<h1>Search help</h1>
|
||||
<input type="field" name="terms" />
|
||||
<%
|
||||
"terms" get dup empty? [
|
||||
drop
|
||||
] [
|
||||
<b> "Results for " write dup write ":" write </b> <br/>
|
||||
search-help.
|
||||
] if
|
||||
%>
|
||||
<input type="submit" />
|
||||
</form>
|
Loading…
Reference in New Issue