Fix to xmode
parent
dcad3ad225
commit
dc49f138c4
|
@ -1,6 +1,6 @@
|
||||||
USING: xmode.loader xmode.utilities xmode.rules namespaces
|
USING: xmode.loader xmode.utilities xmode.rules namespaces
|
||||||
strings splitting assocs sequences kernel io.files xml memoize
|
strings splitting assocs sequences kernel io.files xml memoize
|
||||||
words globs combinators io.encodings.utf8 sorting accessors ;
|
words globs combinators io.encodings.utf8 sorting accessors xml.data ;
|
||||||
IN: xmode.catalog
|
IN: xmode.catalog
|
||||||
|
|
||||||
TUPLE: mode file file-name-glob first-line-glob ;
|
TUPLE: mode file file-name-glob first-line-glob ;
|
||||||
|
@ -8,7 +8,7 @@ TUPLE: mode file file-name-glob first-line-glob ;
|
||||||
<TAGS: parse-mode-tag ( modes tag -- )
|
<TAGS: parse-mode-tag ( modes tag -- )
|
||||||
|
|
||||||
TAG: MODE
|
TAG: MODE
|
||||||
"NAME" over at [
|
dup "NAME" attr [
|
||||||
mode new {
|
mode new {
|
||||||
{ "FILE" f (>>file) }
|
{ "FILE" f (>>file) }
|
||||||
{ "FILE_NAME_GLOB" f (>>file-name-glob) }
|
{ "FILE_NAME_GLOB" f (>>file-name-glob) }
|
||||||
|
|
Loading…
Reference in New Issue