From d73bf1eb183444a360d521884dbe9b3ac6098b61 Mon Sep 17 00:00:00 2001 From: cage Date: Tue, 15 Aug 2023 20:11:41 +0200 Subject: [PATCH] - [script] removed file extension from link names. --- data/scripts/generate-gemlog.lisp | 34 +++++++++++++++++-------------- 1 file changed, 19 insertions(+), 15 deletions(-) diff --git a/data/scripts/generate-gemlog.lisp b/data/scripts/generate-gemlog.lisp index f2a7b38..f5e6c94 100644 --- a/data/scripts/generate-gemlog.lisp +++ b/data/scripts/generate-gemlog.lisp @@ -330,21 +330,25 @@ (values posts all-topics))) (defun write-links (posts stream) - (loop for post in posts do - (let* ((filename (strip-dirs-from-path (archive-file-path post))) - (relative-archive-path (strcat *uri-path-prefix* - (cat-parent-dir +archive-dir+ - (percent-encode filename)))) - (link-text (strcat (format-date-to-string (post-date post)) - " " - (cl-ppcre:regex-replace-all "-" - filename - " "))) - (link (geminize-link (format nil - " ~a ~a~%" - relative-archive-path - link-text)))) - (write-sequence link stream)))) + (flet ((clean-link-filename (filename) + (cl-ppcre:regex-replace "\\.gmi$" + (cl-ppcre:regex-replace-all "-" + filename + " ") + ""))) + (loop for post in posts do + (let* ((filename (strip-dirs-from-path (archive-file-path post))) + (relative-archive-path (strcat *uri-path-prefix* + (cat-parent-dir +archive-dir+ + (percent-encode filename)))) + (link-text (strcat (format-date-to-string (post-date post)) + " " + (clean-link-filename filename))) + (link (geminize-link (format nil + " ~a ~a~%" + relative-archive-path + link-text)))) + (write-sequence link stream))))) (defun make-gemlog-index (all-posts output-directory) (let ((gemlog-index-path (cat-parent-dir output-directory +archive-gemlog-file+)))