Как мне закрыть в Emacs все буферы, кроме текущего? Похоже на функцию «Закрыть другие вкладки» в современных веб-браузерах?
92
Для более ручного подхода вы можете перечислить все буферы с помощью C-x C-b, пометить буферы в списке для удаления с помощью d, а затем использовать xдля их удаления.
Я также рекомендую заменить список-буфера с более продвинутой ibuffer: (global-set-key (kbd "C-x C-b") 'ibuffer)
. Вышеупомянутое будет работать с ibuffer, но вы также можете сделать это:
m(отметьте буфер, который вы хотите сохранить)
t(отметки переключателя)
D(уничтожьте все отмеченные буферы)
Я также использую этот фрагмент из Emacs Wiki, который еще больше упростит этот ручной подход:
;; Ensure ibuffer opens with point at the current buffer's entry.
(defadvice ibuffer
(around ibuffer-point-to-most-recent) ()
"Open ibuffer with cursor pointed to most recent buffer name."
(let ((recent-buffer-name (buffer-name)))
ad-do-it
(ibuffer-jump-to-buffer recent-buffer-name)))
(ad-activate 'ibuffer)
ibuffer
? @philsq
? ИспользуйтеC-h m
для изучения сочетаний клавиш, как и в любом другом режиме.Из EmacsWiki: Буферы уничтожения :
(defun kill-other-buffers () "Kill all other buffers." (interactive) (mapc 'kill-buffer (delq (current-buffer) (remove-if-not 'buffer-file-name (buffer-list)))))
Изменить : обновлено с учетом отзывов Жиля
источник
buffer-file-name
и поэтому вызовremove-if-not
в приведенном выше примере сохранит dired буферы (а также рабочий буфер, термические буферы, справочные буферы и т.д., все, что не обращается к файлу). Я не могу придумать простой тест, который бы закрыл как файловые буферы, так и dired буферы, вам понадобится в основном целый второй вызов mapc с другим тестом для dired буферов.(defun kill-other-buffers () "Kill all other buffers." (interactive) (mapc 'kill-buffer (delq (current-buffer) (remove-if-not '(lambda (x) (or (buffer-file-name x) (eq 'dired-mode (buffer-local-value 'major-mode x)))) (buffer-list)))))
cl-remove-if-not
наremove-if-not
работает, но при этом не убивает*helm..
буферыВ emacs нет возможности сделать это напрямую.
Вы можете написать для этого функцию. Следующее закроет все буферы:
источник
(delete (current-buffer) (buffer-list))
должен предоставить вам список буферов, который вы можете сопоставитьkill-buffer
и избежать уничтожения текущего буфера.Существует встроенная команда m- x
kill-some-buffers
(я использую 24.3.50). В моем графическом интерфейсе nextstep (не пробовал в терминале, но уверен, что он похож) вы можете затем утвердить, какие буферы убивать.источник
(defun only-current-buffer () (interactive) (let ((tobe-killed (cdr (buffer-list (current-buffer))))) (while tobe-killed (kill-buffer (car tobe-killed)) (setq tobe-killed (cdr tobe-killed)))))
Работает, как вы и ожидали.
И после прочтения ответа @Starkey, я думаю, будет лучше:
(defun only-current-buffer () (interactive) (mapc 'kill-buffer (cdr (buffer-list (current-buffer)))))
(buffer-list (current-buffer)) вернет список, содержащий все существующие буферы, с текущим буфером во главе списка.
Это мой первый ответ на StackOverflow. Надеюсь, это поможет :)
источник
buffer-list
изменилась ли спецификация с годами, но(buffer-list (current-buffer))
работать, как указывает ответ выше, НЕ будет работать. СделайтеC-h f buffer-list RET
для текущей спецификации.Я нашел это решение самым простым. Это удаляет все буферы, кроме текущего. Вы должны добавить этот код в свой
.emacs
файл(defun kill-other-buffers () "Kill all other buffers." (interactive) (mapc 'kill-buffer (delq (current-buffer) (buffer-list))))
Конечно, затем вы используете его M-x
kill-other-buffers
RET или вставляете в.emacs
файл следующий код, а затем просто нажимаетеC-xC-b(global-set-key (kbd "C-x C-b") 'kill-other-buffers)
источник
Несколько месяцев я использую crux-kill-other-buffers .
Но я хочу, чтобы удаленные буферы тоже были удалены. Ответы @ Euge и @ wenjun.yan решают эту проблему. Но он удалит специальные буферы (например, * git-credential-cache - daemon *, * scratch *, helm operation и т. Д.). Итак, я придумал это (текущее) решение.
(defun aza-kill-other-buffers () "Kill all buffers but current buffer and special buffers" (interactive) (dolist (buffer (delq (current-buffer) (buffer-list))) (let ((name (buffer-name buffer))) (when (and name (not (string-equal name "")) (/= (aref name 0) ?\s) (string-match "^[^\*]" name)) (funcall 'kill-buffer buffer)))))
Вдохновленный буферами сопоставления уничтожений . Вы можете добавить
condition
другие имена буфера для исключения, если хотите.Надеюсь, это поможет :)
источник
Вам также может понравиться этот - уничтожьте все буферы, кроме текущего, * Сообщения * и * царапины * (которые удобно иметь, я называю их «инструментарием»), также закройте избыточные окна, оставив вам одно окно, которое текущее буфер.
(defun my/kill-all-buffers-except-toolbox () "Kill all buffers except current one and toolkit (*Messages*, *scratch*). Close other windows." (interactive) (mapc 'kill-buffer (remove-if (lambda (x) (or (string-equal (buffer-name) (buffer-name x)) (string-equal "*Messages*" (buffer-name x)) (string-equal "*scratch*" (buffer-name x)))) (buffer-list))) (delete-other-windows))
источник
(string-equal (buffer-name) (buffer-name x))
то же самое(eq x (current-buffer))
, только менее эффективно. Остальноеor
можно упростить до(member (buffer-name x) '("*Messages*" "*scratch*"))
Вот чего вы хотите:
C-x 1
источник: https://blasphemousbits.wordpress.com/2007/05/04/learning-emacs-part-4-buffers-windows-and-frames/
источник