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)

40
um.el
View file

@ -38,7 +38,6 @@
(require 'project) (require 'project)
(require 'dired) (require 'dired)
(require 'um-mode)
(defgroup um nil (defgroup um nil
"(u)ltralight (m)arkdown zettelkasten." "(u)ltralight (m)arkdown zettelkasten."
@ -378,7 +377,7 @@ Returns the value of next-file computed by um next
) )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; um-minor-mode ;; um-minor-mode : in markdown files under markdown-mode
(defvar-keymap um-minor-mode-map (defvar-keymap um-minor-mode-map
:doc "Keymap for `um-minor-mode'." :doc "Keymap for `um-minor-mode'."
@ -387,6 +386,7 @@ Returns the value of next-file computed by um next
"M-r t" #'um-tag-dwim "M-r t" #'um-tag-dwim
) )
;;;###autoload
(define-minor-mode um-minor-mode (define-minor-mode um-minor-mode
"Minor mode for `um' commands. "Minor mode for `um' commands.
\\{um-minor-mode-map}" \\{um-minor-mode-map}"
@ -401,4 +401,40 @@ Returns the value of next-file computed by um next
(font-lock-flush)) (font-lock-flush))
) )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; um-mode : in .um files
(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}
"
(if um-mode
(progn
(read-only-mode))
(read-only-mode -1)))
(provide 'um) (provide 'um)