Working on help webapp
Slava Pestov
parent
dc1d7c76b7
commit
edc7aa3908
|
|
@ -0,0 +1,5 @@
|
|||
IN: help.html.tests
|
||||
USING: html.streams classes.predicate help.topics help.markup
|
||||
io.streams.string accessors prettyprint kernel tools.test ;
|
||||
|
||||
[ ] [ [ [ \ predicate-instance? def>> . ] with-html-writer ] with-string-writer drop ] unit-test
|
||||
|
|
@ -1,5 +1,106 @@
|
|||
! Copyright (C) 2008 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: io.encodings.utf8 io.encodings.ascii io.encodings.binary
|
||||
io.files html.streams html.elements html.components help kernel
|
||||
assocs sequences make words accessors arrays help.topics vocabs
|
||||
tools.vocabs tools.vocabs.browser namespaces prettyprint io
|
||||
vocabs.loader serialize fry memoize unicode.case ;
|
||||
IN: help.html
|
||||
|
||||
: escape-char ( ch -- )
|
||||
dup H{
|
||||
{ CHAR: " "__quote__" }
|
||||
{ CHAR: * "__star__" }
|
||||
{ CHAR: : "__colon__" }
|
||||
{ CHAR: < "__lt__" }
|
||||
{ CHAR: > "__gt__" }
|
||||
{ CHAR: ? "__question__" }
|
||||
{ CHAR: \\ "__backslash__" }
|
||||
{ CHAR: | "__pipe__" }
|
||||
{ CHAR: _ "__underscore__" }
|
||||
{ CHAR: / "__slash__" }
|
||||
{ CHAR: \\ "__backslash__" }
|
||||
{ CHAR: , "__comma__" }
|
||||
} at [ % ] [ , ] ?if ;
|
||||
|
||||
: escape-filename ( string -- filename )
|
||||
[ [ escape-char ] each ] "" make ;
|
||||
|
||||
GENERIC: topic>filename* ( topic -- name prefix )
|
||||
|
||||
M: word topic>filename* [ name>> ] [ vocabulary>> ] bi 2array "word" ;
|
||||
M: link topic>filename* name>> "article" ;
|
||||
M: word-link topic>filename* name>> topic>filename* ;
|
||||
M: vocab-spec topic>filename* vocab-name "vocab" ;
|
||||
M: vocab-tag topic>filename* name>> "tag" ;
|
||||
M: vocab-author topic>filename* name>> "author" ;
|
||||
|
||||
: topic>filename ( topic -- filename )
|
||||
[
|
||||
topic>filename* % "-" %
|
||||
dup array?
|
||||
[ [ escape-filename ] map "," join ]
|
||||
[ escape-filename ]
|
||||
if % ".html" %
|
||||
] "" make ;
|
||||
|
||||
M: topic browser-link-href topic>filename ;
|
||||
|
||||
: help-stylesheet ( -- )
|
||||
"resource:basis/help/html/stylesheet.css" ascii file-contents write ;
|
||||
|
||||
: help>html ( topic -- )
|
||||
dup topic>filename utf8 [
|
||||
dup article-title
|
||||
[ <style> help-stylesheet </style> ]
|
||||
[ [ help ] with-html-writer ] simple-page
|
||||
] with-file-writer ;
|
||||
|
||||
: all-vocabs-really ( -- seq )
|
||||
#! Hack.
|
||||
all-vocabs values concat
|
||||
vocabs [ find-vocab-root not ] filter [ vocab ] map append ;
|
||||
|
||||
: all-topics ( -- topics )
|
||||
[
|
||||
! articles get keys [ >link ] map %
|
||||
! all-words [ >link ] map %
|
||||
! all-authors [ <vocab-author> ] map %
|
||||
all-tags [ <vocab-tag> ] map %
|
||||
! all-vocabs-really %
|
||||
] { } make ;
|
||||
|
||||
: serialize-index ( index file -- )
|
||||
[ [ [ topic>filename ] dip ] { } assoc-map-as object>bytes ] dip
|
||||
binary set-file-contents ;
|
||||
|
||||
: generate-indices ( -- )
|
||||
articles get keys [ [ >link ] [ article-title ] bi ] { } map>assoc "articles.idx" serialize-index
|
||||
all-words [ dup name>> ] { } map>assoc "words.idx" serialize-index
|
||||
all-vocabs-really [ dup vocab-name ] { } map>assoc "vocabs.idx" serialize-index ;
|
||||
|
||||
: generate-help ( -- )
|
||||
all-topics [ help>html ] each ;
|
||||
|
||||
MEMO: load-index ( name -- index )
|
||||
binary file-contents bytes>object ;
|
||||
|
||||
TUPLE: result title href ;
|
||||
|
||||
M: result link-title title>> ;
|
||||
|
||||
M: result link-href href>> ;
|
||||
|
||||
: offline-apropos ( string index -- results )
|
||||
load-index swap >lower
|
||||
'[ [ drop _ ] dip >lower subseq? ] assoc-filter
|
||||
[ swap result boa ] { } assoc>map ;
|
||||
|
||||
: article-apropos ( string -- results )
|
||||
"articles.idx" offline-apropos ;
|
||||
|
||||
: word-apropos ( string -- results )
|
||||
"words.idx" offline-apropos ;
|
||||
|
||||
: vocab-apropos ( string -- results )
|
||||
"vocabs.idx" offline-apropos ;
|
||||
|
|
|
|||
|
|
@ -0,0 +1,4 @@
|
|||
a:link { text-decoration: none; color: #00004c; }
|
||||
a:visited { text-decoration: none; color: #00004c; }
|
||||
a:active { text-decoration: none; color: #00004c; }
|
||||
a:hover { text-decoration: underline; color: #00004c; }
|
||||
|
|
@ -0,0 +1,38 @@
|
|||
! Copyright (C) 2008 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel accessors http.server.dispatchers
|
||||
http.server.static furnace.actions furnace.redirection urls
|
||||
validators locals io.files html.forms help.html ;
|
||||
IN: webapps.help
|
||||
|
||||
TUPLE: help-webapp < dispatcher ;
|
||||
|
||||
:: <search-action> ( help-dir -- action )
|
||||
<page-action>
|
||||
{ help-webapp "search" } >>template
|
||||
|
||||
[
|
||||
{
|
||||
{ "search" [ 2 v-min-length 50 v-max-length v-one-line ] }
|
||||
} validate-params
|
||||
|
||||
help-dir set-current-directory
|
||||
|
||||
"search" value article-apropos "articles" set-value
|
||||
"search" value word-apropos "words" set-value
|
||||
"search" value vocab-apropos "vocabs" set-value
|
||||
|
||||
{ help-webapp "search" } <chloe-content>
|
||||
] >>submit ;
|
||||
|
||||
: <main-action> ( -- action )
|
||||
<page-action>
|
||||
{ help-webapp "help" } >>template ;
|
||||
|
||||
: <help-webapp> ( help-dir -- webapp )
|
||||
help-webapp new-dispatcher
|
||||
<main-action> "" add-responder
|
||||
over <search-action> "search" add-responder
|
||||
swap <static> "content" add-responder ;
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
<?xml version="1.0" encoding="iso-8859-1"?>
|
||||
<!DOCTYPE html
|
||||
PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN"
|
||||
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">
|
||||
|
||||
<t:chloe xmlns:t="http://factorcode.org/chloe/1.0">
|
||||
|
||||
<html xmlns="http://www.w3.org/1999/xhtml">
|
||||
<head>
|
||||
<title>Factor Documentation</title>
|
||||
<t:base t:href="$help-webapp" />
|
||||
</head>
|
||||
|
||||
<frameset cols="25%, 75%">
|
||||
<frame src="search" name="search" />
|
||||
<frame src="content/article-handbook.html" name="content" />
|
||||
</frameset>
|
||||
</html>
|
||||
|
||||
</t:chloe>
|
||||
|
|
@ -0,0 +1,53 @@
|
|||
<?xml version='1.0' ?>
|
||||
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
|
||||
|
||||
<t:chloe xmlns:t="http://factorcode.org/chloe/1.0">
|
||||
|
||||
<html xmlns="http://www.w3.org/1999/xhtml">
|
||||
<head>
|
||||
<t:base t:href="$help-webapp/content/" />
|
||||
</head>
|
||||
|
||||
<body>
|
||||
<h1>Factor documentation</h1>
|
||||
|
||||
<t:form t:action="$help-webapp/search">
|
||||
<t:field t:name="search" />
|
||||
<button>Search</button>
|
||||
</t:form>
|
||||
|
||||
<t:if t:value="articles">
|
||||
<h1>Articles</h1>
|
||||
|
||||
<ul>
|
||||
<t:each t:name="articles">
|
||||
<li> <t:link t:name="value" t:target="content" /> </li>
|
||||
</t:each>
|
||||
</ul>
|
||||
</t:if>
|
||||
|
||||
<t:if t:value="vocabs">
|
||||
<h1>Vocabularies</h1>
|
||||
|
||||
<ul>
|
||||
<t:each t:name="vocabs">
|
||||
<li> <t:link t:name="value" t:target="content" /> </li>
|
||||
</t:each>
|
||||
</ul>
|
||||
</t:if>
|
||||
|
||||
<t:if t:value="words">
|
||||
<h1>Words</h1>
|
||||
|
||||
<ul>
|
||||
<t:each t:name="words">
|
||||
<li> <t:link t:name="value" t:target="content" /> </li>
|
||||
</t:each>
|
||||
</ul>
|
||||
</t:if>
|
||||
|
||||
</body>
|
||||
</html>
|
||||
|
||||
</t:chloe>
|
||||
Loading…
Reference in New Issue