:ensure t
:bind
(:map cfw:calendar-mode-map
- ("d" . cfw:navi-goto-date-command)
- ("g" . cfw:refresh-calendar-buffer))
+ ("d" . cfw:navi-goto-date-command)
+ ("g" . cfw:refresh-calendar-buffer))
:custom
(calendar-holidays holiday-christian-holidays))
(defun conf:get-org-file-for-calendar-id ()
(let* ((calendar-id
- (completing-read "Select account: "
- (mapcar 'car conf:gcal-calendar-id-org-file-map)))
- (gcal-file (cdr (assoc calendar-id
- conf:gcal-calendar-id-org-file-map))))
+ (completing-read "Select account: "
+ (mapcar 'car conf:gcal-calendar-id-org-file-map)))
+ (gcal-file (cdr (assoc calendar-id
+ conf:gcal-calendar-id-org-file-map))))
(find-file gcal-file)
(end-of-buffer)
(open-line 2)))
(setq cfw:org-capture-template
- '("c" "calendar event" entry
- (function conf:get-org-file-for-calendar-id)
- "* %?"))
+ '("c" "calendar event" entry
+ (function conf:get-org-file-for-calendar-id)
+ "\n* %?"))
(add-to-list 'org-capture-templates cfw:org-capture-template)
(defun conf:org-gcal-delete-at-point ()