# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1315166978 -10800
# Node ID 90d155b829541de8750bbb8f8e1bd7a86d9d4629
# Parent  1b632e2151cccf25942bdd0ea997699ba10a558f
major mode for dict dictionary source files

diff -r 1b632e2151cc -r 90d155b82954 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