|
|
|
|
;; keywords for syntax coloring
|
|
|
|
|
(setq meson-keywords
|
|
|
|
|
`(
|
|
|
|
|
( ,(regexp-opt '("elif" "if" "else" "endif" "foreach" "endforeach") 'word) . font-lock-keyword-face)
|
|
|
|
|
)
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
;; syntax table
|
|
|
|
|
(defvar meson-syntax-table nil "Syntax table for `meson-mode'.")
|
|
|
|
|
(setq meson-syntax-table
|
|
|
|
|
(let ((synTable (make-syntax-table)))
|
|
|
|
|
|
|
|
|
|
;; bash style comment: “# …”
|
|
|
|
|
(modify-syntax-entry ?# "< b" synTable)
|
|
|
|
|
(modify-syntax-entry ?\n "> b" synTable)
|
|
|
|
|
|
|
|
|
|
synTable))
|
|
|
|
|
|
|
|
|
|
;; define the major mode.
|
|
|
|
|
(define-derived-mode meson-mode prog-mode
|
|
|
|
|
"meson-mode is a major mode for editing Meson build definition files."
|
|
|
|
|
:syntax-table meson-syntax-table
|
|
|
|
|
|
|
|
|
|
(setq font-lock-defaults '(meson-keywords))
|
|
|
|
|
(setq mode-name "meson")
|
|
|
|
|
(setq-local comment-start "# ")
|
|
|
|
|
(setq-local comment-end ""))
|
|
|
|
|
|
|
|
|
|
(add-to-list 'auto-mode-alist '("meson.build" . meson-mode))
|
|
|
|
|
(provide 'meson)
|
|
|
|
|
;;; meson.el ends here
|
