Remove Company and its subpackages

configuration.org

@@ -268,16 +268,6 @@ it as early as possible.
 
 ** Utility functions
 
-*** Check if something is ~nil~ or a list of strings
-
-#+BEGIN_SRC emacs-lisp
-(defun nil-or-list-of-strings-p (var)
-  "Return t if VAR is either nil or a list holding only strings."
-  (or (null var)
-      (not (null (delq nil
-            (mapcar (lambda (x) (and (stringp x) x)) var))))))
-#+END_SRC
-
 *** Get the number at point
 
 #+BEGIN_SRC emacs-lisp
@@ -3598,59 +3588,6 @@ See previous versions of the current file.
   (([f6] . git-timemachine-toggle)))
 #+END_SRC
 
-* Company & Co.
-
-#+BEGIN_SRC emacs-lisp
-(use-package company
-  :delight " 🏢"
-  :custom
-  (company-idle-delay nil)
-  (company-dabbrev-downcase nil)
-  :config
-  (setq company-frontends '(company-pseudo-tooltip-frontend
-                            company-echo-metadata-frontend))
-  (put 'company-clang-arguments 'safe-local-variable #'nil-or-list-of-strings-p)
-  (global-company-mode))
-#+END_SRC
-
-** Company completion based on local C headers
-
-#+BEGIN_SRC emacs-lisp
-(use-package company-c-headers)
-#+END_SRC
-
-** Company mode in the shell
-
-#+BEGIN_SRC emacs-lisp
-(use-package company-shell)
-#+END_SRC
-
-** REST Client completion via Company
-
-#+BEGIN_SRC emacs-lisp
-(use-package company-restclient)
-#+END_SRC
-
-** Insert Emoji with Company
-
-#+BEGIN_SRC emacs-lisp
-(use-package company-emoji
-  :after
-  company
-  :init
-  (--set-emoji-font nil)
-  :config
-  (add-to-list 'company-backends 'company-emoji))
-#+END_SRC
-
-** Web mode (~web-mode~ and ~emmet-mode~, too) backend for Company
-
-#+BEGIN_SRC emacs-lisp
-(use-package company-web
-  :config
-  (require 'company-web-html))
-#+END_SRC
-
 * Consult, Vertico, Orderless
 
 The new completing system!