max/doom-config
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixup! WIP: org-caldav

Browse Source
This commit is contained in:
Max Schlueter 2024-02-10 18:39:31 +01:00
parent 24f8d78e58
commit 07c8e15411
1 changed files with 4 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
config.el
View File

@ -227,67 +227,6 @@
(map! :map Info-mode-map
:n "g n" #'Info-goto-node))
;; (setq max/org-calendar-directory (concat org-directory "calendar/"))
;; (setq max/org-calendar-file (concat max/org-calendar-directory "calendar.org"))
;;; https://www.reddit.com/r/orgmode/comments/8rl8ep/making_orgcaldav_useable/
;; (use-package! org-caldav
;; :after org
;; :init
;; ;; (defun org-caldav-sync-at-close ()
;; ;; (org-caldav-sync)
;; ;; (save-some-buffers))
;; ;; (defvar org-caldav-sync-timer nil
;; ;; "Timer that `org-caldav-push-timer' used to reschedule itself, or nil.")
;; ;; (defun org-caldav-sync-with-delay (secs)
;; ;; (when org-caldav-sync-timer
;; ;; (cancel-timer org-caldav-sync-timer))
;; ;; (setq org-caldav-sync-timer
;; ;; (run-with-idle-timer
;; ;; (* 1 secs) nil 'org-caldav-sync)))
;; (setq org-icalendar-alarm-time 1)
;; :config
;; (setq org-caldav-resume-aborted 'always
;; org-caldav-save-directory max/org-calendar-directory
;; org-caldav-backup-file (concat max/org-calendar-directory "org-caldav-backup.org")
;; org-caldav-url "https://nextcloud.maxschlueter.com/remote.php/dav/calendars/max"
;; org-caldav-calendar-id "calendar"
;; org-caldav-files `(,max/org-calendar-file)
;; org-caldav-inbox max/org-calendar-file)
;; (after! org-agenda
;; (add-to-list 'org-agenda-files max/org-calendar-file t)
;; (setq org-agenda-include-diary t
;; org-agenda-insert-diary-strategy 'top-level
;; org-agenda-insert-diary-extract-time t
;; org-agenda-diary-file max/org-calendar-file))
;; ;; (setq org-caldav-calendars
;; ;; `((:calendar-id "personal"
;; ;; :files (,(concat max/org-calendar-directory "personal.org"))
;; ;; :inbox ,(concat max/org-calendar-directory "personal.org"))
;; ;; (:calendar-id "work"
;; ;; :files (,(concat max/org-calendar-directory "work.org"))
;; ;; :inbox ,(concat max/org-calendar-directory "work.org"))
;; ;; ))
;; (defun max/org-caldav-get-inbox ()
;; (let* ((calid (completing-read "Calendar: "
;; (cl-loop for cal in org-caldav-calendars
;; collect (plist-get cal :calendar-id))
;; nil t))
;; (calinbox (cl-loop for cal in org-caldav-calendars
;; when (string= (plist-get cal :calendar-id) calid)
;; return (plist-get cal :inbox))))
;; calinbox))
;; ;; (add-hook 'after-save-hook
;; ;; (lambda ()
;; ;; (when (eq major-mode 'org-mode)
;; ;; (org-caldav-sync-with-delay 300))))
;; ;; (add-hook 'kill-emacs-hook 'org-caldav-sync-at-close)
;; )
(after! biblio
(map! :map biblio-selection-mode-map
@ -397,6 +336,10 @@
(setq +latex-viewers '(pdf-tools))
(after! eww
(setq eww-auto-rename-buffer 'title))
;; (setq! +biblio-pdf-library-dir "~/Nextcloud/Papers/"
;; +biblio-default-bibliography-files '("~/Nextcloud/Papers/library.bib")
;; +biblio-notes-path org-roam-directory)