macro Emacs para generar una secuencia?

Question

Estaba leyendo este artículo sobre cómo crear mac vi: vi sequence macro y vi una macro útil para crear una secuencia en el búfer.

1.
2.
...
100.

En VI, el truco es que uno puede golpear ctrl-a lo largo de un número y se añadirá una a ella, por lo que este hizo la macro fácil. Quiero poder hacer lo mismo en emacs.

Answer 1

Si está utilizando Emacs 23 (y tal vez 22?), Utilice kmacro-insert-counter que está vinculado a C-x C-k TAB de forma predeterminada. Así, por tu ejemplo, que haría:

C-x (C-x C-k TAB . RET C-x)

así que empieza macro, por inserción contador seguido de, nueva línea, macro extremo ''. Luego C-x e e e e e e e etc. O M-1 0 0 C-x e para obtener 100 de ellos.

EDIT:

olvidó mencionar que puede poner el contador a un valor inicial también. Por ejemplo, para comenzar en 1 en lugar de 0, haga M-1 C-x C-k C-c.

Y si no desea que el contador se incremente en un punto en particular, prefímalo con C-u. Por supuesto, las teclas se vuelven un poco ridículas en este punto, por lo que normalmente ato una clave para insertar-pero-no-incrementar.

Answer 2

Aquí hay un extension que puede ayudar.

Answer 3

Al lado de scottfrazer's answer, hay otra manera de crear una secuencia de números con CUA mode que puede serle de mucha ayuda cuando edite contenido existente. Ver Mark Mansour's screencast on Emacs Column Editing desde la posición 2:30.

Answer 4

Emacs 23 admite fragmentos elisp en el texto de reemplazo de replace-regexp.

frecuencia me defino macros de teclado que siguen este patrón:

• Copiar un bloque de texto
• Vaya a un número que yo quiero para incrementar en el bloque copiado de texto con isearch
• Active la marque y mueva el punto para definir una región que abarque el número
• Mx replace-regexp
• En el mensaje "Reemplazar regexp", ingrese \([0-9]+\) para capturar un grupo o f uno o más dígitos
• En la "expresión regular Reemplazar ([0-9] +) con:", introduzca \,(1+ \#1), en donde , indica que una forma elisp para sustituir sigue, 1+ es una función de incremento, y \#1 es el primer texto de coincidencia capturado, interpretado como un número.

Después de tomar un minuto para definir la macro de teclado, esto me permite tener casi la conveniencia de cortar y pegar para generar un montón de bloques de código casi idénticos, como por case declaraciones.

Tenga en cuenta que esta técnica se puede adaptar fácilmente a, p. números dobles (\,(* 2 \#1)) o lo que sea. Incluso puede usarlo para sustituir el siguiente elemento en una secuencia arbitraria mediante el uso de una combinación de 'position y 'nth, pero no entraré en eso ahora :).

Answer 5

Hay también:

C-u M-! jot -s '.C-q C-j' 10

No es pura elisp, pero tiene el mismo efecto. Podría escribir una macro con nombre para ejecutarlo por usted.

Answer 6

Los que sienten que hay demasiados trucos para memorizar podrían encontrar la adquisición de algunos elisp más rentable:

 
M-: (dotimes (i 20) (insert (format "%2d.\n" (1+ i)))) 

Answer 7

Si se enciende el modo menor CUA (cua-mode), puede seleccionar una columna de texto y luego llénelo con una secuencia de números utilizando cua-sequence-rectangle (vinculado a M-n de forma predeterminada).

Esto es lo mismo que se menciona en el video al que se conectó Török Gábor, pero ahora está escrito aquí, por lo que no tiene que mirar todo el video a menos que lo desee. Es un buen video

Answer 8

Desde el lanzamiento 24.3 de Emacs (I creen realmente desde el lanzamiento 24.0), la secuencia de pulsaciones de teclas se ha simplificado:

<F3> <F3> . <ENTER> <F4>

luego repetir <F4> clave repetirá la macro.

El truco es que, después de haber comenzado una macro con <F3>, una segunda pulsación de tecla <F3> insertará el valor actual del contador de la macro de teclado en la memoria intermedia, e incrementa el contador en 1.

Otros trucos:

• <F3> C-u 2 <F3> . <ENTER> <F4> incrementará con 2 (en lugar de +1)
• C-u 100 <F3> <F3> . <ENTER> C-u 50 <F4> comenzará a las 100 y terminan a 149
• C-x C-k C-f %03d <ENTER> <F3> <F3> . <ENTER> <F4> se rellenará con cero como "000"

Fuente: Keyboard Macro Counter sección en el manual de Emacs.

Answer 9

Puede utilizar shell-command-on-region lo contrario:

C-u M-! seq 1 100|xargs -I{} echo {}"." 

Answer 10

He aquí una definición de función simple para esto:

(defun insert-range (START END &optional STEP FORMAT) 
    "Inserts a range of integers from START to END with STEP (default to 1) 
in a given format (default to \"\\n%d\")" 
    (interactive 
    (list (read-number "Start: " 1) 
     (read-number "End: " 10) 
     (read-number "Step: " 1) 
     (read-string "Format (default to \"\\n%d\"): " nil nil "\n%d"))) 
    (dotimes (i (1+ (/ (- END START) STEP))) 
    (insert (format FORMAT (+ START (* i STEP)))) 
) 
)