diff --git a/config.el b/config.el index 2fd7a9e..11df8f2 100644 --- a/config.el +++ b/config.el @@ -1934,30 +1934,9 @@ current frame." (evil-set-initial-state 'calfw-details-mode 'emacs) (defun my/open-calendar () - "Otevři calfw s barevnými zdroji. Suky=modrá, Klára=žlutá, Rodina=zelená, Agenda=černá. -Všechny zdroje přes calfw-org-create-source → jednotný formát → sort funguje. -Falls back to calfw-org-open-calendar pokud něco selže." + "Otevři calfw org kalendář — stabilní verze bez barev." (interactive) - (condition-case err - (let ((sources '())) - ;; Agenda — org-agenda-files (nil = auto) - (push (calfw-org-create-source nil "Agenda" "black") sources) - ;; CalDAV soubory jako agenda zdroje — stejný formát = sort funguje - (dolist (spec '(("Suky" "~/org/caldav/suky.org" "SteelBlue") - ("Klára" "~/org/caldav/klara.org" "Gold") - ("Rodina" "~/org/caldav/family.org" "ForestGreen"))) - (let ((file (expand-file-name (nth 1 spec)))) - (when (file-exists-p file) - (push (calfw-org-create-source - (list file) (nth 0 spec) (nth 2 spec)) - sources)))) - (calfw-open-calendar-buffer - :contents-sources (nreverse sources) - :view 'month - :sorter 'calfw-org--schedule-sorter)) - (error - (message "calfw colored sources failed (%s), fallback." (error-message-string err)) - (calfw-org-open-calendar)))) + (calfw-org-open-calendar)) (map! :leader "o C" #'my/open-calendar))