diff options
| -rw-r--r-- | ennum-html.el | 18 | ||||
| -rw-r--r-- | ennum.el | 11 |
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") @@ -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) |