awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

app/calendar: minor refactor; rename +calendar-open-calendar-function

Browse Source
This commit is contained in:
Henrik Lissner
2018-02-19 20:19:54 -05:00
parent 52c24197ba
commit d6cba4253f
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
modules/app/calendar/autoload.el
View File

@ -7,9 +7,11 @@
(unless (featurep! :feature workspaces)
(user-error ":feature workspaces is required, but disabled"))
(+workspace-switch "Calendar" t)
(if-let* ((buf (cl-find-if (lambda (it) (string-match-p "^\\*cfw" (buffer-name (window-buffer it))))
(doom-visible-windows))))
(select-window (get-buffer-window buf)) (call-interactively +calendar-open-calendar-function))
(if-let* ((win (cl-loop for win in (doom-visible-windows)
if (string-match-p "^\\*cfw" (buffer-name (window-buffer it)))
return win)))
(select-window win)
(call-interactively +calendar-open-function))
(+workspace/display))
;;;###autoload