factor/basis/definitions/icons/icons.factor

! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: assocs classes.predicate fry generic help.topics
io.pathnames kernel lexer macros namespaces parser sequences
vocabs words words.constant words.symbol ;
IN: definitions.icons

GENERIC: definition-icon ( definition -- path )

: definition-icon-path ( string -- string' )
    "vocab:definitions/icons/" prepend-path ".png" append ;

<<

SYMBOL: icons

icons [ H{ } clone ] initialize

: define-icon ( class name -- )
    [ swap icons get set-at ]
    [
        [ \ definition-icon create-method ]
        [ '[ drop _ definition-icon-path ] ] bi*
        define
    ] 2bi ;

SYNTAX: ICON: scan-word scan-token define-icon ;

>>

ICON: predicate-class class-predicate-word
ICON: generic generic-word
ICON: macro macro-word
ICON: parsing-word parsing-word
ICON: primitive primitive-word
ICON: symbol symbol-word
ICON: constant constant-word
ICON: word normal-word
ICON: word-link word-help-article
ICON: topic help-article
ICON: runnable-vocab runnable-vocab
ICON: vocab open-vocab
ICON: vocab-link unopen-vocab
definitions.icons: Some standard icons for various types of words and vocab, by Joe Groff 2009-02-10 23:11:04 -05:00			`! Copyright (C) 2009 Slava Pestov.`
			`! See http://factorcode.org/license.txt for BSD license.`
help.markup: added $subsections markup and consolidated $link implementations - Created a new markup element, $subsections, which is a plural variant of $subsection. The advantage is that it automatically inserts a blank line after the final subsection which makes help articles considerably easier to read. - Consolidated the implementation of $link, $long-link and $pretty-link - Moved $definition-icons from definition.icons to help.markup - Moved $pretty-link from help.vocabs to help.markup 2009-09-21 15:35:16 -04:00			`USING: assocs classes.predicate fry generic help.topics`
			`io.pathnames kernel lexer macros namespaces parser sequences`
			`vocabs words words.constant words.symbol ;`
definitions.icons: Some standard icons for various types of words and vocab, by Joe Groff 2009-02-10 23:11:04 -05:00			`IN: definitions.icons`

			`GENERIC: definition-icon ( definition -- path )`

			`: definition-icon-path ( string -- string' )`
definitions.icons: converted TIFF icons to PNG Slava, don't forget to copy these PNGs into the "/icons" root on docs.factorcode.org 2009-09-28 15:53:39 -04:00			`"vocab:definitions/icons/" prepend-path ".png" append ;`
definitions.icons: Some standard icons for various types of words and vocab, by Joe Groff 2009-02-10 23:11:04 -05:00
			`<<`

- definitions.icons now has a reference article - move about to help.vocabs; it now opens the vocab browser instead - help.vocabs is in default use list - add runnable-vocab predicate class 2009-03-24 10:11:45 -04:00			`SYMBOL: icons`

			`icons [ H{ } clone ] initialize`

			`: define-icon ( class name -- )`
			`[ swap icons get set-at ]`
			`[`
			`[ \ definition-icon create-method ]`
			`[ '[ drop _ definition-icon-path ] ] bi*`
			`define`
			`] 2bi ;`

Refactor the lexer/parser to expose friendlier words for scanning tokens. The preferred top-level words now throw an exception on EOF. CREATE -> scan-new CREATE-CLASS -> scan-new-class CREATE-WORD -> scan-new-word CREATE-GENERIC -> scan-new-generic scan -> (scan-token) scan-token now throws on eof (scan-word) returns word/number/f scan-word now throws on eof scan-word-name expects a non-number Fixes #183. Fixes #209. 2011-09-27 16:20:07 -04:00			`SYNTAX: ICON: scan-word scan-token define-icon ;`
definitions.icons: Some standard icons for various types of words and vocab, by Joe Groff 2009-02-10 23:11:04 -05:00
			`>>`

			`ICON: predicate-class class-predicate-word`
			`ICON: generic generic-word`
			`ICON: macro macro-word`
			`ICON: parsing-word parsing-word`
			`ICON: primitive primitive-word`
			`ICON: symbol symbol-word`
New icon for constants, some other icons updated (Joe Groff) 2009-02-11 19:05:45 -05:00			`ICON: constant constant-word`
definitions.icons: Some standard icons for various types of words and vocab, by Joe Groff 2009-02-10 23:11:04 -05:00			`ICON: word normal-word`
Add article and word help icons 2009-02-17 15:26:01 -05:00			`ICON: word-link word-help-article`
definitions.icons: fix circularity 2009-09-11 21:33:11 -04:00			`ICON: topic help-article`
- definitions.icons now has a reference article - move about to help.vocabs; it now opens the vocab browser instead - help.vocabs is in default use list - add runnable-vocab predicate class 2009-03-24 10:11:45 -04:00			`ICON: runnable-vocab runnable-vocab`
			`ICON: vocab open-vocab`
			`ICON: vocab-link unopen-vocab`