obsolete/dict-c5-mode.el
author Oleksandr Gavenko <gavenkoa@gmail.com>
Tue, 20 Dec 2011 22:11:20 +0200
changeset 324 b00f5057ca3c
parent 323 1b8d12e8ab76
child 325 e64b740278c5
permissions -rw-r--r--
Rewrite code to use 'define-derived-mode'.

;;; 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)

(defvar dict-c5-font-lock-keywords
;; (setq dict-c5-font-lock-keywords
      '(
        ("^\\(_\\{5,\\}\\)\n\n\\(\\w[^\n]*\\)$"
         (1 font-lock-function-name-face) (2 font-lock-keyword-face))
        ("\\[[^]]+]" . font-lock-type-face)
        ))

;;;###autoload
(define-derived-mode dict-c5-mode fundamental-mode "Dict-c5"
  "Derived mode for editing C5 dictd source file."
  (add-to-list 'auto-mode-alist (cons "\\.dict-c5$" 'dict-c5-mode))
  (setq font-lock-defaults
        '(dict-c5-font-lock-keywords
          t nil nil nil
          (font-lock-multiline . t)
          ))
  (use-local-map dict-c5-mode-map)
  (modify-syntax-entry ?' ".")
  (modify-syntax-entry ?\" ".")
  )

;;; dict-mode.el ends here