From d45b6e3aa3c1ffa0a37a4276dbd0e51ee44c32af Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 1 Aug 2020 05:20:29 +0530
Subject: Embed list of translations into post object.

* ennum.el (ennum-post): Add ennum-copy-post copier and translations
slot.
(ennum-posts): Set translations slot.
(ennum-publish-post): Publish a single post, not a translation group
of posts.
(ennum-publish): Pass posts to ennum-publish-post one by one, without
grouping.
* ennum-html.el (ennum-html-inner-template): Use translations alist.
---
 ennum-html.el | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

(limited to 'ennum-html.el')

diff --git a/ennum-html.el b/ennum-html.el
index f091789..bfad18f 100644
--- a/ennum-html.el
+++ b/ennum-html.el
@@ -233,16 +233,14 @@
    (when-let (translations (plist-get info :ennum-translations))
      (format "<p>In other languages: %s</p>"
              (mapconcat
-              (lambda (translation)
-                (let ((lang (ennum-post-language translation))
-                      (slug (ennum-post-slug translation)))
-                  (replace-regexp-in-string
-                   "<a " (format "<a hreflang=\"%s\" " lang)
-                   (ennum-html-export-post
-                    slug
-                    (map-elt ennum-html--iso-639-1-alist lang nil 'string=)
-                    (org-export-backend-name
-                     (plist-get info :back-end))))))
+              (pcase-lambda (`(,lang . ,slug))
+                (replace-regexp-in-string
+                 "<a " (format "<a hreflang=\"%s\" " lang)
+                 (ennum-html-export-post
+                  slug
+                  (map-elt ennum-html--iso-639-1-alist lang nil 'string=)
+                  (org-export-backend-name
+                   (plist-get info :back-end)))))
               translations
               ", ")))
    ;; Tags
-- 
cgit v1.2.3