Compartir un archivo en Nextcloud y crear un link público desde dired en Emacs

Bien, ya que tenemos el comando, y que lo hemos probado y funciona, pasemos a definir nuestra función emacsiana. Podemos echar mano de alguna función nativa que nos extraiga como lista de texto el nombre del archivo de Dired sobre el que tenemos el cursor. Nos sirve dired-get-file-for-visit. Pero hay una pega: esta expresión nos devuelve no sólo el nombre del archivo sino también su ruta absoluta. Y no queremos eso, sino el nombre tal cual junto a la extensión. Así que defino previamente esta función, donde elimino toda la ruta hacia la carpeta Público, ésta inclusive:

(defun nombre-archivo-solo ()
  (interactive)
  (let
      ((nombre (dired-get-file-for-visit)))
    (replace-regexp-in-string "/home/juanmanuel/Nextcloud/Público/" "" nombre)))

a fin de emplearla en lugar de dired-get-file-for-visit.

Y a continuación, la función que ejecuta el comando de Nextcloud usando el nombre del archivo que ya tenemos (¡ojo con las comillas en el comando de Nextcloud! Hay que añadir caracteres de escape \"):

(defun crea-link-nextcloud ()
  (interactive)
  (let
      ((archivo (nombre-archivo-solo)))
(shell-command (format "curl -u \"<usuario>:<contraseña>\" -H \"OCS-APIRequest: true\" -X POST https://cloud.disroot.org/ocs/v1.php/apps/files_sharing/api/v1/shares -d path=\"Público/%s\" -d shareType=3 -d permissions=1" archivo))))

Esta función simplemente consta de una expresión let donde definimos la variable archivo y le damos como valor la función anterior que nos extrae (recordemos) sólo el nombre del archivo sin la extensión.

Abrimos Dired en nuestro Emacs y nos dirigimos a la carpeta pública. Imaginemos que queremos compartir una imagen llamada abejorro.jpg. Pues situamos el cursor sobre ella y llamamos a nuestra flamante función crea-link-nextcloud, bien por medio de algún atajo que hayamos definido o directamente por un M-x crea-link-nextcloud. En un periquete se abrirá una ventana a nuestra derecha con el output del comando, y hacia el final del mismo, estará esperándonos como Penélope en su palacio el link que acabamos de crear para compartir nuestro archivo (como se muestra en la fig. 1).

Recientemente he migrado de nube Nextcloud, pasando del servicio que proporciona la comunidad de Disroot al de The Good Cloud. Entre otras razones, porque su instancia de Nextcloud es más estable y robusta que la de los holandeses y porque la opción gratuita tiene un almacenaje de 2Gb y, si bien la de Disroot era casi del doble, para tener una nube de texto plano mayormente como la mía, me basta y me sobra. Y siempre tengo la opción de pasarme a la opción de pago con unos precios muy ajustados.

Bien, el caso es que en este nuevo Nextcloud he tenido que hacer unas pequeñas modificaciones en mi función para compartir un enlace, ya que el servicio de The Good Cloud no permite compartirlos sin contraseña ni sin fecha de expiración, lo que me parece (por otra parte) una buena práctica.

Para la nueva versión de mi función se me ocurrió definir dos variables locales a fin de generar la contraseña automáticamente, gracias al paquete password-generator y para establecer una fecha de vencimiento tras insertar en el input del minibúfer los días que quiero darle de vida al enlace. Esto lo logro mediante una fecha formateada con format-time-string a partir de las funciones time-add y days-to-time. Así que la nueva función luciría tal que así:

(require 'password-generator)

(defun crea-link-nextcloud ()
  "Crea un link público de un archivo marcado en Dired en la
  carpeta `Público' local de Nextcloud. Trabaja con el servicio The
  Good Cloud, por tanto requiere una fecha de expiración y una
  contraseña"
  (interactive)
  (let*
      ((archivo (nombre-archivo-solo))
       (fecha (string-to-number (read-from-minibuffer "¿En cuántos días expira este enlace...?")))
       ;; en el primer argumento de `time-add' el valor `nil' es para el día actual
       (expira (format-time-string "%Y-%m-%d" (time-add nil (days-to-time fecha))))
       ;; Como a veces no incluye un número o un carácter especial o
       ;; una mayúscula, tal vez haya que insistir
       (passwd (password-generator-strong 10 t)))
    (shell-command (format "curl -u \"<usuario>:<contraseña>\" -H \"OCS-APIRequest: true\" -X POST https://use01.thegood.cloud/ocs/v1.php/apps/files_sharing/api/v1/shares -d path=\"Público/%s\" -d shareType=3 -d permissions=1 -d expireDate=\"%s\" -d password=%s" archivo expira passwd))
    (let ((frase (format "La contraseña es %s, el enlace expira en %s" passwd expira)))
      (kill-new frase)
      (message frase))))