Actualizar fecha de archivo en emacs
Tener que modificar la fecha de actualización de la cabecera de un archivo cada vez que se realiza una modificación es una tarea “rutinaria” que debe ser automatizada si no queremos perder el tiempo ni que caiga en el olvido. Así lo he conseguido gracias a elisp en emacs.
En un principio son tres los tipos de archivos a los que necesito actualizar la fecha de modificación y en cada uno está escrita de una manera:
- Archivos Markdown del blog: date: “2025-01-29”
- Archivos Org-Mode del brain: #+date: <2025-01-29>
- Scripts en Bash: #Creation/Update: 20240411/20250129
La idea es hacer un condicional que se ejecute antes de guardar el archivo y en caso de que sea de uno de los tres tipos anteriores realizar una sustitución de la fecha existente por la actual.
La función quedará como la siguiente.
(defun update-file-date ()
"Actualizar la fecha de modificación según la extensión del archivo."
(let ((ext (file-name-extension (buffer-file-name)))
(current-date (format-time-string "%Y-%m-%d"))
(current-date-compact (format-time-string "%Y%m%d")))
(save-excursion
(goto-char (point-min))
(cond
;; Para archivos .sh: #Creation/Update: YYYYMMDD/YYYYMMDD
((string= ext "sh")
(when (re-search-forward "^#Creation/Update: \\([0-9]+\\)/\\([0-9]+\\)$" nil t)
(replace-match (format "#Creation/Update: %s/%s" (match-string 1) current-date-compact))))
;; Para archivos .md: date: "YYYY-MM-DD"
((string= ext "md")
(when (re-search-forward "^date: \"\\([0-9-]+\\)\"$" nil t)
(replace-match (format "date: \"%s\"" current-date))))
;; Para archivos .org: #+date: <YYYY-MM-DD>
((string= ext "org")
(when (re-search-forward "^#\\+date: <\\([0-9-]+\\)>$" nil t)
(replace-match (format "#+date: <%s>" current-date))))))))
(add-hook 'before-save-hook 'update-file-date)
Ya sólo falta colocar la función y el hook dentro del archivo “init.el” y reiniciar Emacs para ver el resultado.