fix org-caldav+calfw: days-in-past 1825 (5 let); calfw přidá caldav/ soubory jako zdroj

This commit is contained in:
2026-02-24 22:07:32 +01:00
parent 08268c97b5
commit d7d925ab29

View File

@@ -1768,7 +1768,7 @@ current frame."
:commands my/org-caldav-sync
:config
;; Stahuj události i z minulosti (default 60 dní nestačí pro historické události)
(setq org-caldav-days-in-past nil) ; nil = stahuj všechny události bez časového filtru
(setq org-caldav-days-in-past 1825) ; 5 let zpět — stáhni i historické události
(defun my/org-caldav-sync ()
"Sync 3 CalDAV kalendářů:
@@ -1920,10 +1920,22 @@ current frame."
;; Evil přebírá klávesy — calfw musí být v emacs-state (haji-ali fork)
(evil-set-initial-state 'calfw-calendar-mode 'emacs)
(evil-set-initial-state 'calfw-details-mode 'emacs)
(map! :leader "o C"
(cmd! (if (fboundp 'calfw-org-open-calendar)
(calfw-org-open-calendar)
(cfw:open-org-calendar)))))
(defun my/open-calendar ()
"Otevři calfw se všemi kalendáři: org-agenda + caldav/ soubory."
(interactive)
(require 'calfw)
(require 'calfw-org)
;; Přidej caldav/ soubory do calfw jako další zdroj
(let* ((caldav-dir (expand-file-name "~/org/caldav/"))
(caldav-files (when (file-directory-p caldav-dir)
(directory-files caldav-dir t "\\.org$")))
(org-agenda-files (append org-agenda-files caldav-files)))
(if (fboundp 'calfw-org-open-calendar)
(calfw-org-open-calendar)
(cfw:open-org-calendar))))
(map! :leader "o C" #'my/open-calendar))
;; org-roam-ui — visual graph for org-roam
(use-package! org-roam-ui