forked from syndicate-lang/preserves
Punctuation and keywords
This commit is contained in:
parent
6db903bd37
commit
70888543fa
65
preserves.el
65
preserves.el
|
@ -33,37 +33,52 @@
|
||||||
"Syntax table in use in preserves-mode buffers.")
|
"Syntax table in use in preserves-mode buffers.")
|
||||||
|
|
||||||
;; (modify-syntax-entry ?' "\"" preserves-mode-syntax-table)
|
;; (modify-syntax-entry ?' "\"" preserves-mode-syntax-table)
|
||||||
(modify-syntax-entry ?_ "_" preserves-mode-syntax-table)
|
|
||||||
(modify-syntax-entry ?\n "> b" preserves-mode-syntax-table)
|
(modify-syntax-entry ?\n "> b" preserves-mode-syntax-table)
|
||||||
(modify-syntax-entry ?\r "> b" preserves-mode-syntax-table)
|
(modify-syntax-entry ?\r "> b" preserves-mode-syntax-table)
|
||||||
(modify-syntax-entry ?/ ". 12b" preserves-mode-syntax-table)
|
(modify-syntax-entry ?/ "_ 12b" preserves-mode-syntax-table)
|
||||||
(mapcar #'(lambda (x) (modify-syntax-entry x "w" preserves-mode-syntax-table))
|
(mapcar #'(lambda (x) (modify-syntax-entry x "_" preserves-mode-syntax-table))
|
||||||
'(?- ?_ ?$ ?! ?? ?* ?+ ?~))
|
'(?- ?_ ?$ ?? ?! ?* ?+ ?~ ?: ?< ?> ?=))
|
||||||
|
(mapcar #'(lambda (x) (modify-syntax-entry x "." preserves-mode-syntax-table))
|
||||||
|
'(?.))
|
||||||
|
|
||||||
(defvar preserves-font-lock-keywords
|
(defvar preserves-font-lock-keywords
|
||||||
(list
|
(list
|
||||||
'("\\<\\(~\\|[A-Z]\\)[^[:space:].\n]*\\>" . font-lock-type-face)
|
'("\\_<\\(~\\|[A-Z]\\)[^[:space:].\n]*\\>" . font-lock-type-face)
|
||||||
'("\\\\[[:space:]]*?\n" . font-lock-warning-face)
|
'("\\\\[[:space:]]*?\n" . font-lock-warning-face)
|
||||||
(cons (regexp-opt '("->") 'symbols) 'font-lock-builtin-face)
|
'("\\." . font-lock-builtin-face)
|
||||||
|
(cons (regexp-opt '("->"
|
||||||
;; (cons (regexp-opt
|
"<-"
|
||||||
;; '(
|
"*"
|
||||||
;; "float"
|
"+"
|
||||||
;; "double"
|
"-"
|
||||||
;; "word32"
|
"/"
|
||||||
;; "word64"
|
"<"
|
||||||
;; "integer"
|
">"
|
||||||
;; "boolean"
|
"<="
|
||||||
;; "text"
|
">="
|
||||||
;; "set"
|
"="
|
||||||
;; "list"
|
)
|
||||||
;; "dict"
|
'symbols)
|
||||||
;; "not"
|
'font-lock-builtin-face)
|
||||||
;; "ref"
|
(cons (regexp-opt '(
|
||||||
;; )
|
"coerce"
|
||||||
;; 'words)
|
"match"
|
||||||
;; 'font-lock-builtin-face)
|
"ref"
|
||||||
|
"value"
|
||||||
|
)
|
||||||
|
'words)
|
||||||
|
'font-lock-builtin-face)
|
||||||
|
(cons (regexp-opt '(
|
||||||
|
"block"
|
||||||
|
"import"
|
||||||
|
"let"
|
||||||
|
"namespace"
|
||||||
|
"try"
|
||||||
|
"view"
|
||||||
|
"while"
|
||||||
|
)
|
||||||
|
'words)
|
||||||
|
'font-lock-keyword-face)
|
||||||
))
|
))
|
||||||
|
|
||||||
(defun preserves-mode-variables ()
|
(defun preserves-mode-variables ()
|
||||||
|
|
Loading…
Reference in New Issue