aciceri/emacs
Archived
1
0
Fork 0
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

Colors fix for terminal in GUI mode

Browse source
This commit is contained in:
Andrea Ciceri 2023-09-21 01:36:12 +02:00
parent 4cc329b6b4
commit b43f0e66c0
No known key found for this signature in database
1 changed files with 17 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

26
init.el
View file

@ -67,22 +67,30 @@
(use-package dracula-theme (use-package dracula-theme
:init :init
(require 'ansi-color)
(let ((colors '("black" "red" "green" "yellow" "blue" "magenta" "cyan" "white")))
(dolist (color colors)
(set-face-attribute (intern (format "ansi-color-%s" color)) nil :foreground color :background color)))
(let ((colors '("red" "green" "yellow" "blue" "cyan")))
(dolist (color colors)
(set-face-attribute (intern (format "ansi-color-bright-%s" color)) nil :foreground (format "dark %s" color) :background (format "dark %s" color))))
;; TODO find better colors (bright white and bright black should be different!) ;; TODO find better colors (bright white and bright black should be different!)
(set-face-attribute 'ansi-color-bright-white nil :foreground "grey" :background "grey") (set-face-attribute 'ansi-color-bright-white nil :foreground "grey" :background "grey")
(set-face-attribute 'ansi-color-bright-black nil :foreground "grey" :background "grey") (set-face-attribute 'ansi-color-bright-black nil :foreground "grey" :background "grey")
(set-face-attribute 'ansi-color-bright-magenta nil :foreground "magenta" :background "magenta") (set-face-attribute 'ansi-color-bright-magenta nil :foreground "magenta" :background "magenta")
:config :config
(load-theme 'dracula t)) ; TODO abstract the following paradigm in a new use-package keyword :after-frame-one-time
(defvar ccr/theme-loaded nil "Indicate if the theme has already been loaded")
;; load the theme only when a frame is created for the first time (not every time)
:hook (server-after-make-frame . (lambda ()
(when (not ccr/theme-loaded)
(setq ccr/theme-loaded 't)
(load-theme 'dracula t)
;; HACK Since dracula doesn't directly expose colors as faces we load
;; term in order to load them as term faces (which instead it provides)
;; Then we assign these faces to eat faces
;; TODO shouldn't this be moved to eat's use-package section?
(require 'term)
(let ((colors '("black" "red" "green" "yellow" "blue" "magenta" "cyan" "white")))
(dolist (color colors)
(set-face-attribute (intern (format "eat-term-color-%s" color)) nil :inherit (intern (format "term-color-%s" color)))))
))))
(use-package solaire-mode (use-package solaire-mode
:hook (server-after-make-frame . (lambda () (load-theme 'dracula t))) ;; FIXME when this is closed: https://github.com/hlissner/emacs-solaire-mode/issues/46
:init :init
(solaire-global-mode +1) (solaire-global-mode +1)
:config :config