dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Org] Additional checking when exporting diary

This commit is contained in:
Daniel - 2018-03-17 11:11:37 +01:00
parent 9c1ab319bc
commit b517c17535
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
site-lisp/db-org.el
View File

@ -778,8 +778,12 @@ _y_: ?y? year _q_: quit _L__l__c_: ?l?
This is done only if the value of this variable is not null."
(interactive)
(require 'ox-icalendar)
(if (null org-icalendar-combined-agenda-file)
(message "`org-icalendar-combined-agenda-file’ not set, not exporting diary.")
(cond
((null org-icalendar-combined-agenda-file)
(user-error "`org-icalendar-combined-agenda-file’ not set, not exporting diary."))
((not (file-name-absolute-p org-icalendar-combined-agenda-file))
(user-error "`org-icalendar-combined-agenda-file’ not an absolute path, aborting."))
(t
(progn
(org-save-all-org-buffers)
(let ((org-agenda-files (cl-remove-if #'string-empty-p
@ -798,9 +802,10 @@ This is done only if the value of this variable is not null."
;; actual export; calls `org-release-buffers’ and may thus close
;; buffers we want to keep around … which is why we set
;; `org-agenda-new-buffers’ to nil
(delete-file org-icalendar-combined-agenda-file)
(when (file-exists-p org-icalendar-combined-agenda-file)
(delete-file org-icalendar-combined-agenda-file))
(org-icalendar-combine-agenda-files)
(message "Exporting diary ... done."))))))
(message "Exporting diary ... done.")))))))
(defun db/ical-to-org (ical-file-name org-file-name category filetags)
"Convert ICAL-FILE-NAME to ORG-FILE-NAME using ical2org.