   :if (display-graphic-p)
   :after company
   :init
-  (setq company-quickhelp-delay 0.5)
+  (setq company-quickhelp-delay 0.4)
   (setq company-quickhelp-use-propertized-text t)
   :config
   (company-quickhelp-mode 1))

(use-package company
  :init
  (setq company-idle-delay nil)
  (setq company-tooltip-idle-delay 1)
  (setq company-require-match nil)
  (setq company-minimum-prefix-length 1)

  (define-key company-active-map "\C-p" #'company-select-previous)
  (define-key company-active-map "\M-n" nil)
  (define-key company-active-map "\M-p" nil)
  (define-key company-active-map "\M-." #'company-show-location)
  ;; cycle back and forth with TAB and S-TAB
  (define-key company-active-map [tab] #'company-complete-common-or-cycle)
  (define-key company-active-map (kbd "TAB") #'company-complete-common-or-cycle)
