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

Make $titles clickable

darcs
slava 2006-06-27 23:10:25 +00:00
parent 5c8982c50c
commit a16a9182ff
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/help/help.factor
View File

@ -21,7 +21,7 @@ M: word article-content
: $title ( article -- )
title-style [
title-style [
dup [ article-title write ] ($block) $where
dup [ 1array $link ] ($block) $where
] with-nesting
] with-style terpri ;

6
library/help/markup.factor
View File

@ -124,7 +124,11 @@ M: link article-title link-name article-title ;
M: link article-content link-name article-content ;
M: link summary "Link: " swap link-name unparse append ;
: >link ( obj -- obj ) dup word? [ <link> ] unless ;
GENERIC: >link ( obj -- obj )
M: word >link ;
M: link >link ;
M: object >link <link> ;
: $link ( article -- )
first link-style [