Advertisement
Guest User

Untitled

a guest
Jun 16th, 2019
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 1.41 KB | None | 0 0
  1. (deftheme my
  2.   "Created 2019-06-16.")
  3.  
  4. (custom-theme-set-faces
  5.  'my
  6.  
  7.  ;; disable default faces
  8.  '(minibuffer-prompt            ((t nil)))
  9.  '(font-lock-variable-name-face ((t nil)))
  10.  '(font-lock-type-face          ((t nil)))
  11.  '(font-lock-function-name-face ((t nil)))
  12.  
  13.  ;; modify (commonly used in coding) faces to be less distracting
  14.  '(font-lock-comment-face  ((t (:foreground "gray35" :slant italic))))
  15.  '(font-lock-doc-face      ((t (:inherit (font-lock-comment-face)))))
  16.  '(font-lock-keyword-face  ((t (:weight bold))))
  17.  '(font-lock-constant-face ((t (:inherit (font-lock-keyword-face)))))
  18.  '(font-lock-builtin-face  ((t (:inherit (font-lock-keyword-face)))))
  19.  '(font-lock-string-face   ((t (:foreground "DarkOliveGreen4"))))
  20.  
  21.  ;; windows
  22.  '(vertical-border ((t (:foreground "gray20"))))
  23.  '(fringe          ((t (:foreground "IndianRed1"))))
  24.  
  25.  ;; mode-line
  26.  '(mode-line          ((t (:background "grey70" :foreground "black"))))
  27.  '(mode-line-inactive ((t (:background "grey10" :foreground "gray50" :weight light :inherit (mode-line)))))
  28.  
  29.  ;; org-mode
  30.  '(org-done             ((t (:foreground "PaleGreen1"))))
  31.  '(org-todo             ((t (:foreground "IndianRed1"))))
  32.  '(org-table            ((t (:inherit (font-lock-string-face)))))
  33.  '(org-date             ((t (:underline t))))
  34.  '(org-block            ((t (:background "gray5" :inherit (shadow)))))
  35.  '(org-agenda-structure ((t nil)))
  36.  )
  37.  
  38. (provide-theme 'my)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement