Add company-box and basic setup

add auto-completion-enable-help-tooltip support

add auto-completion-use-company-box option and update document

add company-box config source url, remove empty line and join single line parenthesis

hide company-box mode line

update CHANGELOG.develop

hide doc popup when selection changed

add all-the-icon in auto-completion-packages

move icons config to auto-completion/init-all-the-icons according to duianto's advice

CHANGELOG.develop

@@ -1116,6 +1116,7 @@ Other:
 - New packages:
   - Added =yasnippet-snippets= package (thanks to Jack Kamm)
   - Added =ivy-yasnippet= (thanks to Kalle Lindqvist)
+  - Added =company-box= (thanks to Tianyao Chou)
 - Improvements:
   - Added =autocomplete-idle-delay= layer variable, which Spacemacs uses to set
     =company-idle-delay= or =ac-delay= (thanks to Benjamin Hipple)

layers/+completion/auto-completion/README.org

@@ -77,6 +77,7 @@ The default configuration of the layer is:
                      auto-completion-private-snippets-directory nil
                      auto-completion-enable-snippets-in-popup nil
                      auto-completion-enable-help-tooltip nil
+                     auto-completion-use-company-box nil
                      auto-completion-enable-sort-by-usage nil)))
 #+END_SRC
 
@@ -124,6 +125,9 @@ To enable manual non-automatic invocation of docstring tooltips, set it to
                       auto-completion-enable-help-tooltip 'manual)))
 #+END_SRC
 
+However the tooltip may overlap on text on macOS, you can use =company-box= on
+Emacs 26+ by setting =auto-completion-use-company-box= to =t=.
+
 ** Sort results by usage
 To enable sorting auto-completion results by their usage frequency set
 =auto-completion-enable-sort-by-usage= to =t=.

layers/+completion/auto-completion/config.el

@@ -52,6 +52,9 @@ selection.")
 If set to `manual', help tooltip appears only when invoked
 manually.")
 
+(defvar auto-completion-use-company-box nil
+  "If non nil company-box is used.")
+
 (defvar company-mode-completion-cancel-keywords
   '("do"
     "then"

layers/+completion/auto-completion/packages.el

@@ -15,6 +15,8 @@
         auto-complete
         ac-ispell
         company
+        (company-box :toggle auto-completion-use-company-box)
+        (all-the-icons :toggle auto-completion-use-company-box)
         (company-quickhelp :toggle auto-completion-enable-help-tooltip)
         company-statistics
         counsel
@@ -149,6 +151,72 @@
        (unless (eq auto-completion-enable-help-tooltip 'manual)
          (company-quickhelp-mode))))))
 
+(defun auto-completion/init-all-the-icons ()
+  (use-package all-the-icons
+    :after company
+    :config
+    (progn
+      (eval-and-compile
+        ;; Icons selected by liguangsheng
+        ;; https://github.com/liguangsheng/emacsd/blob/master/lisp/init-completion.el
+        (defun my-company-box-icon (family icon &rest args)
+          "Defines icons using `all-the-icons' for `company-box'."
+          (when icon
+            (let ((icon (pcase family
+                          ('octicon (all-the-icons-octicon icon :height 0.8 :v-adjust -0.05 args))
+                          ('faicon (all-the-icons-faicon icon :height 0.8 :v-adjust -0.0575))
+                          ('material (all-the-icons-material icon :height 0.8 :v-adjust -0.225 args))
+                          ('alltheicon (all-the-icons-alltheicon icon :height 0.8 args)))))
+              (unless (symbolp icon)
+                (concat icon
+                        (propertize " " 'face 'variable-pitch)))))))
+      (setq company-box-icons-all-the-icons
+            `((Unknown . ,(my-company-box-icon 'octicon "file-text"))
+              (Text . ,(my-company-box-icon 'faicon "file-text-o"))
+              (Method . ,(my-company-box-icon 'faicon "cube"))
+              (Function . ,(my-company-box-icon 'faicon "cube"))
+              (Constructor . ,(my-company-box-icon 'faicon "cube"))
+              (Field . ,(my-company-box-icon 'faicon "tag"))
+              (Variable . ,(my-company-box-icon 'faicon "tag"))
+              (Class . ,(my-company-box-icon 'faicon "cog"))
+              (Interface . ,(my-company-box-icon 'faicon "cogs"))
+              (Module . ,(my-company-box-icon 'alltheicon "less"))
+              (Property . ,(my-company-box-icon 'faicon "wrench"))
+              (Unit . ,(my-company-box-icon 'faicon "tag"))
+              (Value . ,(my-company-box-icon 'faicon "tag"))
+              (Enum . ,(my-company-box-icon 'faicon "file-text-o"))
+              (Keyword . ,(my-company-box-icon 'material "format_align_center"))
+              (Snippet . ,(my-company-box-icon 'material "content_paste"))
+              (Color . ,(my-company-box-icon 'material "palette"))
+              (File . ,(my-company-box-icon 'faicon "file"))
+              (Reference . ,(my-company-box-icon 'faicon "tag"))
+              (Folder . ,(my-company-box-icon 'faicon "folder"))
+              (EnumMember . ,(my-company-box-icon 'faicon "tag"))
+              (Constant . ,(my-company-box-icon 'faicon "tag"))
+              (Struct . ,(my-company-box-icon 'faicon "cog"))
+              (Event . ,(my-company-box-icon 'faicon "bolt"))
+              (Operator . ,(my-company-box-icon 'faicon "tag"))
+              (TypeParameter . ,(my-company-box-icon 'faicon "cog"))
+              (Template . ,(my-company-box-icon 'octicon "file-code")))))))
+
+(defun auto-completion/init-company-box ()
+  (use-package company-box
+    :hook '(company-mode . company-box-mode)
+    :commands 'company-box-doc-manually
+    :init (setq company-box-icons-alist 'company-box-icons-all-the-icons)
+    :config
+    (progn
+      (spacemacs|hide-lighter company-box-mode)
+      (setq company-box-backends-colors nil
+            company-box-max-candidates 1000
+            company-box-doc-enable nil)
+      (add-hook 'company-box-selection-hook
+                (lambda (selection frame) (company-box-doc--hide frame)))
+      (case auto-completion-enable-help-tooltip
+        ('manual (define-key company-active-map
+                   (kbd "M-h") #'company-box-doc-manually))
+        ('t (setq company-box-doc-enable t))))))
+
 (defun auto-completion/init-helm-c-yasnippet ()
   (use-package helm-c-yasnippet
     :defer t