Minor reformatting & refactors across the board

modules/app/everywhere/config.el

@@ -24,12 +24,12 @@
     (doom-modeline-def-modeline 'emacs-everywhere
       '(bar modals emacs-everywhere buffer-position word-count parrot selection-info)
       '(input-method major-mode checker))
-    (defun emacs-everywhere-set-modeline ()
-      (doom-modeline-set-modeline 'emacs-everywhere))
-    (add-hook 'emacs-everywhere-init-hooks #'emacs-everywhere-set-modeline))
-  (when (featurep! :ui workspaces)
-    (defun emacs-everywhere-clear-persp-info ()
-      (setq persp-emacsclient-init-frame-behaviour-override nil))
-    (add-hook 'emacs-everywhere-init-hooks #'emacs-everywhere-clear-persp-info))
+    (add-hook! 'emacs-everywhere-init-hooks
+      (defun +everywhere-set-modeline ()
+        (doom-modeline-set-modeline 'emacs-everywhere))))
+  (add-hook! 'emacs-everywhere-init-hooks
+    (defun +everywhere-clear-persp-info-h ()
+      (when (bound-and-true-p persp-mode)
+        (setq persp-emacsclient-init-frame-behaviour-override nil))))
   (after! solaire-mode
     (add-hook 'emacs-everywhere-init-hooks #'solaire-mode)))

modules/completion/company/autoload.el

@@ -81,8 +81,10 @@ Examples:
 ;;;###autoload
 (defun +company-has-completion-p ()
   "Return non-nil if a completion candidate exists at point."
-  (and (company-manual-begin)
-       (= company-candidates-length 1)))
+  (when company-mode
+    (unless company-candidates-length
+      (company-manual-begin))
+    (= company-candidates-length 1)))
 
 ;;;###autoload
 (defun +company/toggle-auto-completion ()

modules/completion/company/config.el

@@ -73,6 +73,7 @@
   (after! eldoc
     (eldoc-add-command 'company-complete-selection
                        'company-complete-common
+                       'company-capf
                        'company-abort)))
 
 

modules/config/default/+evil-bindings.el

@@ -118,8 +118,8 @@
 
 ;;; :completion
 (map! (:when (featurep! :completion company)
-       :i "C-@"      (cmds! (not (minibufferp)) #'+company/complete)
-       :i "C-SPC"    (cmds! (not (minibufferp)) #'+company/complete)
+       :i "C-@"    (cmds! (not (minibufferp)) #'company-complete-common)
+       :i "C-SPC"  (cmds! (not (minibufferp)) #'company-complete-common)
        (:after company
         (:map company-active-map
          "C-w"     nil  ; don't interfere with `evil-delete-backward-word'

modules/config/default/config.el

@@ -100,7 +100,11 @@
     (dolist (brace '("(" "{" "["))
       (sp-pair brace nil
                :post-handlers '(("||\n[i]" "RET") ("| " "SPC"))
-               ;; I likely don't want a new pair if adjacent to a word or opening brace
+               ;; Don't autopair opening braces if before a word character or
+               ;; other opening brace. The rationale: it interferes with manual
+               ;; balancing of braces, and is odd form to have s-exps with no
+               ;; whitespace in between, e.g. ()()(). Insert whitespace if
+               ;; genuinely want to start a new form in the middle of a word.
                :unless '(sp-point-before-word-p sp-point-before-same-p)))
 
     ;; In lisps ( should open a new form if before another parenthesis