Remove obsolete code

slava 2006-12-02 21:51:50 +00:00
parent 7b78022924
commit 18e0be59e0
2 changed files with 0 additions and 26 deletions

View File

@ -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

View File

@ -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>