equal
deleted
inserted
replaced
|
1 ;;; dict-mode.el --- major mode for dict dictionary source files |
|
2 |
|
3 ;; Copyright (C) 2011 by Oleksandr Gavenko <gavenkoa@gmail.com> |
|
4 |
|
5 ;; You can do anything with this file without any warranty. |
|
6 |
|
7 ;; Author: Oleksandr Gavenko <gavenkoa@gmail.com> |
|
8 ;; Maintainer: Oleksandr Gavenko <gavenkoa@gmail.com> |
|
9 ;; Created: 2011-09-04 |
|
10 ;; Version: 0.1 |
|
11 ;; Keywords: dict, dictionary |
|
12 |
|
13 ;;; Commentary: |
|
14 ;; |
|
15 ;; Very pure release. |
|
16 |
|
17 ;;; Code: |
|
18 |
|
19 (setq dict-c5-mode-map (make-sparse-keymap)) |
|
20 ;; (define-key dict-c5-mode-map (kbd "RET") 'my-xxx) |
|
21 |
|
22 (require 'generic-x) |
|
23 |
|
24 ;;;###autoload |
|
25 (define-generic-mode |
|
26 'dict-c5-mode |
|
27 nil |
|
28 nil |
|
29 '( |
|
30 ("^\\(_____+\\) |
|
31 |
|
32 \\([^[:blank:]][^ |
|
33 ]*\\)$" (1 font-lock-function-name-face) (2 font-lock-keyword-face)) |
|
34 ("^[[:blank:]]*\\(\\[[^]]*]\\)[[:space:]]" (1 font-lock-type-face)) |
|
35 ) |
|
36 '("\\.dict-c5$") |
|
37 nil |
|
38 (list |
|
39 (lambda nil |
|
40 (use-local-map dict-c5-mode-map) |
|
41 (modify-syntax-entry ?' ".") |
|
42 (modify-syntax-entry ?\" ".") |
|
43 )) |
|
44 ) |
|
45 |
|
46 ;;; dict-mode.el ends here |