diff options
Diffstat (limited to 'ennum.el')
| -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 |