ปิดบัฟเฟอร์ทั้งหมดนอกเหนือจากบัฟเฟอร์ปัจจุบันใน Emacs

ฉันจะปิดบัฟเฟอร์ทั้งหมดยกเว้นบัฟเฟอร์ปัจจุบันใน Emacs ได้อย่างไร คล้ายกับคุณลักษณะ "ปิดแท็บอื่น ๆ " ในเว็บเบราว์เซอร์สมัยใหม่หรือไม่

สำหรับวิธีการแบบแมนนวลเพิ่มเติมคุณสามารถแสดงรายการบัฟเฟอร์ทั้งหมดด้วย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)

จากEmacsWiki: Killing Buffers :

(defun kill-other-buffers ()
    "Kill all other buffers."
    (interactive)
    (mapc 'kill-buffer 
          (delq (current-buffer) 
                (remove-if-not 'buffer-file-name (buffer-list)))))

แก้ไข : อัปเดตพร้อมข้อเสนอแนะจาก Gilles

ไม่มีวิธีโดยตรงใน emacs ที่จะทำสิ่งนี้

คุณสามารถเขียนฟังก์ชันเพื่อทำสิ่งนี้ได้ สิ่งต่อไปนี้จะปิดบัฟเฟอร์ทั้งหมด:

(ยกเลิกบัฟเฟอร์ปิดทั้งหมด ()
  (เชิงโต้ตอบ)
  (mapc 'kill-buffer (รายการบัฟเฟอร์)))

มีคำสั่งในตัวm- x kill-some-buffers(ฉันใช้ 24.3.50) ในขั้นตอนถัดไปของฉัน (ไม่ได้ลองในเทอร์มินัล แต่แน่ใจว่ามันคล้ายกัน) จากนั้นคุณสามารถอนุมัติบัฟเฟอร์ที่จะฆ่าได้

 (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 หวังว่าจะช่วยได้ :)

ฉันพบว่าวิธีนี้เป็นวิธีที่ง่ายที่สุด ซึ่งจะลบทุกบัฟเฟอร์ยกเว้นบัฟเฟอร์ปัจจุบัน คุณต้องเพิ่มรหัสนี้ใน.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มาหลายเดือนแล้ว

แต่ฉันต้องการลบบัฟเฟอร์ dired ด้วย คำตอบของ @ 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))

นี่คือสิ่งที่คุณต้องการ:

C-x 1

แหล่งที่มา: https://blasphemousbits.wordpress.com/2007/05/04/learning-emacs-part-4-buffers-windows-and-frames/