steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: highlighting and indentation of more syntax elements

char-rename
Björn Lindqvist 2016-08-25 11:54:28 +02:00
parent c0b06c29b9
commit 0e937e8464
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
misc/fuel/factor-mode.el
View File

@ -216,8 +216,9 @@ these lines in your .emacs:
"ABOUT:" "ARTICLE:" "ABOUT:" "ARTICLE:"
"B" "B"
"CONSULT:" "call-next-method" "CONSULT:" "call-next-method"
"EBNF:" ";EBNF" ";EBNF"
"FOREIGN-ATOMIC-TYPE:" "FOREIGN-ENUM-TYPE:" "FOREIGN-RECORD-TYPE:" "FUNCTION-ALIAS:" "FOREIGN-ATOMIC-TYPE:" "FOREIGN-ENUM-TYPE:" "FOREIGN-RECORD-TYPE:" "FUNCTION-ALIAS:"
";FUNCTOR"
"GIR:" "GIR:"
"GLSL-SHADER:" "GLSL-PROGRAM:" "GLSL-SHADER:" "GLSL-PROGRAM:"
"HINTS:" "HINTS:"
@ -280,7 +281,7 @@ these lines in your .emacs:
(concat (concat
(one-symbol (regexp-opt (one-symbol (regexp-opt
'(":" "::" "GENERIC:" "GENERIC#" "DEFER:" "HOOK:" '(":" "::" "GENERIC:" "GENERIC#" "DEFER:" "HOOK:"
"MACRO:" "MACRO::" "MATH:" "MEMO:" "MEMO::" "IDENTITY-MEMO:" "MACRO:" "MACRO::" "MATH:" "MEMO:" "MEMO::"
"POSTPONE:" "PRIMITIVE:" "SYNTAX:" "TYPED:" "TYPED::"))) "POSTPONE:" "PRIMITIVE:" "SYNTAX:" "TYPED:" "TYPED::")))
ws+ symbol)) ws+ symbol))
@ -297,8 +298,9 @@ these lines in your .emacs:
;; [parsing-word] [symbol-word] ;; [parsing-word] [symbol-word]
(defconst factor-symbol-definition-regex (defconst factor-symbol-definition-regex
(syntax-and-1-symbol (syntax-and-1-symbol
'("&" "CONSTANT" "DESTRUCTOR" "FORGET" "GAME" "HELP" "LIBRARY" '("&" "CONSTANT" "DESTRUCTOR" "EBNF" "FORGET" "FUNCTOR"
"MAIN" "MAIN-WINDOW" "SLOT" "STRING" "SYMBOL" "VAR"))) "GAME" "HELP" "LIBRARY" "MAIN" "MAIN-WINDOW" "SLOT" "STRING"
"SYMBOL" "VAR")))
;; [parsing-word] [symbol-word]* ; ;; [parsing-word] [symbol-word]* ;
(defconst factor-symbols-lines-regex (defconst factor-symbols-lines-regex

1
misc/fuel/factor-smie.el
View File

@ -22,6 +22,7 @@
"COM-INTERFACE" "CONSULT" "COM-INTERFACE" "CONSULT"
"ENUM" "ERROR" "ENUM" "ERROR"
"FROM" "FUNCTION:" "FUNCTION-ALIAS:" "FROM" "FUNCTION:" "FUNCTION-ALIAS:"
"IDENTITY-MEMO"
"INTERSECTION:" "INTERSECTION:"
"M" "M:" "MACRO" "MACRO:" "M" "M:" "MACRO" "MACRO:"
"MAIN-WINDOW" "MEMO" "MEMO:" "METHOD" "MAIN-WINDOW" "MEMO" "MEMO:" "METHOD"