From 005ffe2e46f60dc2248473024a5f1bd5c55b9d10 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 7 Sep 2026 00:57:49 +0100
Subject: Promote …-index-filename optional arguments to regular arguments.

---
 ennum.el | 26 ++++++++++++++++----------
 1 file changed, 16 insertions(+), 10 deletions(-)

(limited to 'ennum.el')

diff --git a/ennum.el b/ennum.el
index 7cdf374..e06831e 100644
--- a/ennum.el
+++ b/ennum.el
@@ -624,12 +624,10 @@ string."
                tongue
                (file-name-extension filename t)))))
 
-(defun ennum-index-filename (filename-prefix tongue &optional extension page-number)
+(defun ennum-index-filename (filename-prefix tongue extension page-number)
   (let ((extension (if extension (concat "." extension) "")))
     (ennum-add-tongue-suffix
-     (if page-number
-         (format "%s-%s%s" filename-prefix page-number extension)
-       (concat filename-prefix extension))
+     (format "%s-%s%s" filename-prefix page-number extension)
      tongue)))
 
 (defun ennum-publish-index-page (backend filename-prefix title last-page posts page-number tongue output-file)
@@ -666,11 +664,15 @@ string."
           (unless (= page-number 1)
             (insert (format "[[./%s][Newer posts]]\n\n"
                             (ennum-index-filename (file-name-nondirectory filename-prefix)
-                                                  tongue nil (1- page-number)))))
+                                                  tongue
+                                                  nil
+                                                  (1- page-number)))))
           (unless last-page
             (insert (format "[[./%s][Older posts]]\n"
                             (ennum-index-filename (file-name-nondirectory filename-prefix)
-                                                  tongue nil (1+ page-number)))))
+                                                  tongue
+                                                  nil
+                                                  (1+ page-number)))))
           (org-export-to-file backend output-file)))
        ('gemini
         (with-temp-file output-file
@@ -687,13 +689,17 @@ string."
               (insert summary)
               (insert "\n\n")))
           (unless (= page-number 1)
-            (insert (format "=> ./%s.gmi Newer posts\n"
+            (insert (format "=> ./%s Newer posts\n"
                             (ennum-index-filename (file-name-nondirectory filename-prefix)
-                                                  tongue nil (1- page-number)))))
+                                                  tongue
+                                                  "gmi"
+                                                  (1- page-number)))))
           (unless last-page
-            (insert (format "=> ./%s.gmi Older posts\n"
+            (insert (format "=> ./%s Older posts\n"
                             (ennum-index-filename (file-name-nondirectory filename-prefix)
-                                                  tongue nil (1+ page-number)))))))))))
+                                                  tongue
+                                                  "gmi"
+                                                  (1+ page-number)))))))))))
 
 (defun ennum-publish-index-home (first-index-page-output backend filename-prefix tongue)
   (ennum-exp
-- 
cgit 1.4.1