diff options
| author | Arun Isaac | 2026-09-07 00:57:49 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-09-07 02:55:59 +0100 |
| commit | 005ffe2e46f60dc2248473024a5f1bd5c55b9d10 (patch) | |
| tree | d0ab3b01bcfbcc1f0fb8e32624d96b2af587cdec | |
| parent | 5b01ede563d1e5bae4d9643308f709d6fce3c329 (diff) | |
| download | ennum-005ffe2e46f60dc2248473024a5f1bd5c55b9d10.tar.gz ennum-005ffe2e46f60dc2248473024a5f1bd5c55b9d10.tar.lz ennum-005ffe2e46f60dc2248473024a5f1bd5c55b9d10.zip | |
Promote …-index-filename optional arguments to regular arguments.
| -rw-r--r-- | ennum.el | 26 |
1 files changed, 16 insertions, 10 deletions
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 |