24 lines
661 B
Factor
24 lines
661 B
Factor
|
! Copyright (C) 2008 Alex Chapman
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: accessors kernel semantic-db sequences sequences.lib ;
|
||
|
|
IN: tangle.page
|
||
|
|
|
||
|
|
RELATION: has-abbreviation
|
||
|
|
RELATION: has-content
|
||
|
|
RELATION: has-subsection
|
||
|
|
RELATION: before
|
||
|
|
RELATION: authored-by
|
||
|
|
RELATION: authored-on
|
||
|
|
|
||
|
|
TUPLE: page name abbreviation author created content ;
|
||
|
|
C: <page> page
|
||
|
|
|
||
|
|
: load-page-content ( node -- content )
|
||
|
|
has-content-objects [ node-content ] map concat ;
|
||
|
|
|
||
|
|
: load-page ( node -- page )
|
||
|
|
dup [ has-abbreviation-objects ?first ] keep
|
||
|
|
[ authored-by-objects ?first ] keep
|
||
|
|
[ authored-on-objects ?first ] keep
|
||
|
|
load-page-content <page> ;
|