emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
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