procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

project-kill-buffers can display list of buffers to kill

Browse source 
* lisp/progmodes/project.el
(project-kill-buffers-display-buffer-list): Option to toggle
temporarily display of the list of buffers to kill when calling
project-kill-buffers
(project-kill-buffers): Handle
project-kill-buffers-display-buffer-list option (bug#52148).
This commit is contained in:
Matthias Meulien 2021-11-29 16:42:02 +01:00 • committed by Lars Ingebrigtsen
parent 4de13ef147
commit 0d2f184a11
2 changed files with 38 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
etc/NEWS
View file

@ -427,6 +427,10 @@ it with new 'term-{faint,italic,slow-blink,fast-blink}' faces.
*** 'project-find-file' and 'project-or-external-find-file' now accept
a prefix argument which is interpreted to mean "include all files".
*** 'project-kill-buffers' can display the list of buffers to kill.
Customize the user option 'project-kill-buffers-display-buffer-list'
to enable the display of the buffer list.
+++
*** New command 'xref-go-forward'.
It is bound to 'C-M-,' and jumps to the location where 'xref-go-back'

38
lisp/progmodes/project.el
View file

@ -1210,6 +1210,15 @@ current project, it will be killed."
:group 'project
:package-version '(project . "0.6.0"))
(defcustom project-kill-buffers-display-buffer-list nil
"Non-nil to display list of buffers to kill before killing project buffers.
Used by `project-kill-buffers'."
:type 'boolean
:version "29.1"
:group 'project
:package-version '(project . "0.8.1")
:safe #'booleanp)
(defun project--buffer-list (pr)
"Return the list of all buffers in project PR."
(let ((conn (file-remote-p (project-root pr)))
@ -1276,14 +1285,35 @@ NO-CONFIRM is always nil when the command is invoked
interactively."
(interactive)
(let* ((pr (project-current t))
(bufs (project--buffers-to-kill pr)))
(bufs (project--buffers-to-kill pr))
(query-user (lambda ()
(yes-or-no-p
(format "Kill %d buffers in %s? "
(length bufs)
(project-root pr))))))
(cond (no-confirm
(mapc #'kill-buffer bufs))
((null bufs)
(message "No buffers to kill"))
((yes-or-no-p (format "Kill %d buffers in %s? "
(length bufs)
(project-root pr)))
(project-kill-buffers-display-buffer-list
(when
(with-current-buffer-window
(get-buffer-create "*Buffer List*")
`(display-buffer--maybe-at-bottom
(dedicated . t)
(window-height . (fit-window-to-buffer))
(preserve-size . (nil . t))
(body-function
. ,#'(lambda (_window)
(list-buffers-noselect nil bufs))))
#'(lambda (window _value)
(with-selected-window window
(unwind-protect
(funcall query-user)
(when (window-live-p window)
(quit-restore-window window 'kill))))))
(mapc #'kill-buffer bufs)))
((funcall query-user)
(mapc #'kill-buffer bufs)))))