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