lucas/dotfiles
1
0
Fork 0
Code Activity

feat(emacs): add calendar syncing functionality with org-agenda

Browse source 
Signed-off-by: Lucas Sta Maria <lucas@priime.dev>
This commit is contained in:
Lucas Sta Maria 2023-12-30 12:04:22 -05:00
parent 15c0c6e459
commit 2379ea91c6
No known key found for this signature in database
GPG key ID: F07FB16A826E3B47
1 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

21
.emacs.d/include/orgconfig.el
View file

@ -61,5 +61,26 @@
(add-hook 'org-mode-hook #'org-modern-indent-mode 90)
(add-hook 'org-agenda-finalize-hook #'org-modern-agenda)
;; Diary-syncing functionality
(defun pull-diary ()
"MUST sync the calendars prior to running this command"
(interactive)
(let* ((diary-file-name (expand-file-name "~/.emacs.d/diary"))
(calendar-dir (expand-file-name "~/.calendars/"))
(calendar-file-suffix ".ics")
(calendar-file? (lambda (f) (s-suffix? calendar-file-suffix f)))
(calendar-dir-files (directory-files calendar-dir))
(calendar-names (-filter calendar-file? calendar-dir-files))
(calendar-files (-map (lambda (f) (expand-file-name f calendar-dir)) calendar-names)))
(-map (lambda (f)
(icalendar-import-file f diary-file-name)
(find-file f)
(kill-buffer))
calendar-files)
(find-file diary-file-name)
(delete-duplicate-lines (point-min) (point-max))
(save-buffer)
(kill-buffer)))
(provide 'orgconfig)
;;; orgconfig.el ends here