Emacs: Switch theme to doom-outrun-electric.

This commit is contained in:
tastytea 2020-04-17 03:51:57 +02:00
parent 935352d33a
commit 4f9957a5f1
4 changed files with 28 additions and 27 deletions

View File

@ -1,6 +1,6 @@
;;; appearance.el --- Configure appearance. -*- lexical-binding: t; -*-
;; Time-stamp: <2020-04-10T14:17:26+0200>
;; Time-stamp: <2020-04-17T02:38:34+0200>
;;; Commentary:
@ -54,9 +54,8 @@
(unless slow-computer
(use-package doom-themes
:after (all-the-icons)
:config (progn (load-theme 'doom-molokai t)
(doom-themes-visual-bell-config)) ; Flash modeline on error.
:custom-face (font-lock-comment-face ((t (:foreground "#667755")))))
:config (progn (load-theme 'doom-outrun-electric t)
(doom-themes-visual-bell-config))) ; Flash modeline on error.
) ; unless slow-computer.
;; Neat modeline.

View File

@ -1,6 +1,6 @@
;;; ui.el --- Configure user interfaces. -*- lexical-binding: t; -*-
;; Time-stamp: <2020-04-15T14:24:20+0200>
;; Time-stamp: <2020-04-17T03:22:05+0200>
;;; Commentary:
;; * treemacs
@ -99,11 +99,8 @@
(tab-line ((t (:inherit ruler-mode-default))))
(tab-line-tab ((t (:inherit ruler-mode-default))))
(tab-line-tab-inactive ((t (:inherit tab-line-tab))))
(tab-line-tab-current ((t (:inherit tab-line-tab
:background "grey10"
:foreground "grey70"))))
(tab-line-highlight ((t (:inherit tab-line-tab-current
:foreground "white"))))))
(tab-line-tab-current ((t (:inherit ruler-mode-fill-column))))
(tab-line-highlight ((t (:inherit tab-line-tab-current))))))
(provide 'basics/ui)
;;; ui.el ends here

View File

@ -1,6 +1,6 @@
;;; common.el --- Common programming settings. -*- lexical-binding: t; -*-
;; Time-stamp: <2020-03-27T17:09:20+0100>
;; Time-stamp: <2020-04-17T02:54:46+0200>
;;; Commentary:
@ -174,10 +174,11 @@ collapse other projects."
;; Highlight indentation.
(use-package hl-indent
:custom-face (hl-indent-face
((t (:inherit hl-indent-face ; Reversed whitespace.
:background "gray18"
:foreground "#1c1e1f"))))
:after (doom-themes whitespace)
:config (progn
(set-face-background 'hl-indent-face ; Reverse whitespace-space.
(face-foreground 'whitespace-space))
(set-face-foreground 'hl-indent-face (face-background 'default)))
:hook (prog-mode . hl-indent-mode))
;; Tries to find points of interest in buffer and jumps to them.

View File

@ -1,6 +1,6 @@
;;; common.el --- Common settings for text files. -*- lexical-binding: t; -*-
;; Time-stamp: <2020-04-15T14:23:05+0200>
;; Time-stamp: <2020-04-17T03:49:42+0200>
;;; Commentary:
@ -40,18 +40,23 @@
;; Ruler with fill-column marker.
(use-package ruler-mode
:config (progn
(set-face-background 'ruler-mode-default
(face-foreground 'line-number))
(set-face-foreground 'ruler-mode-default
(face-background 'default))
(set-face-foreground 'ruler-mode-column-number
(face-background 'default))
(set-face-foreground 'ruler-mode-fill-column
(face-foreground 'line-number-current-line))
(set-face-foreground 'ruler-mode-comment-column
(face-foreground 'ruler-mode-fill-column))
(set-face-foreground 'ruler-mode-goal-column
(face-foreground 'ruler-mode-fill-column))
(defun my/ruler-on ()
"Turn `ruler-mode' on."
(ruler-mode 1)))
:custom-face
(ruler-mode-default ((t
(:inherit default
:background "gray18"
:foreground "dim gray"
:box nil))))
(ruler-mode-column-number ((t
(:inherit ruler-mode-default
:foreground "dark gray"))))
:custom-face (ruler-mode-default ((t (:inherit·default
:box·nil))))
:hook ((find-file . my/ruler-on)
(text-mode . my/ruler-on))) ; For the scratch buffer.
@ -237,8 +242,7 @@
:hook ((prog-mode . my/ws-load-local-vars-first)
(conf-mode . my/ws-load-local-vars-first)
(text-mode . my/ws-load-local-vars-first)
(before-save . my/ws-maybe-cleanup))
:custom-face (whitespace-space ((nil :foreground "gray18"))))
(before-save . my/ws-maybe-cleanup)))
(use-package ripgrep)