about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2019-12-29 01:31:12 -0800
committerKartik Agaram <vc@akkartik.com>2019-12-29 01:32:46 -0800
commitcd11144f525500589d3a1950b5030505947e2401 (patch)
tree20c7e8be181faa56c38006bf57c902f5a2d242fd
parentb6e3ce576f1d10848fb37f63bb24d37d9bff0f71 (diff)
downloadmu-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.el44
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)