Do not remove directory components from index filenames.

* ennu.el (ennu-index-filename): Do not remove directory components
from index filenames.
(ennu-publish-index): Remove directory components in pagination links.

1 files changed, 6 insertions, 4 deletions

diff --git a/ennu.el b/ennu.el
index 4620ef8..1f9d786 100644
--- a/ennu.el
+++ b/ennu.el
@@ -80,8 +80,8 @@ last form in BODY."
   (let ((extension (if extension (concat "." extension) "")))
     (ennu-add-tongue-suffix
      (if page-number
-         (format "%s-%s%s" (file-name-nondirectory filename-prefix) page-number extension)
-       (concat (file-name-nondirectory filename-prefix) extension))
+         (format "%s-%s%s" filename-prefix page-number extension)
+       (concat filename-prefix extension))
      tongue)))
 
   (let* ((number-of-pages (ceiling (length posts) posts-per-page))
@@ -119,10 +119,12 @@ last form in BODY."
                       posts)
               (unless (= page-number 1)
                 (insert (format "[[./%s][Newer posts]]\n"
-                                (ennu-index-filename filename-prefix tongue nil (1- page-number)))))
+                                (ennu-index-filename (file-name-nondirectory filename-prefix)
+                                                     tongue nil (1- page-number)))))
               (unless (= page-number number-of-pages)
                 (insert (format "[[./%s][Older posts]]\n"
-                                (ennu-index-filename filename-prefix tongue nil (1+ page-number)))))
+                                (ennu-index-filename (file-name-nondirectory filename-prefix)
+                                                     tongue nil (1+ page-number)))))
               (org-export-to-file 'ennu-html output-file)))
           (seq-partition posts posts-per-page)
           page-numbers