equal
deleted
inserted
replaced
35 '(gadict-font-lock-keywords |
35 '(gadict-font-lock-keywords |
36 t nil nil nil |
36 t nil nil nil |
37 (font-lock-multiline . t) )) |
37 (font-lock-multiline . t) )) |
38 (add-hook 'font-lock-extend-region-functions 'gadict-font-lock-extend-region t) ) |
38 (add-hook 'font-lock-extend-region-functions 'gadict-font-lock-extend-region t) ) |
39 |
39 |
|
40 (defun gadict-setup-syntax () |
|
41 "Setup gadict characters syntax." |
|
42 (modify-syntax-entry ?' "w")) |
|
43 |
40 (defun gadict-setup-comment () |
44 (defun gadict-setup-comment () |
41 "Setup gadict comment commands." |
45 "Setup gadict comment commands." |
42 (set (make-local-variable 'comment-start) "#") |
46 (set (make-local-variable 'comment-start) "#") |
43 (set (make-local-variable 'comment-continue) nil) |
47 (set (make-local-variable 'comment-continue) nil) |
44 (set (make-local-variable 'comment-end) "") |
48 (set (make-local-variable 'comment-end) "") |
53 |
57 |
54 (defun gadict-setup-page () |
58 (defun gadict-setup-page () |
55 "Setup gadict page definition." |
59 "Setup gadict page definition." |
56 (set (make-local-variable 'page-delimiter) "__$") ) |
60 (set (make-local-variable 'page-delimiter) "__$") ) |
57 |
61 |
58 (defun gadict-setup-syntax () |
62 (defvar gadict-indent-offset 2 |
59 "Setup gadict characters syntax." |
63 "Indent level.") |
60 (modify-syntax-entry ?' "w")) |
64 |
|
65 (defun gadict-indent-line () |
|
66 "Indent line in gdict mode." |
|
67 (let ( (indent ) ) |
|
68 (if (eq (current-indentation) gadict-indent-offset) |
|
69 (indent-line-to 0) |
|
70 (indent-line-to gadict-indent-offset)))) |
|
71 |
|
72 (defun gadict-setup-indent () |
|
73 "Setup indenting for gdict mode." |
|
74 (set (make-local-variable 'indent-line-function) 'gadict-indent-line)) |
61 |
75 |
62 (defun gadict-mark-article () |
76 (defun gadict-mark-article () |
63 "Mark current article." |
77 "Mark current article." |
64 (end-of-line) |
78 (end-of-line) |
65 (re-search-backward "^__$") |
79 (re-search-backward "^__$") |
133 (gadict-setup-keymap) |
147 (gadict-setup-keymap) |
134 (gadict-setup-syntax) |
148 (gadict-setup-syntax) |
135 (gadict-setup-paragraph) |
149 (gadict-setup-paragraph) |
136 (gadict-setup-page) |
150 (gadict-setup-page) |
137 (gadict-setup-comment) |
151 (gadict-setup-comment) |
|
152 (gadict-setup-indent) |
138 (gadict-setup-expansions) ) |
153 (gadict-setup-expansions) ) |
139 |
154 |
140 (provide 'gadict) |
155 (provide 'gadict) |
141 |
156 |
142 ;;; dict-mode.el ends here |
157 ;;; dict-mode.el ends here |