diff --git a/config.el b/config.el index 97a6d28..fcb4f8b 100644 --- a/config.el +++ b/config.el @@ -1930,30 +1930,9 @@ current frame." (evil-set-initial-state 'calfw-details-mode 'emacs) (defun my/open-calendar () - "Otevři calfw s barevnými zdroji per kalendář. - Suky = modrá | Klára = žlutá | Rodina = zelená | Agenda = černá (default)" + "Otevři calfw org kalendář." (interactive) - (require 'calfw) - (require 'calfw-org) - (let* ((cd (expand-file-name "~/org/caldav/")) - (f (lambda (path) (expand-file-name path cd))) - (sources - (delq nil - (list - ;; Org-agenda položky — černá, default styl - (calfw-org-create-source org-agenda-files "Agenda" "black") - ;; CalDAV — barevné zdroje - (when (file-exists-p (funcall f "suky.org")) - (calfw-org-create-file-source "Suky" (funcall f "suky.org") "SteelBlue")) - (when (file-exists-p (funcall f "klara.org")) - (calfw-org-create-file-source "Klára" (funcall f "klara.org") "Gold")) - (when (file-exists-p (funcall f "family.org")) - (calfw-org-create-file-source "Rodina" (funcall f "family.org") "ForestGreen")) - (when (file-exists-p (funcall f "placeholders.org")) - (calfw-org-create-file-source "Placeholders" (funcall f "placeholders.org") "gray60")))))) - (calfw-open-calendar-buffer - :view 'month - :contents-sources sources))) + (calfw-org-open-calendar)) (map! :leader "o C" #'my/open-calendar))