mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2025-12-26 11:52:44 -08:00
Code Issues Projects Releases Wiki Activity

fix(calendar): adapt to upstream refactor (part 2)

Browse source 
Amend: 4186b63b38
Amend: 5222baa373
Fix: doomemacs#8598
Ref: kiwanami/emacs-calfw@b7c26ecbe9
This commit is contained in:
Henrik Lissner 2025-12-07 17:56:56 -05:00
parent 01b958ea35
commit 43a93e8321
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 4 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
modules/app/calendar/autoload.el
View file

@ -5,6 +5,7 @@
"Name of the workspace created by `=calendar', dedicated to calfw.")
(defun +calendar--init ()
(require 'calfw)
(if-let* ((win (get-buffer-window calfw-calendar-buffer-name)))
(select-window win)
(call-interactively +calendar-open-function)))
@ -41,15 +42,11 @@
(doom-kill-matching-buffers "^\\*cfw[:-]"))
;;;###autoload
(defun +calendar/open-calendar ()
(defun +calendar/open-calendar (&rest args)
"TODO"
(interactive)
(calfw-open-calendar-buffer
;; :custom-map calfw-my-cal-map
:contents-sources
(list
(calfw-org-create-source (face-foreground 'default)) ; orgmode source
)))
(apply #'calfw-org-open-calendar nil "org-agenda" (face-foreground 'default)
args))
;;;###autoload
(defun +calendar-calfw-render-button-a (title command &optional state)