add revert-buffer-all globally
This commit is contained in:
parent
998811c357
commit
e5826cc035
|
|
@ -0,0 +1,32 @@
|
|||
;;; revert-buffer-all-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
|
||||
;;
|
||||
;;; Code:
|
||||
|
||||
(add-to-list 'load-path (directory-file-name
|
||||
(or (file-name-directory #$) (car load-path))))
|
||||
|
||||
|
||||
;;;### (autoloads nil "revert-buffer-all" "revert-buffer-all.el"
|
||||
;;;;;; (0 0 0 0))
|
||||
;;; Generated autoloads from revert-buffer-all.el
|
||||
|
||||
(autoload 'revert-buffer-all "revert-buffer-all" "\
|
||||
Refresh all open buffers from their respective files.
|
||||
|
||||
Buffers which no longer exist are closed.
|
||||
|
||||
This can be useful when updating or checking out branches outside of Emacs." t nil)
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil nil ("revert-buffer-all-pkg.el") (0 0 0 0))
|
||||
|
||||
;;;***
|
||||
|
||||
;; Local Variables:
|
||||
;; version-control: never
|
||||
;; no-byte-compile: t
|
||||
;; no-update-autoloads: t
|
||||
;; coding: utf-8
|
||||
;; End:
|
||||
;;; revert-buffer-all-autoloads.el ends here
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
(define-package "revert-buffer-all" "20230109.536" "Revert all open buffers"
|
||||
'((emacs "24.3"))
|
||||
:commit "08e90d2d75f5d5900ca2a0d2670592bcf2b2d68f" :authors
|
||||
'(("Campbell Barton" . "ideasman42@gmail.com"))
|
||||
:maintainers
|
||||
'(("Campbell Barton" . "ideasman42@gmail.com"))
|
||||
:maintainer
|
||||
'("Campbell Barton" . "ideasman42@gmail.com")
|
||||
:url "https://codeberg.org/ideasman42/emacs-buffer-revert-all")
|
||||
;; Local Variables:
|
||||
;; no-byte-compile: t
|
||||
;; End:
|
||||
|
|
@ -0,0 +1,120 @@
|
|||
;;; revert-buffer-all.el --- Revert all open buffers -*- lexical-binding: t -*-
|
||||
|
||||
;; SPDX-License-Identifier: GPL-2.0-or-later
|
||||
;; Copyright (C) 2021 Campbell Barton
|
||||
|
||||
;; Author: Campbell Barton <ideasman42@gmail.com>
|
||||
|
||||
;; URL: https://codeberg.org/ideasman42/emacs-buffer-revert-all
|
||||
;; Version: 0.1
|
||||
;; Package-Requires: ((emacs "24.3"))
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Utility to revert all buffers, useful to run after external
|
||||
;; changes to a project have been made such as applying a patch
|
||||
;; or switching branches.
|
||||
;;
|
||||
|
||||
;;; Usage:
|
||||
|
||||
;; ;; Bind the keys
|
||||
;; (global-set-key (kbd "C-S-M-r") 'revert-buffer-all)
|
||||
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile
|
||||
;; For `pcase-dolist'.
|
||||
(require 'pcase))
|
||||
|
||||
;;;###autoload
|
||||
(defun revert-buffer-all ()
|
||||
"Refresh all open buffers from their respective files.
|
||||
|
||||
Buffers which no longer exist are closed.
|
||||
|
||||
This can be useful when updating or checking out branches outside of Emacs."
|
||||
(interactive)
|
||||
(let* ((filename-and-buffer-list
|
||||
;; Pairs of '(filename . buf)'.
|
||||
(let ((temp-list nil))
|
||||
(dolist (buf (buffer-list))
|
||||
(let ((filename (buffer-file-name buf)))
|
||||
(when filename
|
||||
(push (cons filename buf) temp-list))))
|
||||
temp-list))
|
||||
|
||||
(message-prefix "Buffer Revert All:")
|
||||
(count (length filename-and-buffer-list))
|
||||
(count-final 0)
|
||||
(count-close 0)
|
||||
(count-error 0)
|
||||
;; Keep text at a fixed width when redrawing.
|
||||
(format-count (format "%%%dd" (length (number-to-string count))))
|
||||
(format-text
|
||||
(concat message-prefix " reverting [" format-count " of " format-count "] %3d%%: %s"))
|
||||
(index 1))
|
||||
|
||||
(message "%s beginning with %d buffers..." message-prefix count)
|
||||
|
||||
(pcase-dolist (`(,filename . ,buf) filename-and-buffer-list)
|
||||
;; Revert only buffers containing files, which are not modified;
|
||||
;; do not try to revert non-file buffers such as '*Messages*'.
|
||||
(message format-text index count (round (* 100 (/ (float index) count))) filename)
|
||||
|
||||
(cond
|
||||
((file-exists-p filename)
|
||||
;; If the file exists, revert the buffer.
|
||||
(cond
|
||||
((with-demoted-errors "Error: %S"
|
||||
(with-current-buffer buf
|
||||
(let ((no-undo (eq buffer-undo-list t)))
|
||||
|
||||
;; Disable during revert.
|
||||
(unless no-undo
|
||||
(setq buffer-undo-list t)
|
||||
(setq pending-undo-list nil))
|
||||
|
||||
(unwind-protect
|
||||
(revert-buffer :ignore-auto :noconfirm)
|
||||
|
||||
;; Enable again (always run).
|
||||
(unless no-undo
|
||||
;; It's possible a plugin loads undo data from disk,
|
||||
;; check if this is still unset.
|
||||
(when (and (eq buffer-undo-list t) (null pending-undo-list))
|
||||
(setq buffer-undo-list nil))))))
|
||||
t)
|
||||
(setq count-final (1+ count-final)))
|
||||
(t
|
||||
(setq count-error (1+ count-error)))))
|
||||
|
||||
(t
|
||||
;; If the file doesn't exist, kill the buffer.
|
||||
;; No query done when killing buffer.
|
||||
(let ((kill-buffer-query-functions nil))
|
||||
(message "%s closing non-existing file buffer: %s" message-prefix buf)
|
||||
(kill-buffer buf)
|
||||
(setq count-close (1+ count-close)))))
|
||||
|
||||
(setq index (1+ index)))
|
||||
(message
|
||||
(concat
|
||||
message-prefix (format " finished with %d buffer(s)" count-final)
|
||||
(cond
|
||||
((zerop count-close)
|
||||
"")
|
||||
(t
|
||||
(format ", %d closed" count-close)))
|
||||
(cond
|
||||
((zerop count-error)
|
||||
"")
|
||||
(t
|
||||
(format ", %d error (see message buffer)" count-error)))))))
|
||||
|
||||
(provide 'revert-buffer-all)
|
||||
;; Local Variables:
|
||||
;; fill-column: 99
|
||||
;; indent-tabs-mode: nil
|
||||
;; End:
|
||||
;;; revert-buffer-all.el ends here
|
||||
|
|
@ -13,7 +13,7 @@
|
|||
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) ; this goes in chemacs2 init -- DO NOT UNCOMMENT
|
||||
(package-initialize) ; this goes in chemacs2 init -- DO NOT UNCOMMENT
|
||||
(add-to-list 'package-selected-packages
|
||||
'(centaur-tabs scratch persistent-scratch persp-mode rainbow-mode rainbow-delimiters markdown-mode focus zoom popwin dired-single diredfl doominhibitinhibit-modeline helpful helm helm-org dired-rainbow dired-rainbow-listing dired-single dash s origami modus-themes use-package)
|
||||
'(revert-buffer-all centaur-tabs scratch persistent-scratch persp-mode rainbow-mode rainbow-delimiters markdown-mode focus zoom popwin dired-single diredfl doominhibitinhibit-modeline helpful helm helm-org dired-rainbow dired-rainbow-listing dired-single dash s origami modus-themes use-package)
|
||||
)
|
||||
(when (not kmn/is-dayjob)
|
||||
(add-to-list 'package-selected-packages
|
||||
|
|
|
|||
|
|
@ -0,0 +1,32 @@
|
|||
;;; revert-buffer-all-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-
|
||||
;;
|
||||
;;; Code:
|
||||
|
||||
(add-to-list 'load-path (directory-file-name
|
||||
(or (file-name-directory #$) (car load-path))))
|
||||
|
||||
|
||||
;;;### (autoloads nil "revert-buffer-all" "revert-buffer-all.el"
|
||||
;;;;;; (0 0 0 0))
|
||||
;;; Generated autoloads from revert-buffer-all.el
|
||||
|
||||
(autoload 'revert-buffer-all "revert-buffer-all" "\
|
||||
Refresh all open buffers from their respective files.
|
||||
|
||||
Buffers which no longer exist are closed.
|
||||
|
||||
This can be useful when updating or checking out branches outside of Emacs." t nil)
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil nil ("revert-buffer-all-pkg.el") (0 0 0 0))
|
||||
|
||||
;;;***
|
||||
|
||||
;; Local Variables:
|
||||
;; version-control: never
|
||||
;; no-byte-compile: t
|
||||
;; no-update-autoloads: t
|
||||
;; coding: utf-8
|
||||
;; End:
|
||||
;;; revert-buffer-all-autoloads.el ends here
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
(define-package "revert-buffer-all" "20230109.536" "Revert all open buffers"
|
||||
'((emacs "24.3"))
|
||||
:commit "08e90d2d75f5d5900ca2a0d2670592bcf2b2d68f" :authors
|
||||
'(("Campbell Barton" . "ideasman42@gmail.com"))
|
||||
:maintainers
|
||||
'(("Campbell Barton" . "ideasman42@gmail.com"))
|
||||
:maintainer
|
||||
'("Campbell Barton" . "ideasman42@gmail.com")
|
||||
:url "https://codeberg.org/ideasman42/emacs-buffer-revert-all")
|
||||
;; Local Variables:
|
||||
;; no-byte-compile: t
|
||||
;; End:
|
||||
|
|
@ -0,0 +1,120 @@
|
|||
;;; revert-buffer-all.el --- Revert all open buffers -*- lexical-binding: t -*-
|
||||
|
||||
;; SPDX-License-Identifier: GPL-2.0-or-later
|
||||
;; Copyright (C) 2021 Campbell Barton
|
||||
|
||||
;; Author: Campbell Barton <ideasman42@gmail.com>
|
||||
|
||||
;; URL: https://codeberg.org/ideasman42/emacs-buffer-revert-all
|
||||
;; Version: 0.1
|
||||
;; Package-Requires: ((emacs "24.3"))
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Utility to revert all buffers, useful to run after external
|
||||
;; changes to a project have been made such as applying a patch
|
||||
;; or switching branches.
|
||||
;;
|
||||
|
||||
;;; Usage:
|
||||
|
||||
;; ;; Bind the keys
|
||||
;; (global-set-key (kbd "C-S-M-r") 'revert-buffer-all)
|
||||
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile
|
||||
;; For `pcase-dolist'.
|
||||
(require 'pcase))
|
||||
|
||||
;;;###autoload
|
||||
(defun revert-buffer-all ()
|
||||
"Refresh all open buffers from their respective files.
|
||||
|
||||
Buffers which no longer exist are closed.
|
||||
|
||||
This can be useful when updating or checking out branches outside of Emacs."
|
||||
(interactive)
|
||||
(let* ((filename-and-buffer-list
|
||||
;; Pairs of '(filename . buf)'.
|
||||
(let ((temp-list nil))
|
||||
(dolist (buf (buffer-list))
|
||||
(let ((filename (buffer-file-name buf)))
|
||||
(when filename
|
||||
(push (cons filename buf) temp-list))))
|
||||
temp-list))
|
||||
|
||||
(message-prefix "Buffer Revert All:")
|
||||
(count (length filename-and-buffer-list))
|
||||
(count-final 0)
|
||||
(count-close 0)
|
||||
(count-error 0)
|
||||
;; Keep text at a fixed width when redrawing.
|
||||
(format-count (format "%%%dd" (length (number-to-string count))))
|
||||
(format-text
|
||||
(concat message-prefix " reverting [" format-count " of " format-count "] %3d%%: %s"))
|
||||
(index 1))
|
||||
|
||||
(message "%s beginning with %d buffers..." message-prefix count)
|
||||
|
||||
(pcase-dolist (`(,filename . ,buf) filename-and-buffer-list)
|
||||
;; Revert only buffers containing files, which are not modified;
|
||||
;; do not try to revert non-file buffers such as '*Messages*'.
|
||||
(message format-text index count (round (* 100 (/ (float index) count))) filename)
|
||||
|
||||
(cond
|
||||
((file-exists-p filename)
|
||||
;; If the file exists, revert the buffer.
|
||||
(cond
|
||||
((with-demoted-errors "Error: %S"
|
||||
(with-current-buffer buf
|
||||
(let ((no-undo (eq buffer-undo-list t)))
|
||||
|
||||
;; Disable during revert.
|
||||
(unless no-undo
|
||||
(setq buffer-undo-list t)
|
||||
(setq pending-undo-list nil))
|
||||
|
||||
(unwind-protect
|
||||
(revert-buffer :ignore-auto :noconfirm)
|
||||
|
||||
;; Enable again (always run).
|
||||
(unless no-undo
|
||||
;; It's possible a plugin loads undo data from disk,
|
||||
;; check if this is still unset.
|
||||
(when (and (eq buffer-undo-list t) (null pending-undo-list))
|
||||
(setq buffer-undo-list nil))))))
|
||||
t)
|
||||
(setq count-final (1+ count-final)))
|
||||
(t
|
||||
(setq count-error (1+ count-error)))))
|
||||
|
||||
(t
|
||||
;; If the file doesn't exist, kill the buffer.
|
||||
;; No query done when killing buffer.
|
||||
(let ((kill-buffer-query-functions nil))
|
||||
(message "%s closing non-existing file buffer: %s" message-prefix buf)
|
||||
(kill-buffer buf)
|
||||
(setq count-close (1+ count-close)))))
|
||||
|
||||
(setq index (1+ index)))
|
||||
(message
|
||||
(concat
|
||||
message-prefix (format " finished with %d buffer(s)" count-final)
|
||||
(cond
|
||||
((zerop count-close)
|
||||
"")
|
||||
(t
|
||||
(format ", %d closed" count-close)))
|
||||
(cond
|
||||
((zerop count-error)
|
||||
"")
|
||||
(t
|
||||
(format ", %d error (see message buffer)" count-error)))))))
|
||||
|
||||
(provide 'revert-buffer-all)
|
||||
;; Local Variables:
|
||||
;; fill-column: 99
|
||||
;; indent-tabs-mode: nil
|
||||
;; End:
|
||||
;;; revert-buffer-all.el ends here
|
||||
Loading…
Reference in New Issue