diff --git a/emacs/data.el b/emacs/data.el index 3926dc0..1396c21 100644 --- a/emacs/data.el +++ b/emacs/data.el @@ -81,4 +81,20 @@ (provide 'agw-lithdlg-mode) +;; Lithium sound definition mode +(setq agw-lithsnd-highlights '(("\\$[a-z]+\\|==" . font-lock-keyword-face))) + +(setq agw-lithsnd-syntax + (let ((table (make-syntax-table))) + (modify-syntax-entry ?# "<" table) + (modify-syntax-entry ?\n ">" table) + table)) + +(define-derived-mode agw-lithsnd-mode prog-mode "lithsnd" + "Major mode for Lithium sound definitions." + (setq font-lock-defaults '(agw-lithsnd-highlights)) + (set-syntax-table agw-lithsnd-syntax)) + +(provide 'agw-lithsnd-mode) + ;; EOF