all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* Preventing inadvertent global modifications
@ 2023-09-12 16:47 Max Nikulin
  2023-09-13  8:02 ` Ihor Radchenko
  0 siblings, 1 reply; 5+ messages in thread
From: Max Nikulin @ 2023-09-12 16:47 UTC (permalink / raw)
  To: emacs-orgmode

Hi,

Yesterday, when I was going to commit changes after editing several 
headings in different places of an Org file, I was surprised by huge 
diff with hundreds of chunks. Tags spread across the whole file were 
adjusted by one or tow spaces. Probably I just accidentally hit C-u 
before setting a tag to a new heading by C-c C-q. Of course, I did not 
noticed it immediately. I managed to create a commit with real changes 
without noise due to tags realignment. However I would like to prevent 
similar issues in future.

I can add a prompt for a particular argument of a function by

(defun nm-safe-org-set-tags-command (&optional arg)
   "Call `org-set-tags-command' requiring to confirm
realigning of all tags."
   (interactive "P")
   (cond
    ((and (equal '(4) arg) (not (yes-or-no-p "Realign all tags? "))))
    (t (call-interactively #'org-set-tags-command))))

(add-hook 'org-mode-hook
	  (lambda ()
	    (define-key org-mode-map (kbd "C-c C-q") 
#'nm-safe-org-set-tags-command)))

The function can be made a bit smarter by adding minimal file size 
threshold.

However almost certainly there are more function "destructive" in a 
similar way. Is there a more general approach to make commands safer in 
respect to global modifications?



^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2023-09-15 11:01 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2023-09-12 16:47 Preventing inadvertent global modifications Max Nikulin
2023-09-13  8:02 ` Ihor Radchenko
2023-09-13 10:50   ` Max Nikulin
2023-09-14 12:56     ` Ihor Radchenko
2023-09-15 11:00       ` Max Nikulin

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.