contrib/furnace/tools/browser.factor

   1 ! Copyright (C) 2004 Chris Double
   2 ! Copyright (C) 2004, 2006 Slava Pestov
   3 ! See http://factorcode.org/license.txt for BSD license.
   4 IN: furnace:browser
   5 USING: definitions hashtables help html httpd io kernel memory
   6 namespaces prettyprint sequences words xml furnace arrays ;
   7
   8 TUPLE: list current options name ;
   9
  10 : list ( current options name -- )
  11     <list> "list" render-template ;
  12
  13 : vocab-list ( vocab -- ) vocabs "vocab" list ;
  14
  15 : word-list ( word vocab -- )
  16     [ lookup [ word-name ] [ f ] if* ] keep
  17     vocab hash-keys natural-sort "word" list ;
  18
  19 : browser-title ( word vocab -- str )
  20     2dup lookup dup
  21     [ 2nip summary ] [ drop nip "IN: " swap append ] if ;
  22
  23 TUPLE: browser word vocab ;
  24
  25 : browse ( word vocab -- )
  26     2dup browser-title
  27     -rot <browser>
  28     "browser" render-page ;
  29
  30 \ browse {
  31     { "word" }
  32     { "vocab" "kernel" v-default }
  33 } define-action
  34
  35 "browser" "browse" "contrib/furnace/tools" web-app
  36
  37 M: word browser-link-href
  38     dup word-name swap word-vocabulary \ browse
  39     3array >quotation quot-link ;