From a1ca17842e56dbf62605d1c19348c6653c536902 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= Date: Fri, 30 Mar 2018 01:51:35 +0200 Subject: [PATCH] mailaddress first in altacv --- ox-altacv.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ox-altacv.el b/ox-altacv.el index 9ba48f8..a57565e 100644 --- a/ox-altacv.el +++ b/ox-altacv.el @@ -133,6 +133,10 @@ holding export options." (when (org-string-nw-p photo) (format "\\photo{2.8cm}{%s}\n" photo))) "\\personalinfo{\n" + ;; address + (let ((address (org-export-data (plist-get info :address) info))) + (when address (format "\\mailaddress{%s}\n" (mapconcat (lambda (line) (format "%s" line)) + (split-string address "\n") " -- ")))) ;; email (let ((email (and (plist-get info :with-email) (org-export-data (plist-get info :email) info)))) @@ -143,10 +147,6 @@ holding export options." ;; homepage (let ((homepage (org-export-data (plist-get info :homepage) info))) (when homepage (format "\\homepage{%s}\n" homepage))) - ;; address - (let ((address (org-export-data (plist-get info :address) info))) - (when address (format "\\mailaddress{%s}\n" (mapconcat (lambda (line) (format "%s" line)) - (split-string address "\n") " -- ")))) (mapconcat (lambda (social-network) (let ((command (org-export-data (plist-get info (car social-network))