From de7d20f60e9d9f0a087b9ea2b19133ed8ee1852a Mon Sep 17 00:00:00 2001 From: Daneel Date: Tue, 24 Feb 2026 22:54:09 +0100 Subject: [PATCH] =?UTF-8?q?revert=20calfw=20colors:=20zp=C4=9Bt=20na=20cal?= =?UTF-8?q?fw-org-open-calendar=20(barvy=20zp=C5=AFsobovaly=20=C5=A1patn?= =?UTF-8?q?=C3=A9=20datum/sort)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- config.el | 25 ++----------------------- 1 file changed, 2 insertions(+), 23 deletions(-) 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))