From dbf21ca1022bc8ce01c59ef307630fc3d564defe Mon Sep 17 00:00:00 2001
From: =?utf8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Wed, 24 Jan 2018 14:27:31 +0100
Subject: [PATCH] FUEL: better font-locking of gl-related words

---
 misc/fuel/factor-mode.el | 20 ++++++++++++--------
 misc/fuel/factor-smie.el |  4 ++--
 2 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/misc/fuel/factor-mode.el b/misc/fuel/factor-mode.el
index 4cd8e528e8..8e0cbd6a82 100644
--- a/misc/fuel/factor-mode.el
+++ b/misc/fuel/factor-mode.el
@@ -219,15 +219,13 @@ these lines in your .emacs:
     "FOREIGN-ATOMIC-TYPE:" "FOREIGN-ENUM-TYPE:" "FOREIGN-RECORD-TYPE:" "FUNCTION-ALIAS:"
     ";FUNCTOR>"
     "GIR:"
-    "GLSL-SHADER:" "GLSL-PROGRAM:"
     "initial:" "IMPLEMENT-STRUCTS:"
     "MATH:"
     "METHOD:"
-    "PRIVATE>" "PROTOCOL:" "PROVIDE:"
+    "PRIVATE>" "PROTOCOL:"
     "read-only"
     "STRING:" "SYNTAX:"
-    "UNIFORM-TUPLE:"
-    "VARIANT:" "VERTEX-FORMAT:"))
+    "VARIANT:"))
 
 (defconst factor-parsing-words-regex
   (format "\\(?:^\\| \\)%s" (regexp-opt factor-parsing-words 'symbols)))
@@ -297,7 +295,8 @@ these lines in your .emacs:
 (defconst factor-symbol-definition-regex
   (syntax-and-1-symbol
    '("&" "CONSTANT" "DESTRUCTOR" "EBNF" "FORGET" "FUNCTOR"
-     "GAME" "HELP" "LIBRARY" "MAIN" "MAIN-WINDOW" "SLOT" "STRING"
+     "GAME" "GLSL-PROGRAM" "GLSL-SHADER"
+     "HELP" "LIBRARY" "MAIN" "MAIN-WINDOW" "SLOT" "STRING"
      "SYMBOL" "VAR")))
 
 ;; [parsing-word] [symbol-word]* ;
@@ -309,9 +308,12 @@ these lines in your .emacs:
    (syntax-begin '("INTERSECTION" "SINGLETONS" "SPECIALIZED-ARRAYS"))
    ws+ symbols-to-semicolon))
 
+;; [parsing-word] [type-word]
 (defconst factor-type-definition-regex
   (syntax-and-1-symbol
-   '("COM-INTERFACE" "C-TYPE" "MIXIN" "SINGLETON" "SPECIALIZED-ARRAY"
+   '("COM-INTERFACE" "C-TYPE" "MIXIN"
+     "GLSL-SHADER-FILE"
+     "SINGLETON" "SPECIALIZED-ARRAY" "SPECIALIZED-VECTOR"
      "TUPLE-ARRAY")))
 
 (defconst factor-constructor-regex
@@ -342,7 +344,7 @@ these lines in your .emacs:
                 "CONSTANT:" "C-GLOBAL:" "C-TYPE:"
                 "DEFER:" "DESTRUCTOR:"
                 "FORGET:"
-                "GAME:" "GENERIC:" "GENERIC#:" "GLSL-PROGRAM:"
+                "GAME:" "GENERIC:" "GENERIC#:"
                 "HOOK:"
                 "IN:" "INSTANCE:"
                 "LIBRARY:"
@@ -477,8 +479,10 @@ these lines in your .emacs:
                      "PROTOCOL"
                      "STRUCT"
                      "TUPLE"
+                     "UNIFORM-TUPLE"
                      "UNION"
-                     "UNION-STRUCT"))
+                     "UNION-STRUCT"
+                     "VERTEX-FORMAT"))
        symbol
        symbol)
      (1 'factor-font-lock-parsing-word)
diff --git a/misc/fuel/factor-smie.el b/misc/fuel/factor-smie.el
index 1aeb7e5f6d..5151e2c206 100644
--- a/misc/fuel/factor-smie.el
+++ b/misc/fuel/factor-smie.el
@@ -24,8 +24,8 @@
     "COM-INTERFACE" "CONSULT"
     "ENUM" "ERROR"
     "FROM"
-    "IDENTITY-MEMO"
-    "INTERSECTION"
+    "GLSL-PROGRAM"
+    "IDENTITY-MEMO" "INTERSECTION"
     "M" "M:" "MACRO" "MACRO:"
     "MAIN-WINDOW" "MEMO" "MEMO:" "METHOD"
     "SYNTAX"
-- 
2.34.1