diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-05-26 16:08:15 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-05-26 16:08:15 +0200 |
| commit | 82f834ea904302a5a11250ca62d76d4bd6eac81c (patch) | |
| tree | 7009619ffb157d073f9a1fb6e0fb2ae619d5b486 | |
| parent | a169e43a77b8a5c90d68d81e490eb7306e9efeef (diff) | |
| download | org-mode-82f834ea904302a5a11250ca62d76d4bd6eac81c.tar.gz | |
ox-icalendar: Do not require `cl' since `cl-lib' is used
* lisp/ox-icalendar.el (org-icalendar-get-categories):
(org-icalendar-entry):
(org-icalendar--vevent): Use "cl-" prefix.
| -rw-r--r-- | lisp/ox-icalendar.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/ox-icalendar.el b/lisp/ox-icalendar.el index 5127ce5..ec07879 100644 --- a/lisp/ox-icalendar.el +++ b/lisp/ox-icalendar.el @@ -31,7 +31,6 @@ ;;; Code: -(eval-when-compile (require 'cl)) (require 'cl-lib) (require 'ox-ascii) (declare-function org-bbdb-anniv-export-ical "org-bbdb" nil) @@ -413,7 +412,7 @@ used as a communication channel." (org-uniquify (let (categories) (dolist (type org-icalendar-categories (nreverse categories)) - (case type + (cl-case type (category (push (org-export-get-category entry info) categories)) (todo-state @@ -576,11 +575,11 @@ inlinetask within the section." 'timestamp (lambda (ts) (when (let ((type (org-element-property :type ts))) - (case (plist-get info :with-timestamps) + (cl-case (plist-get info :with-timestamps) (active (memq type '(active active-range))) (inactive (memq type '(inactive inactive-range))) ((t) t))) - (let ((uid (format "TS%d-%s" (incf counter) uid))) + (let ((uid (format "TS%d-%s" (cl-incf counter) uid))) (org-icalendar--vevent entry ts uid summary loc desc cat)))) info nil (and (eq type 'headline) 'inlinetask)) @@ -589,7 +588,7 @@ inlinetask within the section." ;; so, call `org-icalendar--vtodo' to transcode it into ;; a "VTODO" component. (when (and todo-type - (case (plist-get info :icalendar-include-todo) + (cl-case (plist-get info :icalendar-include-todo) (all t) (unblocked (and (eq type 'headline) @@ -611,7 +610,7 @@ inlinetask within the section." (lambda (sexp) (org-icalendar-transcode-diary-sexp (org-element-property :value sexp) - (format "DS%d-%s" (incf counter) uid) + (format "DS%d-%s" (cl-incf counter) uid) summary)) info nil (and (eq type 'headline) 'inlinetask)) ""))))) @@ -627,7 +626,7 @@ inlinetask within the section." contents)))) (defun org-icalendar--vevent - (entry timestamp uid summary location description categories) + (entry timestamp uid summary location description categories) "Create a VEVENT component. ENTRY is either a headline or an inlinetask element. TIMESTAMP @@ -651,7 +650,7 @@ Return VEVENT component as a string." ;; RRULE. (when (org-element-property :repeater-type timestamp) (format "RRULE:FREQ=%s;INTERVAL=%d\n" - (case (org-element-property :repeater-unit timestamp) + (cl-case (org-element-property :repeater-unit timestamp) (hour "HOURLY") (day "DAILY") (week "WEEKLY") (month "MONTHLY") (year "YEARLY")) (org-element-property :repeater-value timestamp))) |