From 172a5413ba2e786b3b7d8e8d1793e6ff05eb96df Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 2 Aug 2020 01:15:38 +0530 Subject: Pass post object in info. * ennum-html.el (ennum-html-inner-template): Use translations from post object. (ennum-html-find-link): New function. (ennum-html-link): Use post titles and video posters from post object. * ennum.el (ennum-export-post): Pass post object as :ennum-posts in info. --- ennum.el | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) (limited to 'ennum.el') diff --git a/ennum.el b/ennum.el index 955a0bf..855aade 100644 --- a/ennum.el +++ b/ennum.el @@ -326,22 +326,7 @@ 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-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) - (cons (ennum-link-path link) - (ennum-video-link-poster link)))) - (ennum-post-links post))))) + (ext-plist (list :ennum-post post))) (ennum-with-file-contents interned-org-file (if output-html-file (org-export-to-file 'ennum-html output-file nil nil nil body-only ext-plist) -- cgit v1.2.3