unmaintained/tangle/menu/menu.factor

   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 ;
   4 IN: tangle.menu
   5
   6 RELATION: subitem-of
   7 RELATION: before
   8
   9 : get-menus ( -- nodes )
  10     subitem-of-relation ultimate-objects node-results ;
  11
  12 : get-menu ( name -- node )
  13     get-menus [ node-content = ] with find nip ;
  14
  15 : ensure-menu ( name -- node )
  16     dup get-menu [ ] [ create-node ] ?if ;
  17
  18 : load-menu ( name -- menu )
  19     get-menu subitem-of-relation get-node-tree-s ;
  20
  21 : menu>ulist ( menu -- str ) children>> <ulist> ;
  22 : menu>html ( menu -- str ) menu>ulist >html ;