diff options
| author | Arun Isaac | 2019-08-26 00:15:43 +0530 |
|---|---|---|
| committer | Arun Isaac | 2019-08-26 00:15:43 +0530 |
| commit | 2bcd173928ff29141e566c13676f8bcddd327f30 (patch) | |
| tree | 057a30916f120450d74a6be5db45e6c95563193e | |
| parent | ddce6f1a1476ae7cce5c4c09065e34d9671162a0 (diff) | |
| download | ennum-2bcd173928ff29141e566c13676f8bcddd327f30.tar.gz ennum-2bcd173928ff29141e566c13676f8bcddd327f30.tar.lz ennum-2bcd173928ff29141e566c13676f8bcddd327f30.zip | |
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.
| -rw-r--r-- | ennu.el | 10 |
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 |