gdritter repos adnot-mode / master adnot-mode.el
master

Tree @master (Download .tar.gz)

adnot-mode.el @masterraw · history · blame

;; adnot-mode.el --- a simple major mode for editing Adnot files.

;; Version: 20160402.0000
;; Author: Getty Ritter
;; Url: http://github.com/aisamanra/adnot-mode

(setq adnot-font-lock
  '(( "\"\\([^\\]\\|\\\\[\\\"]\\)*\""
      . font-lock-string-face )
    ( "(\\([ \n\t\r]*[A-Za-z_][A-Za-z0-9_]*\\)"
      1 font-lock-keyword-face )
    ( "\\([A-Za-z][A-Za-z0-9_]*\\)"
      . font-lock-variable-name-face )))

(defvar adnot-syntax-table nil "Syntax table for `adnot-mode'.")
(setq adnot-syntax-table
  (let ((table (make-syntax-table)))
    (modify-syntax-entry ?# "< b" table)
    (modify-syntax-entry ?\n "> b" table)

    table))

(define-derived-mode adnot-mode prog-mode
  "Adnot mode is a major mode for editing Adnot files"
  :syntax-table adnot-syntax-table

  (setq font-lock-defaults '(adnot-font-lock))
  (setq mode-name "Adnot mode")
  (setq comment-start "#")
  (setq comment-end ""))

;;;###autoload
(add-to-list 'auto-mode-alist '("\\.adnot\\'" . adnot-mode))

(provide 'adnot-mode)

;;; adnot-mode.el ends here