roy-mode

gistfile1.el

(require 'generic-x)

(defvar roy-keywords
  '("with" "macro" "return" "bind" "do" "case" "match"
    "type" "data" "else" "then" "if" "fn" "let" "true" "false")
  "Roy keywords.")

;;
;; Syntax highligh
;;
(define-generic-mode 'roy-mode
  '("//") ;; comments
  roy-keywords
  '(;; fixnums
    ("[0-9]+" . 'font-lock-variable-name-face)
    ;; floats
    ("[0-9]+\.[0-9]+" . 'font-lock-variable-name-face)
    ;; types
    ("\\(^\\|[^_]\\)\\b\\([A-Z]+\\(\\w\\|_\\)*\\)" . 'font-lock-type-face)
    ;; opareators and constants
    ("\\([!-+*/~⊥πτ:≠λ←→⇒∈∉∘<>=&!?%^]+\\)" 1 'font-lock-function-name-face)
    ;; functions
    ("^\\s *let\\s +\\([^( \t\n]+\\)" 1 'font-lock-function-name-face)
    ("\\<\\(e\\(?:mpty\\|ven\\)\\|f\\(?:ilter\\|lip\\|oldl\\)\\|head\\|id\\|l\\(?:ength\\|og\\)\\|ma\\(?:p\\|ybe\\)\\|not\\|odd\\|pred\\|replicate\\|succ\\|ta\\(?:il\\|ke\\)\\)\\>" 1 'font-lock-function-name-face)
    )
  '("\\.roy$")                      ;; files for which to activate this mode 
  nil                               ;; other functions to call
  "A simple mode for roy files"     ;; doc string for this mode
  )