Lanzadores interactivos en Emacs: Ido y Helm

Me cuento entre aquellos a quienes no les gusta el aspecto por defecto de Ido, donde la lista interactiva se despliega en horizontal (un poco al estilo de la conocida aplicación dmenu). Es curioso, pero a mí esa manera de mostrar los candidatos pasando como en desfile me resulta confusa y mareante. Por suerte, contamos con el ido-vertical-mode, también instalable desde el repositorio Melpa. Mi configuración se parece a ésta:

(require 'ido-vertical-mode)
(ido-vertical-mode 1)

A lo que le añado esta variable para navegar por Ido (por cualquier Ido que se abra) con las teclas de arriba/abajo y las secuencias C-n / C-p, indistintamente:

(setq ido-vertical-define-keys 'C-n-C-p-up-and-down)

Una cosa muy grata de este lanzador es la facilidad con que podemos crearnos nuestras propias versiones para ejecutar acciones personalizadas. Eso ya va en gustos y necesidad. En mi caso, cada vez que quiero tener a mano una lista rápida sobre la que ejecutar determinada acción, sin más adornos, requiero sin pensármelo dos veces a los fiables Ido. Y tengo definidos unos cuantos. La estructura, no obstante, de lo que escribo a la hora de crear uno nuevo casi siempre es:

1. (Si es necesario) definir una variable que tenga como valor una lista de cosas.
2. Crear una función que (re)genere la lista a fin de entregársela a Ido y que él la pueda gestionar. Aquí suele ser muy útil contar con una expresión mapcar rondando por en cuerpo de la función.
3. La función de Ido propiamente dicha, que despliega la lista anterior y ejecuta una determinada acción sobre el candidato escogido.

Un ejemplo de lo dicho lo tenemos en este Ido que me escribí hace no mucho para lanzar aplicaciones externas en Exwm. Primero, la función que genera la lista de aplicaciones, actualizada:

(defun crea-lista-programas ()
  (interactive)
  (seq-mapcat
   (lambda (bin)
     (directory-files bin nil "^[^.]"))
   exec-path))

Y a continuación el lanzador Ido, que ejecuta el comando start-process-shell-command sobre la aplicación-candidata seleccionada.

(defun ido-lanzador (comando)
  (interactive  (list (ido-completing-read "$: " (crea-lista-programas) nil t)))
  (start-process-shell-command comando nil comando))

Rápido, limpio y eficaz. Son las mayores virtudes del entrañable, aunque no suficientemente conocido Ido Mode.

Una maravilla, para buscar archivos y directorios en un periquete mediante el comando locate. La acción por defecto es, naturalmente, visitar el archivo seleccionado. Pero el menú de acciones secundarias es de lo más prodigo y prolijo. Destaco, por su utilidad, cosas como poder visitar el directorio en que está el archivo, adjuntar el archivo a un correo electrónico, introducirlo como enlace en un documento de Org, compararlo con otro fichero o buscar contenidos de pdf con pdfgrep. Pero hay muchas más.

Esta es otra de mis indispensables. Como sólo tiene sentido llamarla cuando estamos dentro del navegador de archivos de Emacs, Dired, lo asocié sin pensármelo dos veces a un atajo de éste último, concretamente a la letra «f»:

(with-eval-after-load 'dired
    (define-key dired-mode-map (kbd "f") 'helm-find-files))

Es ideal para buscar y acotar archivos en directorios extensos de Dired. Las acciones secundarias (de nuevo, muchísimas) a que más recurro son las de renombrado masivo (incluso con numeración añadida) o las de incluir el archivo que tiene el foco como adjunto a un correo electrónico. Para renombrar y numerar archivos en Dired, por cierto, escribí hace tiempo esta función casera, que viene a hacer lo mismo. Si en una lista de helm-find-files queremos marcar más de un archivo, hacemos como si estuviésemos en un texto normal: control más espacio para activar la marca y teclas arriba/abajo para extenderla.

Yo uso muchísimo los marcadores de Emacs, así que tenerlos a mano y poder realizar muchas (una vez más) y variopintas acciones sobre ellos es como viajar en primera clase.

Para entender helm-surfraw conviene entender antes qué es surfraw. Y éste no es otra cosa que una serie de scripts, escritos en origen por Julian Assange, dedicados a lanzar toda clase de búsquedas desde la terminal en Internet y en los sitios más diversos y hasta peregrinos, desde DuckDuckGo y Google a la Wikipedia, pasando por Github, Bugzilla, Ebay e incluso la página de la CIA. Cada tipo de búsqueda está gestionada por un script menor, que dentro de este peculiar ecosistema atiende al nombre de «elvi». Los «elvis» disponibles, como decimos, son legión. Pero también el usuario puede escribirse los suyos propios si aprende cómo se hace, que no es muy complicado.

Para que esta extensión de Helm tenga sentido, por tanto, hay que instalar antes surfraw, un paquete que suele estar disponible en las distribuciones de GNU/Linux más comunes. Mi configuración es la siguiente. Por defecto quiero lanzar helm-surfraw para que las búsquedas se abran en el navegador interno de Emacs, el eww-mode. Así que, primero, defino esto:

(defun mi-helm-surfraw ()
  (interactive)
  (let
      ((browse-url-browser-function 'eww-browse-url))
    (call-interactively 'helm-surfraw)))

Y esta función lanza una u otra variante dependiendo de si lleve o no el prefix-argument C-u:

(defun lanza-helm-surfraw ()
  (interactive)
  (if (equal current-prefix-arg nil)
      ;; sin C-u
      (mi-helm-surfraw)
    ;; con C-u (abre las búsquedas en firefox)
    (call-interactively 'helm-surfraw)))

Cuando llamamos a la extensión, se nos pregunta por el término a buscar y, acto seguido, Helm despliega una lista con los buscadores disponibles (esto es, los «elvis» de marras). Un plus agradable es que también conserva un histórico de los buscadores recientemente cpnsultados.

Las que he descrito las tiendo a usar bastante. Pero la lista de extensiones de Helm puede perpetuarse casi hasta el infinito. Destaquemos, por ir echando el cierre, a helm-info (para buscar en las páginas info de Emacs: utilísima, sobre todo si escribimos código); a helm-man-woman (para navegar por las man pages o, en cristiano, las páginas de manual de Gnu/Linux); a helm-colors (para listar colores, guardar sus nombres hexadecimales y muchas otras acciones bastante prácticas, también a la hora de escribir algo de código que toque cuestiones de aspecto); a helm-show-kill-ring (para buscar por el kill-ring, es decir, el portapapeles de Emacs). Y eso sólo para las extensiones nativas. Si nos metemos ya a bucear entre las de terceros, por cierto da para no aburrirse. Entre este grupo, destacaría helm-bbdb, muy útil para listar y buscar entre nuestros contactos almacenados en la big brother data base de Emacs. Y se integra muy bien con el cliente de correo y otras mensajerías emacsiano Gnus. Pero de esta extensión hablaremos en otra GNUta, a cuento de Emacs y los correos electrónicos.