Add glsl-mode package

Unfortunately this does not seem to be available in stable MELPA.

2 files changed, 452 insertions, 0 deletions

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index b12b187..9ae9f28 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -114,6 +114,7 @@
 (require 'spaceline-config)
 
 (require 'turtle-mode)
+(require 'glsl-mode)
 
 ;;; Basic editor configuration
 
diff --git a/emacs/.emacs.d/site-lisp/glsl-mode.el b/emacs/.emacs.d/site-lisp/glsl-mode.el
new file mode 100644
index 0000000..8068b75
--- /dev/null
+++ b/emacs/.emacs.d/site-lisp/glsl-mode.el
@@ -0,0 +1,451 @@
+;;; glsl-mode.el --- major mode for Open GLSL shader files
+
+;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2011, 2014, 2019 Jim Hourihan
+;;
+;; Authors: Xavier.Decoret@imag.fr,
+;;          Jim Hourihan <jimhourihan ~at~ gmail.com> (updated for 4.6, etc)
+;; Keywords: languages OpenGL GPU SPIR-V Vulkan
+;; Version: 2.4
+;; X-URL: https://github.com/jimhourihan/glsl-mode
+;;
+;; Original X-URL http://artis.inrialpes.fr/~Xavier.Decoret/resources/glsl-mode/
+
+;; This file is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; For a full copy of the GNU General Public License
+;; see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Major mode for editing OpenGLSL grammar files, usually files ending with
+;; `.vert', `.frag', `.glsl', `.geom'.  Is is based on c-mode plus some
+;; features and pre-specified fontifications.
+;;
+;; Modifications from the 1.0 version of glsl-mode (jimhourihan):
+;;  * Removed original optimized regexps for font-lock-keywords and
+;;    replaced with keyword lists for easier maintenance
+;;  * Added customization group and faces
+;;  * Preprocessor faces
+;;  * Updated to GLSL 4.6
+;;  * Separate deprecated symbols
+;;  * Made _ part of a word
+;;  * man page lookup at opengl.org
+
+;; This package provides the following features:
+;;  * Syntax coloring (via font-lock) for grammar symbols and
+;;    builtin functions and variables for up to GLSL version 4.6
+;;  * Indentation for the current line (TAB) and selected region (C-M-\).
+;;  * Switching between file.vert and file.frag
+;;    with S-lefttab (via ff-find-other-file)
+;;  * interactive function glsl-find-man-page prompts for glsl built
+;;    in function, formats opengl.org url and passes to browse-url
+
+;;; Installation:
+
+;; This file requires Emacs-20.3 or higher and package cc-mode.
+
+;; If glsl-mode is not part of your distribution, put this file into your
+;; load-path and the following into your ~/.emacs:
+;;   (autoload 'glsl-mode "glsl-mode" nil t)
+;;   (add-to-list 'auto-mode-alist '("\\.glsl\\'" . glsl-mode))
+;;   (add-to-list 'auto-mode-alist '("\\.vert\\'" . glsl-mode))
+;;   (add-to-list 'auto-mode-alist '("\\.frag\\'" . glsl-mode))
+;;   (add-to-list 'auto-mode-alist '("\\.geom\\'" . glsl-mode))
+
+;; Reference:
+;; https://www.khronos.org/registry/OpenGL/specs/gl/GLSLangSpec.4.60.pdf
+
+;;; Code:
+
+(provide 'glsl-mode)
+
+(eval-when-compile			; required and optional libraries
+  (require 'cc-mode)
+  (require 'find-file))
+
+(require 'align)
+
+(defgroup glsl nil
+  "OpenGL Shading Language Major Mode"
+  :group 'languages)
+
+(defconst glsl-language-version "4.6"
+  "GLSL language version number.")
+
+(defconst gl-version "4.6"
+  "OpenGL major mode version number.")
+
+(defvar glsl-mode-menu nil "Menu for GLSL mode")
+
+(defvar glsl-mode-hook nil "GLSL mode hook")
+
+(defvar glsl-type-face 'glsl-type-face)
+(defface glsl-type-face
+  '((t (:inherit font-lock-type-face))) "glsl: type face"
+  :group 'glsl)
+
+(defvar glsl-builtin-face 'glsl-builtin-face)
+(defface glsl-builtin-face
+  '((t (:inherit font-lock-builtin-face))) "glsl: builtin face"
+  :group 'glsl)
+
+(defvar glsl-deprecated-builtin-face 'glsl-deprecated-builtin-face)
+(defface glsl-deprecated-builtin-face
+  '((t (:inherit font-lock-warning-face))) "glsl: deprecated builtin face"
+  :group 'glsl)
+
+(defvar glsl-qualifier-face 'glsl-qualifier-face)
+(defface glsl-qualifier-face
+  '((t (:inherit font-lock-keyword-face))) "glsl: qualifier face"
+  :group 'glsl)
+
+(defvar glsl-keyword-face 'glsl-keyword-face)
+(defface glsl-keyword-face
+  '((t (:inherit font-lock-keyword-face))) "glsl: keyword face"
+  :group 'glsl)
+
+(defvar glsl-deprecated-keyword-face 'glsl-deprecated-keyword-face)
+(defface glsl-deprecated-keyword-face
+  '((t (:inherit font-lock-warning-face))) "glsl: deprecated keyword face"
+  :group 'glsl)
+
+(defvar glsl-variable-name-face 'glsl-variable-name-face)
+(defface glsl-variable-name-face
+  '((t (:inherit font-lock-variable-name-face))) "glsl: variable face"
+  :group 'glsl)
+
+(defvar glsl-deprecated-variable-name-face 'glsl-deprecated-variable-name-face)
+(defface glsl-deprecated-variable-name-face
+  '((t (:inherit font-lock-warning-face))) "glsl: deprecated variable face"
+  :group 'glsl)
+
+(defvar glsl-reserved-keyword-face 'glsl-reserved-keyword-face)
+(defface glsl-reserved-keyword-face
+  '((t (:inherit glsl-keyword-face))) "glsl: reserved keyword face"
+  :group 'glsl)
+
+(defvar glsl-preprocessor-face 'glsl-preprocessor-face)
+(defface glsl-preprocessor-face
+  '((t (:inherit font-lock-preprocessor-face))) "glsl: preprocessor face"
+  :group 'glsl)
+
+(defcustom glsl-additional-types nil
+  "List of additional keywords to be considered types. These are
+added to the `glsl-type-list' and are fontified using the
+`glsl-type-face'. Examples of existing types include \"float\", \"vec4\",
+  and \"int\"."
+  :type '(repeat (string :tag "Type Name"))
+  :group 'glsl)
+
+(defcustom glsl-additional-qualifiers nil
+  "List of additional keywords to be considered qualifiers. These
+are added to the `glsl-qualifier-list' and are fontified using
+the `glsl-qualifier-face'. Examples of existing qualifiers
+include \"const\", \"in\", and \"out\"."
+  :type '(repeat (string :tag "Qualifier Name"))
+  :group 'glsl)
+
+(defcustom glsl-additional-keywords nil
+  "List of additional GLSL keywords. These are added to the
+`glsl-keyword-list' and are fontified using the
+`glsl-keyword-face'. Example existing keywords include \"while\",
+\"if\", and \"return\"."
+  :type '(repeat (string :tag "Keyword"))
+  :group 'glsl)
+
+(defcustom glsl-additional-built-ins nil
+  "List of additional functions to be considered built-in. These
+are added to the `glsl-builtin-list' and are fontified using the
+`glsl-builtin-face'."
+  :type '(repeat (string :tag "Keyword"))
+  :group 'glsl)
+
+(defvar glsl-mode-hook nil)
+
+(defvar glsl-mode-map
+  (let ((glsl-mode-map (make-sparse-keymap)))
+    (define-key glsl-mode-map [S-iso-lefttab] 'ff-find-other-file)
+    glsl-mode-map)
+  "Keymap for GLSL major mode.")
+
+(defcustom glsl-browse-url-function 'browse-url
+  "Function used to display GLSL man pages. E.g. browse-url, eww, w3m, etc"
+  :type 'function
+  :group 'glsl)
+
+(defcustom glsl-man-pages-base-url "http://www.opengl.org/sdk/docs/man/html/"
+  "Location of GL man pages."
+  :type 'string
+  :group 'glsl)
+
+;;;###autoload
+(progn
+  (add-to-list 'auto-mode-alist '("\\.vert\\'" . glsl-mode))
+  (add-to-list 'auto-mode-alist '("\\.frag\\'" . glsl-mode))
+  (add-to-list 'auto-mode-alist '("\\.geom\\'" . glsl-mode))
+  (add-to-list 'auto-mode-alist '("\\.glsl\\'" . glsl-mode)))
+
+(eval-and-compile
+  ;; These vars are useful for completion so keep them around after
+  ;; compile as well. The goal here is to have the byte compiled code
+  ;; have optimized regexps so its not done at eval time.
+  (defvar glsl-type-list
+    '("float" "double" "int" "void" "bool" "true" "false" "mat2" "mat3"
+      "mat4" "dmat2" "dmat3" "dmat4" "mat2x2" "mat2x3" "mat2x4" "dmat2x2"
+      "dmat2x3" "dmat2x4" "mat3x2" "mat3x3" "mat3x4" "dmat3x2" "dmat3x3"
+      "dmat3x4" "mat4x2" "mat4x3" "mat4x4" "dmat4x2" "dmat4x3" "dmat4x4" "vec2"
+      "vec3" "vec4" "ivec2" "ivec3" "ivec4" "bvec2" "bvec3" "bvec4" "dvec2"
+      "dvec3" "dvec4" "uint" "uvec2" "uvec3" "uvec4" "atomic_uint"
+      "sampler1D" "sampler2D" "sampler3D" "samplerCube" "sampler1DShadow"
+      "sampler2DShadow" "samplerCubeShadow" "sampler1DArray" "sampler2DArray"
+      "sampler1DArrayShadow" "sampler2DArrayShadow" "isampler1D" "isampler2D"
+      "isampler3D" "isamplerCube" "isampler1DArray" "isampler2DArray"
+      "usampler1D" "usampler2D" "usampler3D" "usamplerCube" "usampler1DArray"
+      "usampler2DArray" "sampler2DRect" "sampler2DRectShadow" "isampler2DRect"
+      "usampler2DRect" "samplerBuffer" "isamplerBuffer" "usamplerBuffer"
+      "sampler2DMS" "isampler2DMS" "usampler2DMS" "sampler2DMSArray"
+      "isampler2DMSArray" "usampler2DMSArray" "samplerCubeArray"
+      "samplerCubeArrayShadow" "isamplerCubeArray" "usamplerCubeArray"
+      "image1D" "iimage1D" "uimage1D" "image2D" "iimage2D" "uimage2D" "image3D"
+      "iimage3D" "uimage3D" "image2DRect" "iimage2DRect" "uimage2DRect"
+      "imageCube" "iimageCube" "uimageCube" "imageBuffer" "iimageBuffer"
+      "uimageBuffer" "image1DArray" "iimage1DArray" "uimage1DArray"
+      "image2DArray" "iimage2DArray" "uimage2DArray" "imageCubeArray"
+      "iimageCubeArray" "uimageCubeArray" "image2DMS" "iimage2DMS" "uimage2DMS"
+      "image2DMSArray" "iimage2DMSArray" "uimage2DMSArray"))
+
+  (defvar glsl-qualifier-list
+    '("attribute" "const" "uniform" "varying" "buffer" "shared" "coherent"
+    "volatile" "restrict" "readonly" "writeonly" "layout" "centroid" "flat"
+    "smooth" "noperspective" "patch" "sample" "in" "out" "inout"
+    "invariant" "lowp" "mediump" "highp"))
+
+  (defvar glsl-keyword-list
+    '("break" "continue" "do" "for" "while" "if" "else" "subroutine"
+      "discard" "return" "precision" "struct" "switch" "default" "case"))
+
+  (defvar glsl-reserved-list
+    '("input" "output" "asm" "class" "union" "enum" "typedef" "template" "this"
+      "packed" "resource" "goto" "inline" "noinline"
+      "common" "partition" "active" "long" "short" "half" "fixed" "unsigned" "superp"
+      "public" "static" "extern" "external" "interface"
+      "hvec2" "hvec3" "hvec4" "fvec2" "fvec3" "fvec4"
+      "filter" "sizeof" "cast" "namespace" "using"
+      "sampler3DRect"))
+
+  (defvar glsl-deprecated-qualifier-list
+    '("varying" "attribute")) ; centroid is deprecated when used with varying
+
+  (defvar glsl-builtin-list
+    '("abs" "acos" "acosh" "all" "any" "anyInvocation" "allInvocations"
+      "allInvocationsEqual" "asin" "asinh" "atan" "atanh"
+      "atomicAdd" "atomicMin" "atomicMax" "atomicAnd" "atomicOr"
+      "atomicXor" "atomicExchange" "atomicCompSwap"
+      "atomicCounter" "atomicCounterDecrement" "atomicCounterIncrement"
+      "atomicCounterAdd" "atomicCounterSubtract" "atomicCounterMin"
+      "atomicCounterMax" "atomicCounterAnd" "atomicCounterOr"
+      "atomicCounterXor" "atomicCounterExchange" "atomicCounterCompSwap"
+      "barrier" "bitCount" "bitfieldExtract" "bitfieldInsert" "bitfieldReverse"
+      "ceil" "clamp" "cos" "cosh" "cross" "degrees" "determinant" "dFdx" "dFdy"
+      "dFdyFine" "dFdxFine" "dFdyCoarse" "dFdxCoarse" "distance" "dot"
+      "fwidthFine" "fwidthCoarse"
+      "EmitStreamVertex" "EmitStreamPrimitive" "EmitVertex" "EndPrimitive"
+      "EndStreamPrimitive" "equal" "exp" "exp2" "faceforward" "findLSB"
+      "findMSB" "floatBitsToInt" "floatBitsToUint" "floor" "fma" "fract"
+      "frexp" "fwidth" "greaterThan" "greaterThanEqual" "groupMemoryBarrier"
+      "imageAtomicAdd" "imageAtomicAnd" "imageAtomicCompSwap" "imageAtomicExchange"
+      "imageAtomicMax" "imageAtomicMin" "imageAtomicOr" "imageAtomicXor"
+      "imageLoad" "imageSize" "imageStore" "imulExtended" "intBitsToFloat"
+      "imageSamples" "interpolateAtCentroid" "interpolateAtOffset" "interpolateAtSample"
+      "inverse" "inversesqrt" "isinf" "isnan" "ldexp" "length" "lessThan"
+      "lessThanEqual" "log" "log2" "matrixCompMult" "max" "memoryBarrier"
+      "memoryBarrierAtomicCounter" "memoryBarrierBuffer"
+      "memoryBarrierShared" "memoryBarrierImage" "memoryBarrier"
+      "min" "mix" "mod" "modf" "normalize" "not" "notEqual" "outerProduct"
+      "packDouble2x32" "packHalf2x16" "packSnorm2x16" "packSnorm4x8"
+      "packUnorm2x16" "packUnorm4x8" "pow" "radians" "reflect" "refract"
+      "round" "roundEven" "sign" "sin" "sinh" "smoothstep" "sqrt" "step" "tan"
+      "tanh" "texelFetch" "texelFetchOffset" "texture" "textureGather"
+      "textureGatherOffset" "textureGatherOffsets" "textureGrad" "textureSamples"
+      "textureGradOffset" "textureLod" "textureLodOffset" "textureOffset"
+      "textureProj" "textureProjGrad" "textureProjGradOffset" "textureProjLod"
+      "textureProjLodOffset" "textureProjOffset" "textureQueryLevels" "textureQueryLod"
+      "textureSize" "transpose" "trunc" "uaddCarry" "uintBitsToFloat"
+      "umulExtended" "unpackDouble2x32" "unpackHalf2x16" "unpackSnorm2x16"
+      "unpackSnorm4x8" "unpackUnorm2x16" "unpackUnorm4x8" "usubBorrow"))
+
+  (defvar glsl-deprecated-builtin-list
+    '("noise1" "noise2" "noise3" "noise4"
+      "texture1D" "texture1DProj" "texture1DLod" "texture1DProjLod"
+      "texture2D" "texture2DProj" "texture2DLod" "texture2DProjLod"
+      "texture2DRect" "texture2DRectProj"
+      "texture3D" "texture3DProj" "texture3DLod" "texture3DProjLod"
+      "shadow1D" "shadow1DProj" "shadow1DLod" "shadow1DProjLod"
+      "shadow2D" "shadow2DProj" "shadow2DLod" "shadow2DProjLod"
+      "textureCube" "textureCubeLod"))
+
+  (defvar glsl-deprecated-variables-list
+    '("gl_FragColor" "gl_FragData" "gl_MaxVarying" "gl_MaxVaryingFloats"
+      "gl_MaxVaryingComponents"))
+
+  (defvar glsl-preprocessor-directive-list
+    '("define" "undef" "if" "ifdef" "ifndef" "else" "elif" "endif"
+      "error" "pragma" "extension" "version" "line"))
+
+  (defvar glsl-preprocessor-expr-list
+    '("defined" "##"))
+
+  (defvar glsl-preprocessor-builtin-list
+    '("__LINE__" "__FILE__" "__VERSION__"))
+
+  ) ; eval-and-compile
+
+(eval-and-compile
+  (defun glsl-ppre (re)
+    (format "\\<\\(%s\\)\\>" (regexp-opt re))))
+
+(defvar glsl-font-lock-keywords-1
+  (append
+   (list
+    (cons (eval-when-compile
+            (format "^[ \t]*#[ \t]*\\<\\(%s\\)\\>"
+                    (regexp-opt glsl-preprocessor-directive-list)))
+          glsl-preprocessor-face)
+    (cons (eval-when-compile
+            (glsl-ppre glsl-type-list))
+          glsl-type-face)
+    (cons (eval-when-compile
+            (glsl-ppre glsl-deprecated-qualifier-list))
+          glsl-deprecated-keyword-face)
+    (cons (eval-when-compile
+            (glsl-ppre glsl-reserved-list))
+          glsl-reserved-keyword-face)
+    (cons (eval-when-compile
+            (glsl-ppre glsl-qualifier-list))
+          glsl-qualifier-face)
+    (cons (eval-when-compile
+            (glsl-ppre glsl-keyword-list))
+          glsl-keyword-face)
+    (cons (eval-when-compile
+            (glsl-ppre glsl-preprocessor-builtin-list))
+          glsl-keyword-face)
+    (cons (eval-when-compile
+            (glsl-ppre glsl-deprecated-builtin-list))
+          glsl-deprecated-builtin-face)
+    (cons (eval-when-compile
+            (glsl-ppre glsl-builtin-list))
+          glsl-builtin-face)
+    (cons (eval-when-compile
+            (glsl-ppre glsl-deprecated-variables-list))
+          glsl-deprecated-variable-name-face)
+    (cons "gl_[A-Z][A-Za-z_]+" glsl-variable-name-face)
+    )
+
+   (when glsl-additional-types
+     (list
+      (cons (glsl-ppre glsl-additional-types) glsl-type-face)))
+   (when glsl-additional-keywords
+     (list
+      (cons (glsl-ppre glsl-additional-keywords) glsl-keyword-face)))
+   (when glsl-additional-qualifiers
+     (list
+      (cons (glsl-ppre glsl-additional-qualifiers) glsl-qualifier-face)))
+   (when glsl-additional-built-ins
+     (list
+      (cons (glsl-ppre glsl-additional-built-ins) glsl-builtin-face)))
+   )
+  "Highlighting expressions for GLSL mode.")
+
+
+(defvar glsl-font-lock-keywords glsl-font-lock-keywords-1
+  "Default highlighting expressions for GLSL mode.")
+
+(defvar glsl-mode-syntax-table
+  (let ((glsl-mode-syntax-table (make-syntax-table)))
+    (modify-syntax-entry ?/ ". 124b" glsl-mode-syntax-table)
+    (modify-syntax-entry ?* ". 23" glsl-mode-syntax-table)
+    (modify-syntax-entry ?\n "> b" glsl-mode-syntax-table)
+    (modify-syntax-entry ?_ "w" glsl-mode-syntax-table)
+    glsl-mode-syntax-table)
+  "Syntax table for glsl-mode.")
+
+(defvar glsl-other-file-alist
+  '(("\\.frag$" (".vert"))
+    ("\\.vert$" (".frag"))
+    )
+  "Alist of extensions to find given the current file's extension.")
+
+(defun glsl-man-completion-list ()
+  "Return list of all GLSL keywords."
+  (append glsl-builtin-list glsl-deprecated-builtin-list))
+
+(defun glsl-find-man-page (thing)
+  "Collects and displays manual entry for GLSL built-in function THING."
+  (interactive
+   (let ((word (current-word nil t)))
+     (list
+      (completing-read
+       (concat "OpenGL.org GLSL man page: (" word "): ")
+       (glsl-man-completion-list)
+       nil nil nil nil word))))
+  (save-excursion
+    (apply glsl-browse-url-function
+           (list (concat glsl-man-pages-base-url thing ".xhtml")))))
+
+(easy-menu-define glsl-menu glsl-mode-map
+  "GLSL Menu"
+    `("GLSL"
+      ["Comment Out Region"     comment-region
+       (c-fn-region-is-active-p)]
+      ["Uncomment Region"       (comment-region (region-beginning)
+						(region-end) '(4))
+       (c-fn-region-is-active-p)]
+      ["Indent Expression"      c-indent-exp
+       (memq (char-after) '(?\( ?\[ ?\{))]
+      ["Indent Line or Region"  c-indent-line-or-region t]
+      ["Fill Comment Paragraph" c-fill-paragraph t]
+      "----"
+      ["Backward Statement"     c-beginning-of-statement t]
+      ["Forward Statement"      c-end-of-statement t]
+      "----"
+      ["Up Conditional"         c-up-conditional t]
+      ["Backward Conditional"   c-backward-conditional t]
+      ["Forward Conditional"    c-forward-conditional t]
+      "----"
+      ["Backslashify"           c-backslash-region (c-fn-region-is-active-p)]
+      "----"
+      ["Find GLSL Man Page"  glsl-find-man-page t]
+      ))
+
+;;;###autoload
+(define-derived-mode glsl-mode prog-mode "GLSL"
+  "Major mode for editing GLSL shader files."
+  (c-initialize-cc-mode t)
+  (setq abbrev-mode t)
+  (c-init-language-vars-for 'c-mode)
+  (c-common-init 'c-mode)
+  (cc-imenu-init cc-imenu-c++-generic-expression)
+  (set (make-local-variable 'font-lock-defaults) '(glsl-font-lock-keywords))
+  (set (make-local-variable 'ff-other-file-alist) 'glsl-other-file-alist)
+  (set (make-local-variable 'comment-start) "// ")
+  (set (make-local-variable 'comment-end) "")
+  (set (make-local-variable 'comment-padding) "")
+  (easy-menu-add glsl-menu)
+  (add-to-list 'align-c++-modes 'glsl-mode)
+  (c-run-mode-hooks 'c-mode-common-hook)
+  (run-mode-hooks 'glsl-mode-hook)
+  :after-hook (progn (c-make-noise-macro-regexps)
+		     (c-make-macro-with-semi-re)
+		     (c-update-modeline))
+  )
+
+;;; glsl-mode.el ends here