From efeb4347ca122c920cfed9c8f6fd1dba48cabb5b Mon Sep 17 00:00:00 2001 From: Daneel Date: Tue, 24 Feb 2026 22:24:06 +0100 Subject: [PATCH] =?UTF-8?q?revert:=20odstra=C5=88=20barevn=C3=A9=20calfw?= =?UTF-8?q?=20zdroje=20(rozbily=20start),=20jednoduch=C3=BD=20calfw-org-op?= =?UTF-8?q?en-calendar?= 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 97a6d28..fcb4f8b 100644 --- a/config.el +++ b/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ář. - Suky = modrá | Klára = žlutá | Rodina = zelená | Agenda = černá (default)" + "Otevři calfw org kalendář." (interactive) - (require 'calfw) - (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))) + (calfw-org-open-calendar)) (map! :leader "o C" #'my/open-calendar))