ehmry
/
preserves
forked from syndicate-lang/preserves
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Punctuation and keywords

This commit is contained in:
Tony Garnock-Jones 2019-04-25 23:12:24 +01:00
parent 6db903bd37
commit 70888543fa
1 changed files with 40 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
preserves.el
View File

@ -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 ()