diff --git a/ox-altacv.el b/ox-altacv.el
index 689e01e..99d0680 100644
--- a/ox-altacv.el
+++ b/ox-altacv.el
@@ -139,19 +139,23 @@ holding export options."
"\\personalinfo{\n"
;; address
(let ((address (org-export-data (plist-get info :address) info)))
- (when (org-string-nw-p address) (format "\\mailaddress{%s}\n"
- (mapconcat (lambda (line) (format "%s" line))
- (split-string address "\n") " -- "))))
+ (when (org-string-nw-p 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))))
- (when email (format "\\email{%s}\n" email)))
+ (when (org-string-nw-p email)
+ (format "\\email{%s}\n" email)))
;; phone
(let ((mobile (org-export-data (plist-get info :mobile) info)))
- (when mobile (format "\\phone{%s}\n" mobile)))
+ (when (org-string-nw-p mobile)
+ (format "\\phone{%s}\n" mobile)))
;; homepage
(let ((homepage (org-export-data (plist-get info :homepage) info)))
- (when homepage (format "\\homepage{%s}\n" homepage)))
+ (when (org-string-nw-p homepage)
+ (format "\\homepage{%s}\n" homepage)))
(mapconcat (lambda (social-network)
(let ((command (org-export-data (plist-get info
(car social-network))
diff --git a/ox-hugocv.el b/ox-hugocv.el
index 44b41c1..77b17ed 100644
--- a/ox-hugocv.el
+++ b/ox-hugocv.el
@@ -118,23 +118,25 @@ holding export options."
;; email
(let ((email (and (plist-get info :with-email)
(org-export-data (plist-get info :email) info))))
- (when email (format "
%s\n" email email)))
+ (when (org-string-nw-p email)
+ (format " %s\n" email email)))
;; homepage
(let ((homepage (org-export-data (plist-get info :homepage) info)))
- (when homepage (format " %s\n" homepage homepage)))
+ (when (org-string-nw-p homepage) (format " %s\n" homepage homepage)))
;; social media
(mapconcat (lambda (social-network)
- (let ((command (org-export-data (plist-get info
- (car social-network))
+ (let ((network (org-export-data
+ (plist-get info (car social-network))
info)))
- (and command (format " %s\n"
+ (when (org-string-nw-p network)
+ (format " %s\n"
(nth 1 social-network)
(nth 2 social-network)
- command
- command))))
+ network
+ network))))
'((:github "github" "www.github.com")
(:gitlab "gitlab" "www.gitlab.com")
diff --git a/ox-moderncv.el b/ox-moderncv.el
index 564638f..8f5374e 100644
--- a/ox-moderncv.el
+++ b/ox-moderncv.el
@@ -104,28 +104,33 @@ holding export options."
(format "\\name{%s}{}\n" author))
;; photo
(let ((photo (org-export-data (plist-get info :photo) info)))
- (when (org-string-nw-p photo) (format "\\photo{%s}\n" photo)))
+ (when (org-string-nw-p photo)
+ (format "\\photo{%s}\n" photo)))
;; email
(let ((email (and (plist-get info :with-email)
(org-export-data (plist-get info :email) info))))
- (when email (format "\\email{%s}\n" email)))
+ (when (org-string-nw-p email)
+ (format "\\email{%s}\n" email)))
;; phone
(let ((mobile (org-export-data (plist-get info :mobile) info)))
- (when mobile (format "\\phone[mobile]{%s}\n" mobile)))
+ (when (org-string-nw-p mobile)
+ (format "\\phone[mobile]{%s}\n" mobile)))
;; homepage
(let ((homepage (org-export-data (plist-get info :homepage) info)))
- (when homepage (format "\\homepage{%s}\n" homepage)))
+ (when (org-string-nw-p homepage)
+ (format "\\homepage{%s}\n" homepage)))
;; address
(let ((address (org-export-data (plist-get info :address) info)))
- (when address (format "\\address%s\n" (mapconcat (lambda (line) (format "{%s}" line))
- (split-string address "\n") ""))))
+ (when (org-string-nw-p address)
+ (format "\\address%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))
- info)))
- (and command (format "\\social[%s]{%s}\n"
- (nth 1 social-network)
- command))))
+ (let ((network (org-export-data
+ (plist-get info (car social-network)) info)))
+ (when (org-string-nw-p network)
+ (format "\\social[%s]{%s}\n"
+ (nth 1 social-network) network))))
'((:github "github")
(:gitlab "gitlab")
(:linkedin "linkedin"))