From 10b0d63aef9646e73ad52e173b28d49a5285051d Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 28 Aug 2022 16:54:59 +0100
Subject: attic

---
 attic/misc.el                   | 54 ----------------------------------------
 custom/jao-custom-completion.el | 55 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 55 insertions(+), 54 deletions(-)

diff --git a/attic/misc.el b/attic/misc.el
index 9575909..120d152 100644
--- a/attic/misc.el
+++ b/attic/misc.el
@@ -212,60 +212,6 @@
     (goto-char (point-min))
     (when (re-search-forward "^[Mm]essage-[Ii][Dd]: <?\\([^><]+\\)>?" nil t)
       (match-string 1))))
-;;; company
-(use-package company
-  :ensure t
-  :custom ((company-backends '(company-capf
-                               ;; company-bbdb
-                               company-files
-                               company-dabbrev
-                               company-keywords))
-           (company-global-modes '(not slack-message-buffer-mode
-                                       circe-channel-mode
-                                       telega-chat-mode))
-           (company-format-margin-function nil) ;; #'company-text-icons-margin
-           (company-idle-delay 0.2)
-           (company-lighter "")
-           (company-lighter-base "")
-           (company-show-numbers nil)
-           (company-selection-wrap-around t)
-           (company-tooltip-limit 15)
-           (company-tooltip-align-annotations t)
-           (company-tooltip-offset-display 'lines)) ;; 'scrollbar
-
-  :config
-  (defun jao-complete-at-point ()
-    "Complete using company unless we're in the minibuffer."
-    (interactive)
-    (if (or (not company-mode) (window-minibuffer-p))
-        (completion-at-point)
-      (company-manual-begin)))
-
-  (defun jao-company-use-in-tab ()
-    (global-set-key [remap completion-at-point] #'jao-complete-at-point)
-    (global-set-key [remap completion-symbol] #'jao-complete-at-point)
-    (global-set-key (kbd "M-TAB") #'jao-complete-at-point))
-
-  (jao-company-use-in-tab)
-
-  :bind (:map company-active-map
-
-              ("<tab>" . company-complete-common-or-cycle)
-              ("TAB" . company-complete-common-or-cycle)
-
-              ("C-h" . company-show-doc-buffer)
-              ("M-." . company-show-location)
-              ("C-<return>" . company-complete-selection)
-              ([remap return] . company-abort)
-              ("RET" . company-abort)
-
-              :filter (or (not (derived-mode-p 'eshell-mode))
-                          (company-explicit-action-p))
-              ("<return>" . company-complete-selection)
-              ("RET" . company-complete-selection))
-  :diminish)
-
-(global-company-mode 1)
 ;;; mu4e
 (jao-load-path "mu4e")
 (use-package mu4e
diff --git a/custom/jao-custom-completion.el b/custom/jao-custom-completion.el
index 4bffd6d..0c67fbb 100644
--- a/custom/jao-custom-completion.el
+++ b/custom/jao-custom-completion.el
@@ -122,6 +122,61 @@
   (add-hook 'minibuffer-setup-hook #'corfu-in-minibuffer 1)
   (global-corfu-mode 1))
 
+;;; company
+(use-package company
+  :ensure t
+  :custom ((company-backends '(company-capf
+                               ;; company-bbdb
+                               company-files
+                               company-dabbrev
+                               company-keywords))
+           (company-global-modes '(not slack-message-buffer-mode
+                                       circe-channel-mode
+                                       telega-chat-mode))
+           (company-format-margin-function nil) ;; #'company-text-icons-margin
+           (company-idle-delay 0.2)
+           (company-lighter "")
+           (company-lighter-base "")
+           (company-show-numbers nil)
+           (company-selection-wrap-around t)
+           (company-tooltip-limit 15)
+           (company-tooltip-align-annotations t)
+           (company-tooltip-offset-display 'lines)) ;; 'scrollbar
+
+  :config
+  (defun jao-complete-at-point ()
+    "Complete using company unless we're in the minibuffer."
+    (interactive)
+    (if (or (not company-mode) (window-minibuffer-p))
+        (completion-at-point)
+      (company-manual-begin)))
+
+  (defun jao-company-use-in-tab ()
+    (global-set-key [remap completion-at-point] #'jao-complete-at-point)
+    (global-set-key [remap completion-symbol] #'jao-complete-at-point)
+    (global-set-key (kbd "M-TAB") #'jao-complete-at-point))
+
+  (jao-company-use-in-tab)
+
+  :bind (:map company-active-map
+
+              ("<tab>" . company-complete-common-or-cycle)
+              ("TAB" . company-complete-common-or-cycle)
+
+              ("C-h" . company-show-doc-buffer)
+              ("M-." . company-show-location)
+              ("C-<return>" . company-complete-selection)
+              ([remap return] . company-abort)
+              ("RET" . company-abort)
+
+              :filter (or (not (derived-mode-p 'eshell-mode))
+                          (company-explicit-action-p))
+              ("<return>" . company-complete-selection)
+              ("RET" . company-complete-selection))
+  :diminish)
+
+(unless (display-graphic-p) (global-company-mode 1))
+
 ;;; vertico
 (use-package vertico
   :ensure t
-- 
cgit v1.2.3