From 6fcf2e43b509fbc984da058e929c647a95e91a11 Mon Sep 17 00:00:00 2001 From: Diego Zamboni Date: Tue, 31 Mar 2020 09:52:35 +0200 Subject: [PATCH] Add support for the \colorizelinks and \underlinelinks in my private version of AwesomeCV --- ox-awesomecv.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/ox-awesomecv.el b/ox-awesomecv.el index e8e514f..30d1e02 100644 --- a/ox-awesomecv.el +++ b/ox-awesomecv.el @@ -60,6 +60,8 @@ '((:latex-class "LATEX_CLASS" nil "awesomecv" t) (:cvstyle "CVSTYLE" nil "classic" t) (:cvcolor "CVCOLOR" nil "awesome-emerald" t) + (:cvcolorizelinks "CVCOLORIZELINKS" nil nil t) + (:cvunderlinelinks "CVUNDERLINELINKS" nil nil t) (:mobile "MOBILE" nil nil parse) (:homepage "HOMEPAGE" nil nil parse) (:address "ADDRESS" nil nil newline) @@ -114,7 +116,19 @@ holding export options." (format "\\fontdir[%s]\n" (plist-get info :fontdir)) (format "\\colorlet{awesome}{%s}\n" (plist-get info :cvcolor)) (format "\\setbool{acvSectionColorHighlight}{%s}\n" (plist-get info :cvhighlights)) - + (let ((cvcolorizelinks (plist-get info :cvcolorizelinks)) + (cvunderlinelinks (plist-get info :cvunderlinelinks))) + (concat + (when (and (org-string-nw-p cvcolorizelinks) + (not (string-equal cvcolorizelinks "false"))) + (format "\\colorizelinks%s\n" + (if (not (string-equal cvcolorizelinks "true")) + (format "[%s]" cvcolorizelinks) ""))) + (when (and (org-string-nw-p cvunderlinelinks) + (not (string-equal cvunderlinelinks "false"))) + (format "\\underlinelinks%s\n" + (if (not (string-equal cvunderlinelinks "true")) + (format "[%s]" cvunderlinelinks) ""))))) ;; Author. If FIRSTNAME or LASTNAME are not given, try to deduct ;; their values by splitting AUTHOR on white space. (let* ((author (split-string (org-export-data (plist-get info :author) info)))