General refactors & appease byte-compiler
This commit is contained in:
parent
7224f0870a
commit
4a5cf04761
7 changed files with 46 additions and 36 deletions
|
@ -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)))
|
||||
|
||||
|
|
|
@ -126,7 +126,7 @@ directives. By default, this only recognizes C directives.")
|
|||
(count-lines (point-min) (point-max))
|
||||
(buffer-size)))))
|
||||
|
||||
;; 'gq' moves the cursor to the beginning of selection. Disable this, since
|
||||
;; '=' moves the cursor to the beginning of selection. Disable this, since
|
||||
;; it's more disruptive than helpful.
|
||||
(defadvice! +evil--dont-move-cursor-a (orig-fn &rest args)
|
||||
:around #'evil-indent
|
||||
|
|
|
@ -3,6 +3,7 @@
|
|||
|
||||
;; REVIEW Refactor me
|
||||
|
||||
(defvar pcomplete-suffix-list)
|
||||
(defvar company-pcomplete-available 'unknown)
|
||||
|
||||
(defun company-pcomplete--prefix ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue