Show More
@@ -1,56 +1,56 b'' | |||||
1 | ;; hg-test-mode.el - Major mode for editing Mercurial tests |
|
1 | ;; hg-test-mode.el - Major mode for editing Mercurial tests | |
2 | ;; |
|
2 | ;; | |
3 | ;; Copyright 2014 Matt Mackall <mpm@selenic.com> |
|
3 | ;; Copyright 2014 Matt Mackall <mpm@selenic.com> | |
4 | ;; "I have no idea what I'm doing" |
|
4 | ;; "I have no idea what I'm doing" | |
5 | ;; |
|
5 | ;; | |
6 | ;; This software may be used and distributed according to the terms of the |
|
6 | ;; This software may be used and distributed according to the terms of the | |
7 | ;; GNU General Public License version 2 or any later version. |
|
7 | ;; GNU General Public License version 2 or any later version. | |
8 | ;; |
|
8 | ;; | |
9 | ;; To enable, add something like the following to your .emacs: |
|
9 | ;; To enable, add something like the following to your .emacs: | |
10 | ;; |
|
10 | ;; | |
11 | ;; (if (file-exists-p "~/hg/contrib/hg-test-mode.el") |
|
11 | ;; (if (file-exists-p "~/hg/contrib/hg-test-mode.el") | |
12 | ;; (load "~/hg/contrib/hg-test-mode.el")) |
|
12 | ;; (load "~/hg/contrib/hg-test-mode.el")) | |
13 |
|
13 | |||
14 | (defvar hg-test-mode-hook nil) |
|
14 | (defvar hg-test-mode-hook nil) | |
15 |
|
15 | |||
16 | (defvar hg-test-mode-map |
|
16 | (defvar hg-test-mode-map | |
17 | (let ((map (make-keymap))) |
|
17 | (let ((map (make-keymap))) | |
18 | (define-key map "\C-j" 'newline-and-indent) |
|
18 | (define-key map "\C-j" 'newline-and-indent) | |
19 | map) |
|
19 | map) | |
20 | "Keymap for hg test major mode") |
|
20 | "Keymap for hg test major mode") | |
21 |
|
21 | |||
22 | (add-to-list 'auto-mode-alist '("\\.t\\'" . hg-test-mode)) |
|
22 | (add-to-list 'auto-mode-alist '("\\.t\\'" . hg-test-mode)) | |
23 |
|
23 | |||
24 | (defconst hg-test-font-lock-keywords-1 |
|
24 | (defconst hg-test-font-lock-keywords-1 | |
25 | (list |
|
25 | (list | |
26 | '("^ \\(\\$\\|>>>\\) " 1 font-lock-builtin-face) |
|
26 | '("^ \\(\\$\\|>>>\\) " 1 font-lock-builtin-face) | |
27 | '("^ \\(>\\|\\.\\.\\.\\) " 1 font-lock-constant-face) |
|
27 | '("^ \\(>\\|\\.\\.\\.\\) " 1 font-lock-constant-face) | |
|
28 | '("^ \\(.*?\\)\\(\\( [(][-a-z]+[)]\\)*\\)$" 1 font-lock-string-face) | |||
28 | '("\\$?\\(HG\\|TEST\\)\\w+=?" . font-lock-variable-name-face) |
|
29 | '("\\$?\\(HG\\|TEST\\)\\w+=?" . font-lock-variable-name-face) | |
29 | '("^ \\([[][0-9]+[]]\\)$" 1 font-lock-warning-face) |
|
30 | '("^ \\([[][0-9]+[]]\\)$" 1 font-lock-warning-face) | |
30 | '("^ \\(.*?\\)\\(\\( [(][-a-z]+[)]\\)+\\)$" 2 font-lock-type-face) |
|
31 | '("^ \\(.*?\\)\\(\\( [(][-a-z]+[)]\\)+\\)$" 2 font-lock-type-face) | |
31 | '("^ \\(.*?\\)\\(\\( [(][-a-z]+[)]\\)*\\)$" 1 font-lock-string-face) |
|
|||
32 | '("^#.*" . font-lock-preprocessor-face) |
|
32 | '("^#.*" . font-lock-preprocessor-face) | |
33 | '("^\\([^ ].*\\)$" 1 font-lock-comment-face) |
|
33 | '("^\\([^ ].*\\)$" 1 font-lock-comment-face) | |
34 | ) |
|
34 | ) | |
35 | "Minimal highlighting expressions for hg-test mode") |
|
35 | "Minimal highlighting expressions for hg-test mode") | |
36 |
|
36 | |||
37 | (defvar hg-test-font-lock-keywords hg-test-font-lock-keywords-1 |
|
37 | (defvar hg-test-font-lock-keywords hg-test-font-lock-keywords-1 | |
38 | "Default highlighting expressions for hg-test mode") |
|
38 | "Default highlighting expressions for hg-test mode") | |
39 |
|
39 | |||
40 | (defvar hg-test-mode-syntax-table |
|
40 | (defvar hg-test-mode-syntax-table | |
41 | (let ((st (make-syntax-table))) |
|
41 | (let ((st (make-syntax-table))) | |
42 | (modify-syntax-entry ?\" "w" st) ;; disable standard quoting |
|
42 | (modify-syntax-entry ?\" "w" st) ;; disable standard quoting | |
43 | st) |
|
43 | st) | |
44 | "Syntax table for hg-test mode") |
|
44 | "Syntax table for hg-test mode") | |
45 |
|
45 | |||
46 | (defun hg-test-mode () |
|
46 | (defun hg-test-mode () | |
47 | (interactive) |
|
47 | (interactive) | |
48 | (kill-all-local-variables) |
|
48 | (kill-all-local-variables) | |
49 | (use-local-map hg-test-mode-map) |
|
49 | (use-local-map hg-test-mode-map) | |
50 | (set-syntax-table hg-test-mode-syntax-table) |
|
50 | (set-syntax-table hg-test-mode-syntax-table) | |
51 | (set (make-local-variable 'font-lock-defaults) '(hg-test-font-lock-keywords)) |
|
51 | (set (make-local-variable 'font-lock-defaults) '(hg-test-font-lock-keywords)) | |
52 | (setq major-mode 'hg-test-mode) |
|
52 | (setq major-mode 'hg-test-mode) | |
53 | (setq mode-name "hg-test") |
|
53 | (setq mode-name "hg-test") | |
54 | (run-hooks 'hg-test-mode-hook)) |
|
54 | (run-hooks 'hg-test-mode-hook)) | |
55 |
|
55 | |||
56 | (provide 'hg-test-mode) |
|
56 | (provide 'hg-test-mode) |
General Comments 0
You need to be logged in to leave comments.
Login now