diff --git a/config.el b/config.el index 0316de4..aec2acb 100644 --- a/config.el +++ b/config.el @@ -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