From 3d6a8ed794357e9764fe7281c2070601be6daae0 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 17 Apr 2021 04:01:45 +0100
Subject: the popup keeps me company

---
 attic/counsel.org | 61 -------------------------------------------------------
 1 file changed, 61 deletions(-)

(limited to 'attic')

diff --git a/attic/counsel.org b/attic/counsel.org
index a2147b5..f6814ae 100644
--- a/attic/counsel.org
+++ b/attic/counsel.org
@@ -1,66 +1,5 @@
 #+title: Completion configuration using ivy, counsel and friends
 
-* company
-  #+begin_src emacs-lisp
-    (use-package company
-      :ensure t
-      :custom
-      ((company-global-modes '(clojure-mode
-                               clojurec-mode
-                               emacs-lisp-mode
-                               ;; eshell-mode
-                               haskell-mode
-                               haskell-interactive-mode
-                               idris-mode
-                               lisp-interaction-mode
-                               message-mode
-                               org-mode
-                               pie-mode
-                               scheme-mode))
-       (company-idle-delay 0.15)
-       (company-lighter "")
-       (company-lighter-base "")
-       (company-show-numbers nil)
-       (company-tooltip-limit 15)
-       (company-tooltip-align-annotations t)
-       (company-transformers '(company-sort-by-occurrence)))
-
-      :config
-
-      (defun jao-complete-at-point ()
-        "Complete using company unless we're in the minibuffer."
-        (interactive)
-        (if (window-minibuffer-p) (completion-at-point) (company-manual-begin)))
-
-      :bind (;; ([remap completion-at-point] . #'jao-complete-at-point)
-             ;; ([remap complete-symbol] . #'jao-complete-at-point)
-
-             ;; The following are keybindings that take effect whenever
-             ;; the completions menu is visible, even if the user has not
-             ;; explicitly interacted with Company.
-             :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)
-
-             :filter (or (not (derived-mode-p 'eshell-mode))
-                         (company-explicit-action-p))
-             ("<return>" . #'company-complete-selection)
-             ("RET" . #'company-complete-selection))
-
-      :bind* (("M-TAB" . #'jao-complete-at-point))
-
-    :diminish)
-
-    ;; (use-package company-math :ensure t :after company)
-
-    ;; (global-company-mode 1)
-
-  #+end_src
-
 * selectrum
   #+begin_src emacs-lisp :load no
     (use-package selectrum
-- 
cgit v1.2.3