bth/um-mode
Watch
1
Fork
You've already forked um-mode
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

move um-mode into main feature

Browse source
This commit is contained in:
bth 2026-05-19 14:15:56 -07:00
commit a2d9f4e601
2 changed files with 38 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

34
um-mode.el
View file

@ -1,34 +0,0 @@
;;; 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
)
;;;###autoload
(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)
)
(provide 'um-mode)