| ;; 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 |