General refactors & appease byte-compiler

This commit is contained in:
Henrik Lissner 2020-02-02 02:05:20 -05:00
parent 7224f0870a
commit 4a5cf04761
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
7 changed files with 46 additions and 36 deletions

View file

@ -3,9 +3,9 @@
(defvar +calendar--wconf nil)
(defun +calendar--init ()
(if-let* ((win (cl-loop for win in (doom-visible-windows)
if (string-match-p "^\\*cfw:" (buffer-name (window-buffer win)))
return win)))
(if-let (win (cl-find-if (lambda (b) (string-match-p "^\\*cfw:" (buffer-name b)))
(doom-visible-windows)
:key #'window-buffer))
(select-window win)
(call-interactively +calendar-open-function)))