theme.el 1.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243
  1. (defun theme/tty()
  2. (set-face-attribute 'company-tooltip nil
  3. :background "#FFFFFF"))
  4. (defun theme/gui()
  5. (interactive)
  6. (package-use 'kaolin-themes)
  7. (setq theme-name (intern (x-get-resource "themeName" "emacs")))
  8. (unless theme-name (setq theme-name 'kaolin-galaxy))
  9. (load-theme theme-name t)
  10. (global-hl-line-mode)
  11. (when nil
  12. (set-face-attribute 'default nil
  13. :background "#121212"
  14. :foreground "#FFFFFF")
  15. (set-face-attribute 'mode-line nil
  16. :background "#202020")
  17. (set-face-attribute 'linum nil
  18. :foreground "#AAAAAA")
  19. (set-face-attribute 'region nil
  20. :background "#202040")
  21. (set-face-attribute 'hl-line nil
  22. :background "#202020")
  23. (set-face-attribute 'cursor nil
  24. :background "#CCCCCC"
  25. :foreground "#151515")
  26. )
  27. (setq font-name (x-get-resource "fontName" "emacs"))
  28. (unless font-name (setq font-name "Hack"))
  29. (set-face-attribute 'default nil
  30. :family font-name
  31. :height 112))
  32. (defun theme/general())
  33. (theme/general)
  34. (if (and (display-graphic-p) (not (daemonp)))
  35. (theme/gui)
  36. (theme/tty))