diff options
Diffstat (limited to 'ennum-html.el')
| -rw-r--r-- | ennum-html.el | 18 |
1 files changed, 11 insertions, 7 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") |