fix calfw: vlastní wrapper my/open-calendar s fallbackem pro různé verze calfw-org

config.el

@@ -1896,10 +1896,23 @@ current frame."
 ;; calfw — visual calendar
 (use-package! calfw :defer t)
 (use-package! calfw-org :defer t)
-(map! :leader "o C"
+(defun my/open-calendar ()
-      (cmd! (require 'calfw)
+  "Otevři calfw org kalendář (funguje s různými verzemi calfw-org)."
+  (interactive)
+  (require 'calfw)
   (require 'calfw-org)
-            (cfw:open-org-calendar)))
+  (cond
+   ((fboundp 'cfw:open-org-calendar)
+    (cfw:open-org-calendar))
+   ((and (fboundp 'cfw:create-calendar-component-buffer)
+         (fboundp 'cfw:org-create-source))
+    (switch-to-buffer
+     (cfw:create-calendar-component-buffer
+      :view 'month
+      :contents-sources (list (cfw:org-create-source "OldRose")))))
+   (t
+    (user-error "calfw-org nenalezen — spusť: doom/reload"))))
+(map! :leader "o C" #'my/open-calendar)
 
 ;; org-roam-ui — visual graph for org-roam
 (use-package! org-roam-ui