(deftheme my) (make-face 'my-todo-face) (make-face 'my-note-face) (custom-theme-set-faces 'my '(default ((t (:background "#1c1c1c" :foreground "#eeeeee")))) '(cursor ((t (:background "#5fff87" :foreground "#1c1c1c")))) '(font-lock-builtin-face ((t (:foreground "#5fafd7")))) '(font-lock-comment-face ((t (:foreground "#767676")))) '(font-lock-constant-face ((t (:foreground "#ff87d7")))) '(font-lock-function-name-face ((t (:foreground "#ffffff")))) '(font-lock-keyword-face ((t (:foreground "#87afd7" :weight bold)))) '(font-lock-preprocessor-face ((t (:foreground "#d7afd7")))) '(font-lock-string-face ((t (:foreground "#afaf87")))) '(font-lock-type-face ((t (:foreground "#87af87")))) '(font-lock-variable-name-face ((t (:foreground "#bcbcbc")))) '(hl-line ((t (:background "#183448" :extend t)))) '(line-number ((t (:foreground "#585858" :background "#1c1c1c")))) '(line-number-current-line ((t (:foreground "#5fff87" :background "#183448" :weight bold)))) '(mode-line ((t (:background "#303030" :foreground "#c6c6c6" :box nil)))) '(mode-line-inactive ((t (:background "#262626" :foreground "#767676" :box nil)))) '(region ((t (:background "#30736f" :foreground "#ffffff")))) '(my-todo-face ((t (:foreground "#ff875f" :weight bold)))) '(my-note-face ((t (:foreground "#ff875f" :weight bold))))) (defun my-highlight-keywords () (font-lock-add-keywords nil '(("\\<\\(TODO\\):" 1 'my-todo-face prepend) ("\\<\\(NOTE\\):" 1 'my-note-face prepend)))) (add-hook 'prog-mode-hook #'my-highlight-keywords) (provide-theme 'my)