gadict: contrib/gadict.el@6dee73a3e3cb (annotated)

361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	1	;;; gadict-mode.el --- major mode for editing gadict dictionary source files
320 4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	2
361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	3	;; Copyright (C) 2016 by Oleksandr Gavenko <gavenkoa@gmail.com>
320 4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	4
4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	5	;; You can do anything with this file without any warranty.
4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	6
4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	7	;; Author: Oleksandr Gavenko <gavenkoa@gmail.com>
4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	8	;; Maintainer: Oleksandr Gavenko <gavenkoa@gmail.com>
361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	9	;; Created: 2016
320 4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	10	;; Keywords: dict, dictionary
4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	11
4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	12	;;; Commentary:
4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	13	;;
361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	14	;; File association can be registered by:
6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	15	;;
6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	16	;; (add-to-list 'auto-mode-alist (cons "\\.gadict$" 'gadict-mode))
320 4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	17
4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	18	;;; Code:
4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	19
361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	20	(defvar gadict-font-lock-keywords
6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	21	'( ("^\$_\\{2\\}\$\n\n\$\\w.*\$$"
6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	22	(1 font-lock-function-name-face) (2 font-lock-keyword-face))
6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	23	("^ +\\[[^]\n]+]" . font-lock-type-face) ))
320 4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	24
334 95ccf76a6c7f Fix: Warning: assignment to free variable `dict-c5-mode-map' Oleksandr Gavenko <gavenkoa@gmail.com> parents: 333 diff changeset	25	(eval-when-compile
95ccf76a6c7f Fix: Warning: assignment to free variable `dict-c5-mode-map' Oleksandr Gavenko <gavenkoa@gmail.com> parents: 333 diff changeset	26	(defvar font-lock-beg)
95ccf76a6c7f Fix: Warning: assignment to free variable `dict-c5-mode-map' Oleksandr Gavenko <gavenkoa@gmail.com> parents: 333 diff changeset	27	(defvar font-lock-end))
95ccf76a6c7f Fix: Warning: assignment to free variable `dict-c5-mode-map' Oleksandr Gavenko <gavenkoa@gmail.com> parents: 333 diff changeset	28
361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	29	(defun gadict-font-lock-extend-region ()
6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	30	"Look for '__' expression and extend `font-lock-beg' and `font-lock-end'."
329 410c26a389a6 Fix highlighting near beginning and end of buffer. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 328 diff changeset	31	;; (message "%d:%d, %d lines" font-lock-beg font-lock-end (count-lines font-lock-beg font-lock-end))
328 80146b5ba6e6 Fix infinite invocation of 'dict-c5-font-lock-extend-region' by guarding condition. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 327 diff changeset	32	(cond
80146b5ba6e6 Fix infinite invocation of 'dict-c5-font-lock-extend-region' by guarding condition. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 327 diff changeset	33	((and
80146b5ba6e6 Fix infinite invocation of 'dict-c5-font-lock-extend-region' by guarding condition. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 327 diff changeset	34	(< (count-lines font-lock-beg font-lock-end) 5)
329 410c26a389a6 Fix highlighting near beginning and end of buffer. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 328 diff changeset	35	(not (and (<= (point-max) font-lock-end) (<= font-lock-beg (point-min)) )))
325 e64b740278c5 Finally fix multiline highlighting. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 324 diff changeset	36	(save-excursion
e64b740278c5 Finally fix multiline highlighting. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 324 diff changeset	37	(goto-char font-lock-beg)
e64b740278c5 Finally fix multiline highlighting. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 324 diff changeset	38	(forward-line -2)
328 80146b5ba6e6 Fix infinite invocation of 'dict-c5-font-lock-extend-region' by guarding condition. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 327 diff changeset	39	(setq font-lock-beg (point))
80146b5ba6e6 Fix infinite invocation of 'dict-c5-font-lock-extend-region' by guarding condition. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 327 diff changeset	40	(goto-char font-lock-end)
80146b5ba6e6 Fix infinite invocation of 'dict-c5-font-lock-extend-region' by guarding condition. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 327 diff changeset	41	(forward-line 3)
80146b5ba6e6 Fix infinite invocation of 'dict-c5-font-lock-extend-region' by guarding condition. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 327 diff changeset	42	(setq font-lock-end (point))
327 21124e46bf6e Return non-nil if region was adjusted. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 326 diff changeset	43	)
328 80146b5ba6e6 Fix infinite invocation of 'dict-c5-font-lock-extend-region' by guarding condition. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 327 diff changeset	44	t)
361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	45	(t nil) ))
325 e64b740278c5 Finally fix multiline highlighting. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 324 diff changeset	46
361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	47	(defun gadict-new-entry ()
335 8732c7c894af dict-c5-new-entry Oleksandr Gavenko <gavenkoa@gmail.com> parents: 334 diff changeset	48	"Insert new entry template."
8732c7c894af dict-c5-new-entry Oleksandr Gavenko <gavenkoa@gmail.com> parents: 334 diff changeset	49	(interactive)
361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	50	(if (re-search-forward "^__" nil t)
335 8732c7c894af dict-c5-new-entry Oleksandr Gavenko <gavenkoa@gmail.com> parents: 334 diff changeset	51	(beginning-of-line)
8732c7c894af dict-c5-new-entry Oleksandr Gavenko <gavenkoa@gmail.com> parents: 334 diff changeset	52	(goto-char (point-max)))
8732c7c894af dict-c5-new-entry Oleksandr Gavenko <gavenkoa@gmail.com> parents: 334 diff changeset	53	(while (eq (char-before) ?\n)
8732c7c894af dict-c5-new-entry Oleksandr Gavenko <gavenkoa@gmail.com> parents: 334 diff changeset	54	(delete-backward-char 1))
8732c7c894af dict-c5-new-entry Oleksandr Gavenko <gavenkoa@gmail.com> parents: 334 diff changeset	55	(insert-char ?\n)
361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	56	(insert-char ?_ 2)
335 8732c7c894af dict-c5-new-entry Oleksandr Gavenko <gavenkoa@gmail.com> parents: 334 diff changeset	57	(insert-char ?\n 3)
8732c7c894af dict-c5-new-entry Oleksandr Gavenko <gavenkoa@gmail.com> parents: 334 diff changeset	58	(backward-char))
8732c7c894af dict-c5-new-entry Oleksandr Gavenko <gavenkoa@gmail.com> parents: 334 diff changeset	59
361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	60	(defvar gadict-mode-map (make-sparse-keymap))
6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	61	(define-key gadict-mode-map [C-return] 'gadict-new-entry)
335 8732c7c894af dict-c5-new-entry Oleksandr Gavenko <gavenkoa@gmail.com> parents: 334 diff changeset	62
320 4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	63	;;;###autoload
361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	64	(define-derived-mode gadict-mode fundamental-mode "gadict"
6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	65	"Derived mode for editing gadict dictionary source files."
324 b00f5057ca3c Rewrite code to use 'define-derived-mode'. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 323 diff changeset	66	(setq font-lock-defaults
361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	67	'(gadict-font-lock-keywords
324 b00f5057ca3c Rewrite code to use 'define-derived-mode'. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 323 diff changeset	68	t nil nil nil
b00f5057ca3c Rewrite code to use 'define-derived-mode'. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 323 diff changeset	69	(font-lock-multiline . t)
b00f5057ca3c Rewrite code to use 'define-derived-mode'. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 323 diff changeset	70	))
361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	71	(use-local-map gadict-mode-map)
324 b00f5057ca3c Rewrite code to use 'define-derived-mode'. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 323 diff changeset	72	(modify-syntax-entry ?' ".")
b00f5057ca3c Rewrite code to use 'define-derived-mode'. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 323 diff changeset	73	(modify-syntax-entry ?\" ".")
333 22928defcb53 Prevent wrap '_____' keyword. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 332 diff changeset	74	(make-local-variable 'paragraph-separate)
22928defcb53 Prevent wrap '_____' keyword. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 332 diff changeset	75	(setq paragraph-separate "\$[ \t\f]*\\\|_\\{5,\\}\$$")
22928defcb53 Prevent wrap '_____' keyword. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 332 diff changeset	76	(make-local-variable 'paragraph-start)
22928defcb53 Prevent wrap '_____' keyword. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 332 diff changeset	77	(setq paragraph-start paragraph-separate)
361 6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	78	(add-hook 'font-lock-extend-region-functions 'gadict-font-lock-extend-region t) )
6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	79
6dee73a3e3cb Basic adaptation to gadict format. Oleksandr Gavenko <gavenkoa@gmail.com> parents: 335 diff changeset	80	(provide 'gadict)
320 4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	81
4272023569f3 major mode for dict dictionary source files Oleksandr Gavenko <gavenkoa@gmail.com> parents: diff changeset	82	;;; dict-mode.el ends here

author	Oleksandr Gavenko <gavenkoa@gmail.com>
	Sun, 13 Mar 2016 23:10:30 +0200
changeset 361	6dee73a3e3cb
parent 335	obsolete/dict-c5-mode.el@8732c7c894af
child 362	3d5c70256edf
permissions	-rw-r--r--