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

fix some help-lint errors.

db4
John Benediktsson 2014-03-12 20:08:15 -07:00
parent daec237fea
commit 03b7e67547
4 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/io/encodings/utf7/utf7-docs.factor
View File

@ -2,7 +2,9 @@ USING: help.markup help.syntax ;
IN: io.encodings.utf7 IN: io.encodings.utf7
HELP: utf7 HELP: utf7
{ $values { "utf7codec" utf7codec } }
{ $description "Encoding descriptor for UTF-7 encoding." } ; { $description "Encoding descriptor for UTF-7 encoding." } ;
HELP: utf7imap4 HELP: utf7imap4
{ $values { "utf7codec" utf7codec } }
{ $description "Encoding descriptor for the encoding UTF-7 modified for IMAP (see RFC 3501 5.1.3)." } ; { $description "Encoding descriptor for the encoding UTF-7 modified for IMAP (see RFC 3501 5.1.3)." } ;

4
basis/io/encodings/utf7/utf7.factor
View File

@ -10,13 +10,13 @@ TUPLE: utf7codec dialect buffer ;
! These words encodes the difference between standard utf7 and the ! These words encodes the difference between standard utf7 and the
! dialect used by IMAP which wants slashes replaced with commas when ! dialect used by IMAP which wants slashes replaced with commas when
! encoding and uses '&' instead of '+' as the escaping character. ! encoding and uses '&' instead of '+' as the escaping character.
: utf7 ( -- t ) : utf7 ( -- utf7codec )
{ {
{ { } { } } { { } { } }
{ { CHAR: + } { CHAR: - } } { { CHAR: + } { CHAR: - } }
} V{ } utf7codec boa ; } V{ } utf7codec boa ;
: utf7imap4 ( -- t ) : utf7imap4 ( -- utf7codec )
{ {
{ { CHAR: / } { CHAR: , } } { { CHAR: / } { CHAR: , } }
{ { CHAR: & } { CHAR: - } } { { CHAR: & } { CHAR: - } }

6
extra/grouping/extras/extras-docs.factor
View File

@ -3,12 +3,12 @@ USING: help.markup help.syntax sequences splitting strings ;
IN: grouping.extras IN: grouping.extras
HELP: group-by HELP: group-by
{ $values { "seq" "a sequence" } { "quot" { $quotation "( ... elt -- ... key )" } } { "groups" "a new assoc" } } { $values { "seq" "a sequence" } { "quot" { $quotation "( elt -- key )" } } { "groups" "a new assoc" } }
{ $description "Groups the elements by the key received by applying quot to each element in the sequence." } { $description "Groups the elements by the key received by applying quot to each element in the sequence." }
{ $examples { $examples
{ $example { $example
"USING: grouping.extras unicode.data ;" "USING: grouping.extras unicode.data prettyprint sequences strings ;"
"\"THis String Has CasE!\" [ category ] group-by [ last >string ] map ." "\"THis String Has CasE!\" [ category ] group-by [ last >string ] { } map-as ."
"{ \"TH\" \"is\" \" \" \"S\" \"tring\" \" \" \"H\" \"as\" \" \" \"C\" \"as\" \"E\" \"!\" }" "{ \"TH\" \"is\" \" \" \"S\" \"tring\" \" \" \"H\" \"as\" \" \" \"C\" \"as\" \"E\" \"!\" }"
} }
} ; } ;

6
extra/html/parser/analyzer/analyzer-docs.factor
View File

@ -1,9 +1,9 @@
USING: help.syntax help.markup html.parser html.parser.analyzer sequences USING: help.syntax help.markup html.parser html.parser.analyzer
strings ; kernel sequences strings ;
IN: html.parser.analyzer IN: html.parser.analyzer
HELP: html-class? HELP: html-class?
{ $values { "tag" tag } { "string" "a classname" } } { $values { "tag" tag } { "string" "a classname" } { "?" boolean } }
{ $description "t if the tag has the given class." } ; { $description "t if the tag has the given class." } ;
HELP: stack-find HELP: stack-find