emacs: new syntax for agw-lithdlg/agw-lithtxt
parent
162f764333
commit
ec33f1c305
|
@ -61,11 +61,10 @@
|
||||||
"finished" "unfinished" "if" "else"))
|
"finished" "unfinished" "if" "else"))
|
||||||
(functions '("option" "page" "name" "icon" "remote"
|
(functions '("option" "page" "name" "icon" "remote"
|
||||||
"teleport_interlevel" "teleport_intralevel"
|
"teleport_interlevel" "teleport_intralevel"
|
||||||
"script" "logon" "logoff" "pict" "info"))
|
"script" "logon" "logoff" "pict" "info" "text"))
|
||||||
( keyword-regexp (regexp-opt keywords 'words))
|
( keyword-regexp (regexp-opt keywords 'words))
|
||||||
(function-regexp (regexp-opt functions 'words)))
|
(function-regexp (regexp-opt functions 'words)))
|
||||||
`(("`.*$" . font-lock-string-face)
|
`(( ,keyword-regexp . font-lock-keyword-face)
|
||||||
( ,keyword-regexp . font-lock-keyword-face)
|
|
||||||
(,function-regexp . font-lock-function-name-face))))
|
(,function-regexp . font-lock-function-name-face))))
|
||||||
|
|
||||||
(setq agw-lithdlg-syntax
|
(setq agw-lithdlg-syntax
|
||||||
|
@ -99,7 +98,8 @@
|
||||||
|
|
||||||
;; Lithium text definition mode
|
;; Lithium text definition mode
|
||||||
(setq agw-lithtxt-highlights
|
(setq agw-lithtxt-highlights
|
||||||
'(("^\\(==\\|%%\\|@@\\|\\+\\+\\|!![a-z]+\\) " . font-lock-keyword-face)
|
'(("^\\(\\(==\\|%%\\|@@\\|\\+\\+\\|!![a-z]+\\) \\|@@$\\)" .
|
||||||
|
font-lock-keyword-face)
|
||||||
("^##.*$" . font-lock-comment-face)
|
("^##.*$" . font-lock-comment-face)
|
||||||
("\\\\#" . font-lock-constant-face)))
|
("\\\\#" . font-lock-constant-face)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue