Major optimization refactor, across the board

+ enable lexical-scope everywhere (lexical-binding = t): ~5-10% faster
  startup; ~5-20% general boost
+ reduce consing, function calls & garbage collection by preferring
  cl-loop & dolist over lambda closures (for mapc[ar], add-hook, and
  various cl-lib filter/map/reduce functions) -- where possible
+ prefer functions with dedicated opcodes, like assq (see byte-defop's
  in bytecomp.el for more)
+ prefer pcase & cond (faster) over cl-case
+ general refactor for code readability
+ ensure naming & style conventions are adhered to
+ appease byte-compiler by marking unused variables with underscore
+ defer minor mode activation to after-init, emacs-startup or
  window-setup hooks; a customization opportunity for users + ensures
  custom functionality won't interfere with startup.

modules/completion/company/autoload.el

@@ -1,4 +1,4 @@
-;;; company.el
+;;; completion/company/autoload.el -*- lexical-binding: t; -*-
 
 ;;;###autoload
 (defun +company/complete ()
@@ -15,17 +15,18 @@
 C-x C-l."
   (interactive (list 'interactive))
   (require 'company)
-  (unless (bound-and-true-p company-mode) (company-mode))
-  (let ((lines (split-string
-                (replace-regexp-in-string
-                 "^[\t\s]+" ""
-                 (concat (buffer-substring-no-properties (point-min) (line-beginning-position))
-                         (buffer-substring-no-properties (line-end-position) (point-max))))
-                "\\(\r\n\\|[\n\r]\\)" t)))
-    (cl-case command
-      (interactive (company-begin-backend '+company/whole-lines))
-      (prefix (company-grab-line "^[\t\s]*\\(.+\\)" 1))
-      (candidates (all-completions arg lines)))))
+  (pcase command
+    ('interactive (company-begin-backend '+company/whole-lines))
+    ('prefix      (company-grab-line "^[\t\s]*\\(.+\\)" 1))
+    ('candidates
+     (all-completions
+      arg
+      (split-string
+       (replace-regexp-in-string
+        "^[\t\s]+" ""
+        (concat (buffer-substring-no-properties (point-min) (line-beginning-position))
+                (buffer-substring-no-properties (line-end-position) (point-max))))
+       "\\(\r\n\\|[\n\r]\\)" t)))))
 
 ;;;###autoload
 (defun +company/dict-or-keywords ()