steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor changes to web framework; fixing websites.concatenative:init-testing

db4
Daniel Ehrenberg 2009-01-31 01:01:54 -06:00
parent a6a1b56169
commit 58d6e68855
5 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/furnace/auth/auth-docs.factor
View File

@ -105,9 +105,8 @@ ARTICLE: "furnace.auth.realm-config" "Authentication realm configuration"
"Instances of subclasses of " { $link realm } " have the following slots which may be set:"
{ $table
{ { $slot "name" } "A string identifying the realm for user interface purposes" }
{ { $slot "users" } { "An authentication provider (see " { $link "furnace.auth.providers" } ". By default, the " { $link users-in-db } " provider is used." } }
{ { $slot "users" } { "An authentication provider (see " { $link "furnace.auth.providers" } "). By default, the " { $link users-in-db } " provider is used." } }
{ { $slot "checksum" } { "An implementation of the checksum protocol used for verifying passwords (see " { $link "checksums" } "). The " { $link sha-256 } " checksum is used by default." } }
{ { $slot "users" } { "An authentication provider (see " { $link "furnace.auth.providers" } } }
{ { $slot "secure" } { "A boolean, that when set to a true value, forces the client to access the authentication realm via HTTPS. An attempt to access the realm via HTTP results in a redirect to the corresponding HTTPS URL. On by default." } }
} ;

1
basis/html/templates/chloe/chloe.factor
View File

@ -16,7 +16,6 @@ html.templates.chloe.components
html.templates.chloe.syntax ;
IN: html.templates.chloe
! Chloe is Ed's favorite web designer
TUPLE: chloe path ;
C: <chloe> chloe

6
basis/html/templates/chloe/compiler/compiler.factor
View File

@ -73,8 +73,8 @@ DEFER: compile-element
[ compile-start-tag ]
[ compile-children ]
[ compile-end-tag ]
[ drop tag-stack get pop* ]
} cleave ;
} cleave
tag-stack get pop* ;
ERROR: unknown-chloe-tag tag ;
@ -116,7 +116,7 @@ ERROR: unknown-chloe-tag tag ;
[ [ compile-children ] compile-quot ] [ % ] bi* ; inline
: compile-children>string ( tag -- )
[ with-string-writer ] process-children ;
[ with-string-writer ] process-children ;
: compile-with-scope ( quot -- )
compile-quot [ with-scope ] [code] ; inline

3
basis/html/templates/chloe/components/components.factor
View File

@ -21,7 +21,8 @@ M: singleton-class component-tag ( tag class -- )
bi ;
M: tuple-class component-tag ( tag class -- )
[ drop "name" required-attr compile-attr ] [ compile-component-attrs ] 2bi
[ drop "name" required-attr compile-attr ]
[ compile-component-attrs ] 2bi
[ render ] [code] ;
: COMPONENT:

10
extra/websites/concatenative/concatenative.factor
View File

@ -55,8 +55,6 @@ TUPLE: factor-website < dispatcher ;
: <factor-website> ( -- responder )
factor-website new-dispatcher
<wiki> "wiki" add-responder
<user-admin> "user-admin" add-responder
URL" /wiki/view/Front Page" <redirect-responder> "" add-responder ;
SYMBOL: key-password
@ -76,8 +74,10 @@ SYMBOL: dh-file
"password" key-password set-global
common-configuration
<factor-website>
<pastebin> <factor-boilerplate> <login-config> "pastebin" add-responder
<planet> <factor-boilerplate> <login-config> "planet" add-responder
<wiki> <login-config> <factor-boilerplate> "wiki" add-responder
<user-admin> <login-config> <factor-boilerplate> "user-admin" add-responder
<pastebin> <login-config> <factor-boilerplate> "pastebin" add-responder
<planet> <login-config> <factor-boilerplate> "planet" add-responder
"/tmp/docs/" <help-webapp> "docs" add-responder
test-db <alloy>
main-responder set-global ;
@ -90,7 +90,7 @@ SYMBOL: dh-file
: init-production ( -- )
common-configuration
<vhost-dispatcher>
<factor-website> <login-config> <factor-boilerplate> test-db <alloy> "concatenative.org" add-responder
<factor-website> <wiki> <login-config> <factor-boilerplate> test-db <alloy> "concatenative.org" add-responder
<pastebin> <login-config> <factor-boilerplate> test-db <alloy> "paste.factorcode.org" add-responder
<planet> <login-config> <factor-boilerplate> test-db <alloy> "planet.factorcode.org" add-responder
home "docs" append-path <help-webapp> test-db <alloy> "docs.factorcode.org" add-responder