diff options
author | Kartik Agaram <vc@akkartik.com> | 2019-12-29 01:31:12 -0800 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2019-12-29 01:32:46 -0800 |
commit | cd11144f525500589d3a1950b5030505947e2401 (patch) | |
tree | 20c7e8be181faa56c38006bf57c902f5a2d242fd | |
parent | b6e3ce576f1d10848fb37f63bb24d37d9bff0f71 (diff) | |
download | mu-cd11144f525500589d3a1950b5030505947e2401.tar.gz |
5842
Extremely crappy syntax highlighting for Emacs. I just can't wrap my head around elisp, and I'm inclined to blame elisp. Checking this off my todo list and moving on.
-rw-r--r-- | subx.el | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/subx.el b/subx.el new file mode 100644 index 00000000..f2b15293 --- /dev/null +++ b/subx.el @@ -0,0 +1,44 @@ +;;; Emacs major mode for editing SubX files. -*- coding: utf-8; lexical-binding: t; -*- + +;; Author: Kartik Agaram (subx.el@akkartik.com) +;; Version: 0.0.1 +;; Created: 28 Dec 2019 +;; Keywords: languages +;; Homepage: https://github.com/akkartik/mu + +;;; Commentary: + +;; I don't know how to define new faces in an emacs package, so I'm +;; cannibalizing existing faces. +;; +;; I load this file like so in my .emacs: +;; (load "/absolute/path/to/subx.el") +;; (add-to-list 'auto-mode-alist '("\\.subx\\'" . subx-mode)) +;; +;; Education on the right way to do this most appreciated. + +(setq subx-font-lock-keywords + '( + ; tests + ("^test-[^ ]*:" . font-lock-type-face) + ; functions + ("^[a-z][^ ]*:" . font-lock-function-name-face) + ; globals + ("^[A-Z][^ ]*:" . font-lock-variable-name-face) + ; minor labels + ("^[^a-zA-Z#( ][^ ]*:" . font-lock-doc-face) + ; string literals + ; ("\"[^\"]*\"" . font-lock-constant-face) ; strings colorized already, albeit buggily + ; 4 colors for comments; ugly but functional + ("# \\. \\. .*" . font-lock-doc-face) + ("# \\. .*" . font-lock-constant-face) + ("# - .*" . font-lock-comment-face) + ("#.*" . font-lock-preprocessor-face) + )) + +(define-derived-mode subx-mode fundamental-mode "subx mode" + "Major mode for editing SubX (Mu project)" + (setq font-lock-defaults '((subx-font-lock-keywords))) + ) + +(provide 'subx-mode) |