37 lines
1.1 KiB
EmacsLisp
37 lines
1.1 KiB
EmacsLisp
;;; um-mode.el -*- lexical-binding: t -*-
|
|
|
|
(defun um-inhibit-read-only (cmd &optional args)
|
|
(let ((inhibit-read-only t))
|
|
(apply cmd args)))
|
|
|
|
(defun um-drag-stuff-up () (interactive) (um-inhibit-read-only 'drag-stuff-up '(1)))
|
|
(defun um-drag-stuff-down () (interactive) (um-inhibit-read-only 'drag-stuff-down '(1)))
|
|
(defun um-kill-line () (interactive) (um-inhibit-read-only 'kill-line))
|
|
(defun um-tag-dwim-inhibit-read-only (arg) (interactive "p")
|
|
(um-inhibit-read-only 'um-tag-dwim (list arg)))
|
|
|
|
;; NOTE: define-derived-mode defines a sparse keymap with the parent mode. But
|
|
;; we can prefill it:
|
|
(defvar-keymap um-mode-map
|
|
:doc "Keymap for um-mode."
|
|
"n" 'next-line
|
|
"p" 'previous-line
|
|
"M-p" 'um-drag-stuff-up
|
|
"M-n" 'um-drag-stuff-down
|
|
"M-k" 'um-kill-line
|
|
"t" 'um-tag-dwim-inhibit-read-only
|
|
)
|
|
|
|
(define-derived-mode um-mode special-mode "um-mode"
|
|
"major mode for *.um file lists. Mostly `special-mode' with a few more commands.
|
|
|
|
\\{um-mode-map}
|
|
"
|
|
(read-only-mode)
|
|
(setq-local mode-line-show-line-column nil)
|
|
)
|
|
|
|
;;;###autoload
|
|
(add-to-list 'auto-mode-alist '("\\.um\\'" . um-mode))
|
|
|
|
(provide 'um-mode)
|