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

Remove obsolete Org diary export function

Browse Source 
Haven't used this for a while.
This commit is contained in:
Daniel Borchmann 2025-11-16 18:01:29 +01:00
parent a53a8ccbd2
commit 77d1918d47
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
2 changed files with 0 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
init.el
View File

@ -717,7 +717,6 @@ split horizontally again, but this extra work should not matter much."
db/org-cleanup-continuous-clocks db/org-cleanup-continuous-clocks
db/org-update-headline-log-note db/org-update-headline-log-note
db/find-csv-in-org db/find-csv-in-org
db/export-diary
db/org-insert-checklist db/org-insert-checklist
db/org-copy-body-from-item-to-point db/org-copy-body-from-item-to-point
db/org-find-links-to-current-item db/org-find-links-to-current-item

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

@ -1823,44 +1823,6 @@ clocked-in tasks to jump to."
(run-hooks 'org-clock-goto-hook)) (run-hooks 'org-clock-goto-hook))
(user-error "Cannot display target buffer")))) (user-error "Cannot display target buffer"))))
;;; Calendar
(defun db/export-diary ()
"Export diary.org as ics file to `org-icalendar-combined-agenda-file’.
This is done only if the value of this variable is not null."
(interactive)
(cond
((null org-icalendar-combined-agenda-file)
(message "`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 #'null
(list db/org-default-org-file
db/org-default-home-file
db/org-default-work-file)))
(org-agenda-new-buffers nil))
;; check whether we need to do something
(when (cl-some (lambda (org-file)
(file-newer-than-file-p org-file
org-icalendar-combined-agenda-file))
org-agenda-files)
(message "Exporting diary ...")
;; open files manually to avoid polluting `org-agenda-new-buffers’; we
;; don’t want these buffers to be closed after exporting
(mapc #'find-file-noselect org-agenda-files)
;; 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
(when (file-exists-p org-icalendar-combined-agenda-file)
(delete-file org-icalendar-combined-agenda-file)
(sit-for 3))
(org-icalendar-combine-agenda-files)
(message "Exporting diary ... done.")))))))
;;; Find items by link to current headline ;;; Find items by link to current headline