marrub
/
scripts
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

emacs: new syntax for agw-lithdlg/agw-lithtxt

master
an 2020-04-20 19:19:02 -06:00
parent 162f764333
commit ec33f1c305
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
emacs/data.el
View File

@ -61,11 +61,10 @@
"finished" "unfinished" "if" "else"))
(functions '("option" "page" "name" "icon" "remote"
"teleport_interlevel" "teleport_intralevel"
"script" "logon" "logoff" "pict" "info"))
"script" "logon" "logoff" "pict" "info" "text"))
( keyword-regexp (regexp-opt keywords '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))))
(setq agw-lithdlg-syntax
@ -99,7 +98,8 @@
;; Lithium text definition mode
(setq agw-lithtxt-highlights
'(("^\\(==\\|%%\\|@@\\|\\+\\+\\|!![a-z]+\\) " . font-lock-keyword-face)
'(("^\\(\\(==\\|%%\\|@@\\|\\+\\+\\|!![a-z]+\\) \\|@@$\\)" .
font-lock-keyword-face)
("^##.*$" . font-lock-comment-face)
("\\\\#" . font-lock-constant-face)))