113 lines
3.6 KiB
EmacsLisp
113 lines
3.6 KiB
EmacsLisp
;;; midizap-mode.el --- midizap syntax highlighting for Emacs.
|
|
|
|
;;; Commentary:
|
|
|
|
;;; This is a simple mode for editing midizaprc files which provides basic
|
|
;;; syntax highlighting, and a command midizap-mode-run, bound to C-c C-c,
|
|
;;; which lets you quickly launch a midizap session (with options) on the
|
|
;;; edited midizaprc file in an Emacs buffer.
|
|
|
|
;;; Install this anywhere where Emacs finds it (e.g., in the Emacs site-lisp
|
|
;;; directory -- usually under /usr/share/emacs/site-lisp on Un*x systems, or
|
|
;;; in any directory on the Emacs load-path) and load it in your .emacs as
|
|
;;; follows:
|
|
|
|
;;; (require 'midizap-mode)
|
|
|
|
;;; The mode also supports auto-completion of midizaprc keywords, to make this
|
|
;;; work you'll need the auto-complete package available from MELPA, please
|
|
;;; check: https://github.com/auto-complete/auto-complete.
|
|
|
|
;;; In the midizap-mode subdirectory you'll find some snippets to be used with
|
|
;;; yasnippet (https://github.com/joaotavora/yasnippet); to use these, copy
|
|
;;; the entire folder to your ~/.emacs.d/snippets directory.
|
|
|
|
;;; Code:
|
|
|
|
(require 'comint)
|
|
|
|
(defconst midizap-keywords
|
|
(list
|
|
"DEBUG_REGEX" "DEBUG_STROKES" "DEBUG_KEYS" "DEBUG_MIDI"
|
|
"MIDI_OCTAVE" "JACK_NAME" "JACK_PORTS"
|
|
"JACK_IN" "JACK_IN1" "JACK_IN2"
|
|
"JACK_OUT" "JACK_OUT1" "JACK_OUT2"
|
|
"PASSTHROUGH" "SYSTEM_PASSTHROUGH"
|
|
"RELEASE" "SHIFT" "SHIFT1" "SHIFT2" "SHIFT3" "SHIFT4"
|
|
"CLASS" "TITLE"
|
|
;; keysyms
|
|
|
|
))
|
|
|
|
;;;###autoload
|
|
(define-generic-mode 'midizap-mode
|
|
nil
|
|
midizap-keywords
|
|
'(("^[[:blank:]]*\\(#.*\\)" 1 'font-lock-comment-face t)
|
|
("[[:blank:]]+\\(#.*\\)" 1 'font-lock-comment-face t)
|
|
("^[[:blank:]]*\\[\\([^\n[]+\\)\\]\\(.*\\)"
|
|
1 'font-lock-variable-name-face)
|
|
("\\<\\(\\([Kk][Pp]:\\)?[A-Ga-g][#Bb]?-?[0-9]+\\|\\([Mm]\\|[Cc][Hh]\\|[Pp][Bb]\\|[Pp][Cc]\\|[Cc][Cc]\\|[Cc][Pp]\\)[0-9]*\\|XK_[A-Za-z_0-9]+\\(/[UDH]\\)?\\)\\>" 1 'default)
|
|
("\\<\\([0-9]+\\)\\>" 1 'font-lock-constant-face))
|
|
(list "\\.midizaprc\\'")
|
|
(list 'midizap-mode-setup-function)
|
|
"Generic mode for midizap configuration files.")
|
|
|
|
(defvar midizap-mode-keymap (make-sparse-keymap)
|
|
"Keymap for midizap-mode.")
|
|
|
|
(defvar midizap-command "midizap -drk ")
|
|
|
|
(defvar ac-sources)
|
|
|
|
(defvar midizap-mode-ac-source
|
|
'((candidates . midizap-keywords)))
|
|
|
|
(defun midizap-mode-run (command)
|
|
"Run the current midizaprc file with COMMAND in a comint buffer."
|
|
(interactive
|
|
(list
|
|
(let ((command (eval midizap-command)))
|
|
(read-string "Run midizap with: " command))))
|
|
(unless (equal command (eval midizap-command))
|
|
(setq midizap-command command))
|
|
(save-some-buffers)
|
|
(let* ((file (buffer-file-name))
|
|
(buf-name (concat "*" file "*")))
|
|
(with-current-buffer (get-buffer-create buf-name)
|
|
(erase-buffer)
|
|
(comint-mode)
|
|
(comint-exec
|
|
buf-name
|
|
file
|
|
shell-file-name
|
|
nil
|
|
(list "-c" (concat command " " file)))
|
|
(display-buffer buf-name))))
|
|
|
|
(define-key midizap-mode-keymap "\C-c\C-c" 'midizap-mode-run)
|
|
|
|
(defun midizap-mode-setup-function ()
|
|
"Custom setup function for midizap-mode."
|
|
(make-local-variable 'parse-sexp-ignore-comments)
|
|
(make-local-variable 'comment-start)
|
|
(make-local-variable 'comment-start-skip)
|
|
(make-local-variable 'comment-end)
|
|
(setq parse-sexp-ignore-comments t
|
|
comment-end ""
|
|
comment-start "# "
|
|
comment-start-skip "# *"
|
|
)
|
|
(if (boundp 'ac-sources)
|
|
(progn
|
|
(add-to-list 'ac-modes 'midizap-mode)
|
|
(add-to-list 'ac-sources 'midizap-mode-ac-source))
|
|
(message "You may want to install and use auto-complete"))
|
|
(use-local-map midizap-mode-keymap)
|
|
)
|
|
|
|
(provide 'midizap-mode)
|
|
|
|
;; End:
|
|
;;; midizap-mode.el ends here
|