Navegación mejorada en Org Mode con org-speed-commands

Como vemos, se trata de una funcionalidad que puede resultar muy útil para la navegación a través de un documento de Org. Yo la venía usando bastante, pero últimamente se me ocurrió que no estaría de más un poco de personalización y ciertas modificaciones. Partí de la siguiente premisa: yo, que no soy especialmente devoto de la edición modal, podría admitir subir la dosis (pero manteniéndome dentro del control para no desmelenarlo todo), una vez asumido el hecho de que los encabezados es algo a que dedico poco tiempo de edición, después de que establezco el título. A decir verdad, paso más tiempo editando el «meta-contenido» de los encabezados que el contenido propiamente dicho: estados TODO, propiedades, etiquetas, posicionamiento, etc. Podríamos entender que el contenido en bruto del título es un metadato más, y que se podría editar llegado el caso como tal metadato. Así pues, con semejante premisa en mente, mi extensión de los comandos rápidos consistiría en estos tres puntos:

1. Extender el contexto de activación a todo el encabezado, y no sólo al comienzo de la línea. Una vez que lo logramos, la velocidad de navegación se incrementa exponencialmente. Y tal vez, añadido a esto, sería buena idea extender el contexto de activación al comienzo del documento de Org (o sea, la posición «1» del búfer), que es donde nos aparece el cursor cada vez que visitamos un documento.
2. Por defecto, cuando por descuido u olvido pulsamos una letra que no está asociada a un comando rápido, esta letra, simplemente, se imprime. Lo cual resulta muy incómodo y no parece consistente. A mi juicio, el comportamiento apropiado sería un modo dual más estricto: si la letra no está asociada a un comando, devolver un mensaje de error, pero nunca imprimir la letra. Necesitamos, por tanto, alternar en este modo dual entre el modo-comando y el modo-edición. Sí, lo asumo, estamos bordeando peligrosamente el infierno de la edición modal estilo Vim, pero repito que lo podemos seguir teniendo bajo control. O eso espero…
3. Como consecuencia de lo anterior, claro, necesitaríamos una función que activara o desactivara los comandos rápidos a voluntad, una especie de «modo de edición», para poder escribir en el encabezado cuando lo necesitemos.

Pasemos a describir cómo he ido logrando estas tres metas.

La función org-speed-command-activate (que vimos más arriba) no es la única que se encarga de activar comandos rápidos. De hecho, ésta está incluida en el hook org-speed-command-hook, que agrupa todas las funciones destinadas a lanzar este tipo de comandos. Podemos escribir las nuestras propias y añadirlas allí, y a mí se me ocurrió la idea de escribir una específica para los enlaces de Org. ¿Qué acciones añadir a esta función de manera que se activen cuando tenemos el cursor dentro de un enlace? Las dos más obvias son la de editar el enlace y la de activarlo. Además yó ya tenía una hydra definida hace tiempo para agrupar varias funciones que previamente había ido escribiendo y que iban destinadas a ejecutarlas sobre un link: copiar el archivo-ruta de un link a otro directorio, renombrarlo, abrirlo con un programa externo (Gimp por defecto), adjuntarlo a un correo electrónico, eliminar el link, etc. Pero eso ya será objeto de otra GNUta. Aquí lo que interesa es definir una nueva lista de acciones para nuestros comandos rápidos en los enlaces, que serán sólo tres: activar el enlace, editarlo y activar mi hydra:

(setq mi-org-link-speed-commands
      '(("o" . org-open-at-point)
        ("e" . org-insert-link)
        ("v" . hydra-link-org/body)))

Y ya sólo nos quedaría la función para lanzarlos con el contexto adecuado. Pero, ojo, los enlaces no sólo pueden estar en el texto, también en un encabezado. Yo tengo cientos de encabezados que son enlaces. Así que nuestro condicional para activar los comandos rápidos en los enlaces debe dejar claro que no queremos que se activen cuando estamos en un encabezado, pues de lo contrario entraría en conflicto con la función para los comandos rápidos en los encabezados, que vimos en la sección anterior. Si queremos que los enlaces de los encabezados también se beneficien de los comandos rápidos, no nos queda otra que añadir estas tres acciones de nuestra nueva lista también a la lista org-speed-commands, pero teniendo cuidado, naturalmente, de no duplicar letras de activación. Lo ideal es que sean siempre las mismas letras («o», «e», «v»), de modo que tendremos que reasignar nuevas letras a otros comandos ya definidos en esa lista pare evitar ambigüedades.

Hechas, en fin, estas aclaraciones, nuestra función activadora de los comandos rápidos en los enlaces de Org quedaría tal que así:

(defun mi-org-speed-command-link-activate (keys)
  "Mi función para activar los comandos rápidos en los links,
siempre que no sea un link en el encabezado"
  (when (and (org-in-regexp org-any-link-re 100)
             (not (org-in-regexp "^\\*+\s+.+")))
    (let ((defined (cdr (assoc keys mi-org-link-speed-commands))))
      (if defined defined
        (error "Speed command not defined: \"h\" for help")))))

Por supuesto, esta función también tiene un modo estricto, de forma que si pulsamos la tecla equivocada nos devolverá un mensaje de error. Tendremos que volver a echar mano de la función para cambiar entre modo de edición y modo de comandos. Una vez más, estamos acercándonos peligrosamente a la edición modal, pero, como sucede con los encabezados, la edición manual de los enlaces es muy raro hacerla.

Y nos quedaría, por último, asignar nuestra nueva función al hook org-speed-command-hook:

(add-hook 'org-speed-command-hook #'mi-org-speed-command-link-activate)