Integrando Diogenes con Emacs y Org

Diogenes (lo escribimos así, sin la tilde esdrújula, por respetar el nombre original de la aplicación) es un excelente y utilísimo software libre (licencia GPL v.3) especializado en navegar y rastrear por los textos de los antiguos CD del TLG (Thesaurus Linguae Graecae) y otras fuentes por el estilo¹. Viene también con una serie de diccionarios integrados, como el Liddell Scott del Perseus Project, con que podemos buscar palabras incluso en sus variantes flexivas. Se trata de un programa veterano, que hasta hace no mucho era casi imposible de ejecutar correctamente en las versiones más recientes de GNU/Linux. La buena noticia, sin embargo, es que en los dos últimos años (a fecha de esta GNUta) ha recibido una puesta al día por todo lo alto, con no pocas mejoras y añadidos. El responsable de todo es Peter Heslin (aquí puede visitarse el respositorio en GitHub) e incluso podemos descargar paquetes de instalación para Ubuntu/Debian, Fedora y Arch y derivadas desde la web oficial del proyecto. Todo un lujo.

Bien, yo me instalé el paquete para Arch y he estado trasteando un poco. La instalación es muy limpia y sin problemas de dependencias. Basta con correr en terminal:

sudo pacman -U <ruta-a-paquete-descargado>

En general, el programa funciona bien, con algunas características francamente espectaculares. Me gustaron especialmente las funcionalidades de búsquedas por los textos y el análisis morfológico de las palabras. La interfaz de escritorio es (ay) un contenedor de Electron, pero la buena noticia es que podemos usar Diogenes en modo servidor y acceder a él desde un navegador. Y así es como, en principio, recomiendo usarlo, pues aquí a Electron no queremos verlo ni en pintura. De hecho, con EXWM y un navegador orientado al teclado del estilo de qutebrowser hay un amor a primera vista. Pero ya se sabe que los que usamos GNU Emacs aspiramos maniáticamente a hacerlo todo dentro sin salir de Emacs, así que me andaba preguntando estos días cómo y en qué medida podríamos integrar a Diogenes en nuestra querida Lisp Machine. Naturalmente, si uno tiene tiempo, ganas y conocimientos, sería factible desarrollar una interfaz completa de Diogenes escrita en Elisp para traducir los procesos internos en Javascript de aquél. Por desgracia, carecemos de las tres cosas, de modo que aquí nos conentaremos con explotar desde el lado de Emacs la funcionalidad servidor de Diogenes. Y una vez que se logran aislar las URI adecuadas, los resultados son muy satisfactorios. Hagamos un pequeño recorrido por lo que he ido logrando, y aunque he enfocado las triquiñuelas especialmente a mi trabajo en la traducción de la Odisea (work in progress a fecha de esta GNUta), creo que el lector interesado puede aprovechar la información necesaria para adaptarla a su propio flujo de trabajo.

Antes de nada, lo primero: debemos iniciar el servidor de Diogenes, y lo haremos desde Emacs. Para ello definí esta sencilla función (téngase en cuenta que tal vez varíe la ruta del servidor entre distintas distribuciones de GNU/Linux):

(defun inicia-servidor-diogenes ()
  (interactive)
  (start-process-shell-command "diogenes" nil "/usr/local/diogenes/server/diogenes-server.pl"))

(defun diogenes-perseus (word)
  (interactive (list (current-word t t)))
  (if
      (not (current-word t t))
      (error "Ninguna palabra que analizar...")
    (other-window 1)
    (eww (concat "http://127.0.0.1:8888/Perseus.cgi?do=parse&lang=grk&q=%2A%29/" word))))

(defun numero-verso-actual ()
  "Devuelve el número de verso en que está el cursor"
  (save-excursion
    (end-of-line)
    (save-restriction
      (org-narrow-to-block)
      (narrow-to-region (point-min) (point))
      (goto-char (point-min))
      (end-of-line)
      (let
          ((numverso 0))
        (save-excursion
          (while
              (re-search-forward "^." nil t)
            (setf numverso (+ numverso 1)))
          (setq verso-actual numverso)))))
  verso-actual)

(defun diogenes-odisea-verso ()
  (interactive)
  (let* ((canto (if (string-match "\\([[:digit:]]+\\)gr" (buffer-name))
                    (match-string 1 (buffer-name))
                  (org-entry-get nil "Canto")))
         (verso (number-to-string (numero-verso-actual)))
         (url "http://127.0.0.1:8888/Diogenes.cgi?JumpTo=&JumpFromQuery=&JumpFromLang=&JumpFromAction=&level_1=canto&level_0=verso&submit=Show+me+this+passage&greek_output_formatXXstate=UTF-8&levelsXXstate=1&JumpFromQueryXXstate=&typeXXstate=TLG+Texts&corpusXXstate=TLG+Texts&export-pathXXstate=&current_pageXXstate=browser_passage&authorXXstate=0012&JumpFromLangXXstate=&queryXXstate=Homerus&splashXXstate=true&actionXXstate=browse&workXXstate=002&JumpToXXstate=&submitXXstate=Find+a+passage+in+this+work&short_typeXXstate=tlg&JumpFromActionXXstate=")
         (url-form (replace-regexp-in-string "canto" canto
                                             (replace-regexp-in-string "verso" verso url))))
    (browse-url url-form)))

(defun busca-diogenes-pasaje-homero (desde hasta)
  (interactive "r")
  (let* ((pas (buffer-substring-no-properties desde hasta))
         (url "http://127.0.0.1:8888/Diogenes.cgi?JumpTo=&JumpFromQuery=&JumpFromLang=&JumpFromAction=&action=author&splash=true&export-path=&corpus=TLG+Texts&author=Homerus&query=pasaje&current_pageXXstate=splash&greek_output_formatXXstate=UTF-8")
         (url-form (replace-regexp-in-string "pasaje" pas url)))
    (browse-url url-form)))

(defun busca-diogenes-pasaje-simple (desde hasta)
  (interactive "r")
  (let* ((pas (buffer-substring-no-properties desde hasta))
         (url "http://127.0.0.1:8888/Diogenes.cgi?JumpTo=&JumpFromQuery=&JumpFromLang=&JumpFromAction=&action=search&splash=true&export-path=&corpus=TLG+Texts&query=pasaje&greek_output_formatXXstate=UTF-8&current_pageXXstate=splash")
         (url-form (replace-regexp-in-string "pasaje" pas url)))
    (browse-url url-form)))