revert calfw colors: zpět na calfw-org-open-calendar (barvy způsobovaly špatné datum/sort)

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á.
+    "Otevři calfw org kalendář — stabilní verze bez barev."
-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."
     (interactive)
-    (condition-case err
+    (calfw-org-open-calendar))
-        (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))))
 
   (map! :leader "o C" #'my/open-calendar))