Làm cách nào để lọc nội dung kill-ring?

Có thể ngăn chặn kill-ringlưu trữ khoảng trắng / dòng trống? Ngay bây giờ sau khi tôi thực hiện một vài thay đổi và sau đó đi đến browse-kill-ringtôi thường thấy một cái gì đó như thế này:

-------



-------
   merchant_uuid: "some_uuid"
-------
   it "creates a webhook" do
-------

-------

-------

Có cách nào để buộc kill-ring chỉ nối thêm nội dung có ý nghĩa không?

Đây là một cách tiếp cận để xử lý các khoảng trống (tức là chỉ khoảng trắng). Thay vì lọc chúng hoàn toàn, điều này sẽ cho phép nhiều nhất một mục trống trong vòng khử. Mỗi kill mới sẽ kiểm tra phần đầu của kill-ring và thay thế nó nếu nó trống.

(defun my/replace-blank-kill (args)
  (let ((string (car args))
        (replace (cdr args))
        (last (car-safe kill-ring)))
    (when (and last (string-blank-p last))
      (setq replace t))
    (list string replace)))

(advice-add 'kill-new :filter-args #'my/replace-blank-kill)

Lưu ý rằng tôi đang sử dụng cơ chế tư vấn Emacs 24.4+ ở đây để lọc các đối số mà cuối cùng được chuyển đến kill-new.

Hiệu quả là bạn vẫn có thể giết và lấy một loạt khoảng trắng, nhưng nếu bạn giết một khoảng trắng nào đó và sau đó giết một thứ khác, mục nhập khoảng trắng sẽ bị loại bỏ.

Một vấn đề là bất kỳ lệnh nào cũng có thể sửa đổi, kill-ringvì vậy hook duy nhất đủ mạnh để thực hiện điều này là post-command-hook. Điều này là không hiệu quả, nhưng AFAIK là cách duy nhất để làm điều này với sự nghiêm ngặt. Nếu điều đó có vẻ tốt với bạn, bạn có thể làm điều này:

(defun kill-ring-clean-whitespace-only ()
  (when (string-match "^[[:space:]]*$" (car kill-ring))
    (setq kill-ring (cdr kill-ring))))

(add-hook 'post-command-hook #'kill-ring-clean-whitespace-only)

Vì mục đích hiệu quả, tôi giả sử rằng tất cả các lệnh nối vào kill-ring, điều này có thể an toàn, nhưng lưu ý rằng một chức năng có thể chèn văn bản bất cứ nơi nào chúng muốn vào kill-ring. Tuy nhiên, điều này rất hiếm và tôi chắc chắn rằng bạn không muốn lặp lại toàn bộ vòng tiêu diệt trên mỗi lệnh.