40 lines
1.1 KiB
Factor
40 lines
1.1 KiB
Factor
! Copyright (C) 2005, 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: arrays definitions generic assocs math fry
|
|
io kernel namespaces prettyprint prettyprint.sections
|
|
sequences words summary classes help.topics help.markup ;
|
|
IN: help.crossref
|
|
|
|
: article-links ( topic elements -- seq )
|
|
[ article-content ] dip
|
|
collect-elements [ >link ] map ;
|
|
|
|
: article-children ( topic -- seq )
|
|
{ $subsection } article-links ;
|
|
|
|
M: link uses
|
|
{ $subsection $link $see-also } article-links ;
|
|
|
|
: help-path ( topic -- seq )
|
|
[ article-parent ] follow rest ;
|
|
|
|
: set-article-parents ( parent article -- )
|
|
article-children [ set-article-parent ] with each ;
|
|
|
|
: xref-article ( topic -- )
|
|
dup >link xref dup set-article-parents ;
|
|
|
|
: unxref-article ( topic -- )
|
|
>link unxref ;
|
|
|
|
: prev/next ( obj seq n -- obj' )
|
|
[ [ index dup ] keep ] dip swap
|
|
'[ _ + _ ?nth ] when ;
|
|
|
|
: prev/next-article ( article n -- article' )
|
|
[ dup article-parent dup ] dip
|
|
'[ article-children _ prev/next ] [ 2drop f ] if ;
|
|
|
|
: prev-article ( article -- prev ) -1 prev/next-article ;
|
|
|
|
: next-article ( article -- next ) 1 prev/next-article ; |