Browse Source

Don't ignore errors also inherit more colors for company.

master
Josh Wolfe 1 year ago
parent
commit
eccbf03360
1 changed files with 10 additions and 10 deletions
  1. 10
    10
      emacs/.emacs.d/README.org

+ 10
- 10
emacs/.emacs.d/README.org View File

@@ -1668,16 +1668,16 @@ Autocomplete engine
#+END_SRC

#+BEGIN_SRC emacs-lisp :tangle yes
(ignore-errors
(require 'color)
(let ((bg (face-attribute 'default :background)))
(custom-set-faces
`(company-tooltip ((t (:inherit default :background ,(color-lighten-name bg 2)))))
`(company-scrollbar-bg ((t (:background ,(color-lighten-name bg 10)))))
`(company-scrollbar-fg ((t (:background ,(color-lighten-name bg 5)))))
`(company-tooltip-selection ((t (:inherit font-lock-function-name-face))))
`(company-tooltip-common ((t (:inherit font-lock-constant-face))))))))
(require 'color)
(let ((bg (face-attribute 'default :background))
(ac (face-attribute 'match :foreground)))
(custom-set-faces
`(company-tooltip ((t (:inherit default :background ,(color-lighten-name bg 2)))))
`(company-scrollbar-bg ((t (:background ,(color-lighten-name bg 10)))))
`(company-scrollbar-fg ((t (:background ,(color-lighten-name bg 5)))))
`(company-tooltip-selection ((t (:inherit font-lock-function-name-face))))
`(company-tooltip-common ((t (:inherit font-lock-constant-face))))
`(company-preview-common ((t (:foreground ,ac :background ,(color-lighten-name bg 10))))))))
#+END_SRC

** Flycheck Linting

Loading…
Cancel
Save