Pass post titles in info.

* ennum-html.el (ennum-html-link): Handle post links as a special
case.
(ennum-html-export-post): Use post link description received as
argument. When description is nil, do not attempt to read source files
to find the post title.
* ennum.el (ennum-export-post): Pass post titles as :ennum-post-titles
in info.

2 files changed, 21 insertions, 8 deletions

diff --git a/ennum-html.el b/ennum-html.el
index bfad18f..65c0455 100644
--- a/ennum-html.el
+++ b/ennum-html.el
@@ -265,8 +265,8 @@
    "</article>"))
 
 (defun ennum-html-link (link desc info)
-  ;; We override the html link transcoder to handle image and video
-  ;; links differently. We cannot use the `:export' property of
+  ;; We override the html link transcoder to handle image, post and
+  ;; video links differently. We cannot use the `:export' property of
   ;; `org-link-parameters' since those functions cannot access the
   ;; `info' communication channel.
   (let ((path (org-element-property :path link)))
@@ -293,6 +293,12 @@
                                 (ennum-setting :images-directory))))
                   :type "file")
                  desc info))))
+      ("post"
+       (ennum-html-export-post
+        path
+        (or desc (map-elt (plist-get info :ennum-post-titles)
+                          path nil 'string=))
+        (org-export-backend-name (plist-get info :back-end))))
       ("video"
        (let ((video-directory (ennum-setting :video-directory)))
          (message "%s" (plist-get info :ennum-video-posters))
@@ -316,11 +322,9 @@
 (defun ennum-html-export-post (path desc backend)
   (pcase backend
     ((or 'ennum-html 'html)
-     (let ((filename (concat (expand-file-name path (ennum-setting :posts-directory))
-                             ".org")))
-       (xmlgen `(a :href ,(url-encode-url
-                           (expand-file-name* path (ennum-setting :posts-directory)))
-                   ,(or desc (ennum-post-title (ennum-read-post filename)))))))))
+     (xmlgen `(a :href ,(url-encode-url
+                         (expand-file-name* path (ennum-setting :posts-directory)))
+                 ,desc)))))
 
 (defun ennum-html-follow-post (path)
   (ennum-html-follow (expand-file-name (concat path ".org")
diff --git a/ennum.el b/ennum.el
index 6cd5757..955a0bf 100644
--- a/ennum.el
+++ b/ennum.el
@@ -326,7 +326,16 @@ result as a string."
     (ennum-mkdir-p (file-name-directory output-file))
     (let ((system-time-locale (map-elt (ennum-setting :locale-alist)
                                        (ennum-post-language post) nil 'string=))
-          (ext-plist (list :ennum-translations (ennum-post-translations post)
+          (ext-plist (list :ennum-post-titles
+                           (ennum--filter-map
+                            (lambda (link)
+                              (when (and (ennum-post-link-p link)
+                                         (not (eq (ennum-post-link-target-title link)
+                                                  'not-required)))
+                                (cons (ennum-post-link-path link)
+                                      (ennum-post-link-target-title link))))
+                            (ennum-post-links post))
+                           :ennum-translations (ennum-post-translations post)
                            :ennum-video-posters
                            (ennum--filter-map (lambda (link)
                                                 (when (eq (ennum-link-type link) 'video)