mirrors/org-cv
1
0
Fork 1
mirror of https://gitlab.com/Titan-C/org-cv.git synced 2024-11-14 10:38:29 +00:00
Code Issues Projects Releases Packages Wiki Activity

Removed dependency to cl-lib

Browse source 
Replaced `first` and `second` (which have been renamed in Emacs 27
anyway) with `car` and `cadr` to avoid the dependency on cl-lib.
This commit is contained in:
Diego Zamboni 2020-08-24 13:55:09 +02:00
parent 59cf8ffd52
commit 58fd53f743
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
ox-awesomecv.el
View file

@ -28,7 +28,6 @@
;; LaTeX one.
;;; Code:
(require 'cl-lib)
(require 'ox-latex)
(require 'org-cv-utils)
@ -135,8 +134,8 @@ holding export options."
(let* ((author (split-string (org-export-data (plist-get info :author) info)))
(first-name-prop (org-export-data (plist-get info :firstname) info))
(last-name-prop (org-export-data (plist-get info :lastname) info))
(first-name (or (org-string-nw-p first-name-prop) (first author)))
(last-name (or (org-string-nw-p last-name-prop) (second author))))
(first-name (or (org-string-nw-p first-name-prop) (car author)))
(last-name (or (org-string-nw-p last-name-prop) (cadr author))))
(format "\\name{%s}{%s}\n" first-name last-name))
;; Title
@ -180,8 +179,8 @@ holding export options."
;; Stack overflow requires two values: ID and name
(let* ((so-list (plist-get info :stackoverflow))
(so-id (when so-list (first so-list)))
(so-name (when so-list (second so-list))))
(so-id (when so-list (car so-list)))
(so-name (when so-list (cadr so-list))))
(when (and (org-string-nw-p so-id) (org-string-nw-p so-name))
(format "\\stackoverflow{%s}{%s}\n" so-id so-name)))