1 ! Copyright (C) 2008 Alex Chapman
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors kernel semantic-db sequences tangle.html ;
9 : get-menus ( -- nodes )
10 subitem-of-relation ultimate-objects node-results ;
12 : get-menu ( name -- node )
13 get-menus [ node-content = ] with find nip ;
15 : ensure-menu ( name -- node )
16 dup get-menu [ nip ] [ create-node ] if* ;
18 : load-menu ( name -- menu )
19 get-menu subitem-of-relation get-node-tree-s ;
21 : menu>ulist ( menu -- str ) children>> <ulist> ;
22 : menu>html ( menu -- str ) menu>ulist >html ;