Commit master - adnot-mode

Basic major mode for editing Adnot data files Getty Ritter 8 years ago

1 changed file(s) with 37 addition(s) and 0 deletion(s). Collapse all Expand all

+37

-0

adnot-mode.el less more

	1	;; adnot-mode.el --- a simple major mode for editing Adnot files.
	2
	3	;; Version: 20160402.0000
	4	;; Author: Getty Ritter
	5	;; Url: http://github.com/aisamanra/adnot-mode
	6
	7	(setq adnot-font-lock
	8	'(( "\"\\([^\\]\\\|\\\\[\\\"]\\)*\""
	9	. font-lock-string-face )
	10	( "(\\([ \n\t\r][A-Za-z_][A-Za-z0-9_]\\)"
	11	1 font-lock-keyword-face )
	12	( "\\([A-Za-z][A-Za-z0-9_]*\\)"
	13	. font-lock-variable-name-face )))
	14
	15	(defvar adnot-syntax-table nil "Syntax table for `adnot-mode'.")
	16	(setq adnot-syntax-table
	17	(let ((table (make-syntax-table)))
	18	(modify-syntax-entry ?# "< b" table)
	19	(modify-syntax-entry ?\n "> b" table)
	20
	21	table))
	22
	23	(define-derived-mode adnot-mode prog-mode
	24	"Adnot mode is a major mode for editing Adnot files"
	25	:syntax-table adnot-syntax-table
	26
	27	(setq font-lock-defaults '(adnot-font-lock))
	28	(setq mode-name "Adnot mode")
	29	(setq comment-start "#")
	30	(setq comment-end ""))
	31
	32	;;;###autoload
	33	(add-to-list 'auto-mode-alist '("\\.adnot\\'" . adnot-mode))
	34
	35	(provide 'adnot-mode)
	36
	37	;;; adnot-mode.el ends here