               (define-key deft-mode-map (kbd "<C-backspace>") #'deft-filter-clear))))
 
 (use-package company
-  :commands ( global-company-mode)
   :general
     ("s-d"        #'company-complete)
   :init
   (setq company-minimum-prefix-length 1            ; just one char needed
         company-dabbrev-downcase nil)              ; never downcase
+  (add-hook 'prog-mode-hook #'company-mode)
   :config
   (use-package company-quickhelp
     :demand
     :config
     (company-quickhelp-mode 1))
-  (global-company-mode)
-  :diminish company-mode)
+  :diminish company-mode "ⓒ")
 
 (use-package counsel-gtags
   :commands ( counsel-gtags-find-definition

           '(left-curly-arrow nil))            ; use left curly error for wrapped lines
  :config
  (column-number-mode t)                       ; display column/row of cursor in mode-line
  (global-visual-line-mode t)                  ; wrap long lines
  :diminish visual-line-mode
  :demand)

;; built-in "abbrev" package

    ("s-n"        #'next-error)
    ("s-p"        #'previous-error)
  :init
  (add-hook 'prog-mode-hook #'visual-line-mode)
  (add-hook 'text-mode-hook #'visual-line-mode)
  (add-hook 'visual-line-mode-hook #'(lambda () (diminish 'visual-line-mode "ⓥ")))
  (add-hook 'auto-fill-mode-hook #'(lambda () (message "here") (diminish 'auto-fill-function "⮨")))
  (setq kill-ring-max 200                      ; More killed items
        kill-do-not-save-duplicates t          ; No duplicates in kill ring
        save-interprogram-paste-before-kill t  ; save clipboard before killing
