[emacs] update 3 drones

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index f58e843..7b4a1a9 100644 (file)
--- a/init.org
+++ b/init.org
@@ -846,7 +846,7 @@ In short, my favourite way of life.
 
 #+begin_src emacs-lisp
 (use-package org
-  :defer 3
+  :defer 1
   :general
   (amin--leader-keys
     :states 'normal
@@ -990,7 +990,7 @@ Not just how I do git, but /the/ way to do git.
 
 #+begin_src emacs-lisp
 (use-package magit
-  :defer 2
+  :defer 1
   :general (amin--leader-keys "g s" 'magit-status)
   :bind ("s-g" . magit-status)
   :config
@@ -1286,7 +1286,7 @@ TODO: break this giant source block down into individual org sections.
 
 #+begin_src emacs-lisp
 (use-package company
-  :defer 2
+  :defer 1
   :bind
   (:map company-active-map
         ([tab]    . company-complete-common-or-cycle)
@@ -1799,7 +1799,7 @@ Emacs package that displays available keybindings in popup
 
 #+begin_src emacs-lisp
 (use-package projectile
-  :defer 2
+  :defer t
   :bind-keymap ("C-c p" . projectile-command-map)
   :config
   (projectile-mode)
@@ -2278,8 +2278,11 @@ For when I /have to/ use GH.
         message-user-fqdn "aminb.org")
   :hook (;; (message-setup . mml-secure-message-sign-pgpmime)
          (message-mode . flyspell-mode)
-         (message-mode . (lambda () (setq fill-column 65
-                                     message-fill-column 65))))
+         (message-mode . (lambda ()
+                           (setq fill-column 65
+                                 message-fill-column 65)
+                           (make-local-variable 'company-idle-delay)
+                           (setq company-idle-delay 0.2))))
   ;; :custom-face
   ;; (message-header-subject ((t (:foreground "#111" :weight semi-bold))))
   ;; (message-header-to      ((t (:foreground "#111" :weight normal))))
@@ -2342,9 +2345,10 @@ I tried using =borg-elpa= instead of doing it like this, but it added
   :load-path "lisp/bbdb"
   :init
   (load (expand-file-name "lisp/bbdb/bbdb-autoloads.el" user-emacs-directory))
-  (bbdb-mua-auto-update-init 'message)
-  (setq bbdb-mua-auto-update-p 'query)
-  (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus))
+  ;; (bbdb-mua-auto-update-init 'message)
+  (setq bbdb-mua-auto-update-p 'query
+        bbdb-complete-mail nil)
+  (bbdb-initialize 'gnus 'message))
 #+end_src
 
 ** COMMENT message-x