revert: odstraň barevné calfw zdroje (rozbily start), jednoduchý calfw-org-open-calendar

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ář.
+    "Otevři calfw org kalendář."
-  Suky = modrá | Klára = žlutá | Rodina = zelená | Agenda = černá (default)"
     (interactive)
-    (require 'calfw)
+    (calfw-org-open-calendar))
-    (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)))
 
   (map! :leader "o C" #'my/open-calendar))