1
1
mirror of https://github.com/anoma/juvix.git synced 2024-12-15 01:52:11 +03:00
juvix/minijuvix-mode/minijuvix-highlight.el

53 lines
1.4 KiB
EmacsLisp

(require 'font-lock)
(defgroup minijuvix-highlight nil
"Syntax highlighting for MiniJuvix."
:group 'minijuvix)
(defgroup agda2-highlight-faces nil
"Faces used to highlight MiniJuvix code."
:group 'minijuvix-highlight)
(defface minijuvix-highlight-keyword-face
'((((background light))
(:foreground "#399ee6"))
(((background dark))
(:foreground "#81a1c1")))
"The face used for keywords."
:group 'minijuvix-highlight-faces)
(defface minijuvix-highlight-function-face
'((((background light))
(:foreground "#f2ae49"))
(((background dark))
(:foreground "#ebcb8b")))
"The face used for functions."
:group 'minijuvix-highlight-faces)
(defface minijuvix-highlight-inductive-face
'((((background light))
(:foreground "#86b300"))
(((background dark))
(:foreground "#a3be8c")))
"The face used for inductive types."
:group 'minijuvix-highlight-faces)
(defface minijuvix-highlight-constructor-face
'((((background light))
(:foreground "#a37acc"))
(((background dark))
(:foreground "#b48ead")))
"The face used for constructors."
:group 'minijuvix-highlight-faces)
(defface minijuvix-highlight-axiom-face
'((((background light))
(:foreground "#f07171"))
(((background dark))
(:foreground "#bf616a")))
"The face used for axioms."
:group 'minijuvix-highlight-faces)
(provide 'minijuvix-highlight)