fix org-caldav+calfw: days-in-past 1825 (5 let); calfw přidá caldav/ soubory jako zdroj
This commit is contained in:
20
config.el
20
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)
|
||||
|
||||
(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)))))
|
||||
(cfw:open-org-calendar))))
|
||||
|
||||
(map! :leader "o C" #'my/open-calendar))
|
||||
|
||||
;; org-roam-ui — visual graph for org-roam
|
||||
(use-package! org-roam-ui
|
||||
|
||||
Reference in New Issue
Block a user