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 apropos ;
  24
  25 : browse ( word vocab apropos -- )
  26     pick pick browser-title >r <browser> "browser" r> render-page ;
  27
  28 \ browse {
  29     { "word" }
  30     { "vocab" "kernel" v-default }
  31     { "apropos" }
  32 } define-action
  33
  34 "browser" "browse" "contrib/furnace/tools" web-app
  35
  36 M: word browser-link-href
  37     dup word-name swap word-vocabulary f \ browse
  38     4array >quotation quot-link ;