scip/config-general-mode
1
0
Fork 0
mirror of https://codeberg.org/scip/config-general-mode.git synced 2025-12-18 04:50:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix font-lock

Browse Source
This commit is contained in:
Thomas von Dein
2017-06-27 15:52:54 +02:00
parent 25eb99b53c
commit cc466ddbee
1 changed files with 16 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
config-general-mode.el
View File

@@ -173,6 +173,11 @@
"face for escape chars"
:group 'config-general-faces)
(defface config-general-string-face
'((t (:inherit font-lock-string-face)))
"face for strings"
:group 'config-general-faces)
;;;; Global Vars
(defconst config-general-mode-version "0.01" "Config::General mode version")
@@ -405,6 +410,13 @@ string). It returns t if a new expansion is found, nil otherwise."
(1 'default t)
(2 font-lock-variable-name-face t))
;; EOF
("\\(<<\\)\\([A-Z0-9]+\\)$"
(1 'config-general-escape-char-face)
(2 'config-general-constant-face))
("^[ \t]*\\([A-Z0-9]+?\\)$"
(1 'config-general-constant-face))
;; <<include ...>>
("^[ \t]*<<\\(include\\) [ \t]*\\(.+?\\)>>*"
(1 'config-general-constant-face)
@@ -430,15 +442,10 @@ string). It returns t if a new expansion is found, nil otherwise."
;; escape char
("\\(\\\\\\)" (1 'config-general-escape-char-face))
))
(set (make-local-variable 'font-lock-defaults)
'(config-general-font-lock-keywords nil t nil nil))
(font-lock-add-keywords nil
'((config-general--fl-beg-eof . 'config-general-constant-face)
(config-general--fl-end-eof . 'config-general-constant-face))))
'(config-general-font-lock-keywords nil nil nil nil))
(font-lock-mode 1))
(defun config-general--init-minors ()
;; from shell-script-mode, turn << into here-doc