¿Cómo filtro el contenido del anillo de cierre?

9

¿Es posible evitar el kill-ringalmacenamiento de espacios en blanco / líneas vacías? En este momento, después de hacer un par de cambios y luego ir, a browse-kill-ringmenudo veo algo como esto:

-------



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

-------

-------

¿Hay alguna manera de obligar a kill-ring a agregar solo contenido significativo?

kill-ring

— Ignacy Moryc
fuente

1

No es una respuesta, pero estoy usando helm-show-kill-ringy parece filtrar las entradas de anillo de matar en blanco. Sin embargo, todavía puedo tirar un montón de espacios en blanco, así que +1 para la pregunta.

— glucas

Parece ser lo más cercano que está incorporado kill-do-not-save-duplicates, lo que impide kill-newagregar lo mismo al anillo de matar dos veces seguidas.

— glucas

3

Aquí hay un enfoque para tratar con asesinatos en blanco (es decir, solo espacios en blanco). En lugar de filtrarlos por completo, esto permitirá a lo sumo una entrada en blanco en el anillo de matar. Cada nueva muerte verificará la cabeza del anillo de la muerte y la reemplazará si está en blanco.

(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)

Tenga en cuenta que estoy usando el mecanismo de asesoramiento Emacs 24.4+ aquí para filtrar los argumentos que eventualmente se pasan a kill-new.

El efecto es que todavía puedes matar y tirar un montón de espacios en blanco, pero si matas algo de espacio en blanco y luego matas algo más, la entrada de espacio en blanco se descartará.

— glucas
fuente

Puede optar por no agregar el insteda al anillo de matar si lo prefiere. Este enfoque funciona para kill, kill-ring-saveetc. Si tiene comandos que se agregan al anillo de matar sin llamar, kill-newentonces no funcionará, por supuesto.

— glucas

Este me lo resolvió. Creo que no uso ningún comando que agregue a kill ring sin kill-new, o al menos no noté ningún comportamiento extraño.

— Ignacy Moryc

0

Un problema es que cualquier comando puede modificar el, kill-ringpor lo que el único gancho lo suficientemente potente como para hacer esto es el post-command-hook. Esto es ineficiente, pero AFAIK es la única forma de hacerlo con rigor. Si eso te parece bien, puedes hacer esto:

(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)

En aras de la eficiencia, supongo que todos los comandos se agregan al kill-ring, esto es probablemente seguro, pero tenga en cuenta que una función puede insertar texto en cualquier lugar que desee en el kill-ring. Sin embargo, esto es raro, y estoy seguro de que no desea iterar sobre todo el anillo de matar en cada comando.

— PythonNut
fuente

Una forma un poco más eficiente de hacer esto podría ser limpiar el anillo de matar justo antes de tirarlo o navegarlo, ya sea a través del desacoplamiento o sus propios comandos.

— Sacha Chua

Pensé en eso, pero luego necesitaríamos una lista de todos los comandos que acceden al anillo de matar para tirar. Si alguien puede llegar a una lista, el resto sería fácil (por supuesto).

— PythonNut