major mode for dict dictionary source files
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sun, 04 Sep 2011 23:09:38 +0300
changeset 690 90d155b82954
parent 689 1b632e2151cc
child 691 0722f3949eda
major mode for dict dictionary source files
dict-mode.el
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dict-mode.el	Sun Sep 04 23:09:38 2011 +0300
@@ -0,0 +1,46 @@
+;;; dict-mode.el --- major mode for dict dictionary source files
+
+;; Copyright (C) 2011 by Oleksandr Gavenko <gavenkoa@gmail.com>
+
+;; You can do anything with this file without any warranty.
+
+;; Author: Oleksandr Gavenko <gavenkoa@gmail.com>
+;; Maintainer: Oleksandr Gavenko <gavenkoa@gmail.com>
+;; Created: 2011-09-04
+;; Version: 0.1
+;; Keywords: dict, dictionary
+
+;;; Commentary:
+;;
+;; Very pure release.
+
+;;; Code:
+
+(setq dict-c5-mode-map (make-sparse-keymap))
+;; (define-key dict-c5-mode-map (kbd "RET") 'my-xxx)
+
+(require 'generic-x)
+
+;;;###autoload
+(define-generic-mode
+  'dict-c5-mode
+  nil
+  nil
+  '(
+    ("^\\(_____+\\)
+
+\\([^[:blank:]][^
+]*\\)$" (1 font-lock-function-name-face) (2 font-lock-keyword-face))
+    ("^[[:blank:]]*\\(\\[[^]]*]\\)[[:space:]]" (1 font-lock-type-face))
+    )
+  '("\\.dict-c5$")
+  nil
+  (list
+   (lambda nil
+     (use-local-map dict-c5-mode-map)
+     (modify-syntax-entry ?' ".")
+     (modify-syntax-entry ?\" ".")
+     ))
+  )
+
+;;; dict-mode.el ends here