Paste: unnecessary dip?

Author: klazuka
Mode: factor
Date: Thu, 10 Sep 2009 16:03:39
Plain Text | 
( scratchpad ) \ definition-icon see-methods
USING: definitions.icons kernel words.constant ;
M: constant definition-icon
    "constant-word" [ drop ] dip definition-icon-path ;

USING: definitions.icons generic kernel ;
M: generic definition-icon
    "generic-word" [ drop ] dip definition-icon-path ;

USING: definitions.icons help.topics kernel ;
M: link definition-icon
    "help-article" [ drop ] dip definition-icon-path ;

USING: definitions.icons kernel macros ;
M: macro definition-icon
    "macro-word" [ drop ] dip definition-icon-path ;

USING: definitions.icons kernel words ;
M: parsing-word definition-icon
    "parsing-word" [ drop ] dip definition-icon-path ;

USING: classes.predicate definitions.icons kernel ;
M: predicate-class definition-icon
    "class-predicate-word" [ drop ] dip definition-icon-path ;

USING: definitions.icons kernel words ;
M: primitive definition-icon
    "primitive-word" [ drop ] dip definition-icon-path ;

USING: definitions.icons kernel vocabs ;
M: runnable-vocab definition-icon
    "runnable-vocab" [ drop ] dip definition-icon-path ;

USING: definitions.icons kernel words.symbol ;
M: symbol definition-icon
    "symbol-word" [ drop ] dip definition-icon-path ;

USING: definitions.icons kernel vocabs ;
M: vocab-link definition-icon
    "unopen-vocab" [ drop ] dip definition-icon-path ;

USING: definitions.icons kernel vocabs ;
M: vocab definition-icon
    "open-vocab" [ drop ] dip definition-icon-path ;

USING: definitions.icons help.topics kernel ;
M: word-link definition-icon
    "word-help-article" [ drop ] dip definition-icon-path ;

USING: definitions.icons kernel words ;
M: word definition-icon
    "normal-word" [ drop ] dip definition-icon-path ;

Annotation: oh, they are autogenerated

Author: klazuka
Mode: factor
Date: Thu, 10 Sep 2009 16:11:32
Plain Text | 
: define-icon ( class name -- )
    [ swap icons get set-at ]
    [
        [ \ definition-icon create-method ]
        [ '[ drop _ definition-icon-path ] ] bi*
        define
    ] 2bi ;

New Annotation

Summary:
Author:
Mode:
Body: