summary refs log tree commit diff
path: root/ennum.el
diff options
context:
space:
mode:
authorArun Isaac2020-08-02 01:15:38 +0530
committerArun Isaac2020-08-02 03:20:16 +0530
commit172a5413ba2e786b3b7d8e8d1793e6ff05eb96df (patch)
treee78d42c1af167ebd3cdb248945c151f0dae6039d /ennum.el
parent25f8a2086b299867bb0e27a645daa957fac15c92 (diff)
downloadennum-172a5413ba2e786b3b7d8e8d1793e6ff05eb96df.tar.gz
ennum-172a5413ba2e786b3b7d8e8d1793e6ff05eb96df.tar.lz
ennum-172a5413ba2e786b3b7d8e8d1793e6ff05eb96df.zip
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.
Diffstat (limited to 'ennum.el')
-rw-r--r--ennum.el17
1 files changed, 1 insertions, 16 deletions
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)