emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/material-theme 0193c06 095/118: Add true color support


From: ELPA Syncer
Subject: [nongnu] elpa/material-theme 0193c06 095/118: Add true color support
Date: Thu, 21 Oct 2021 18:06:28 -0400 (EDT)

branch: elpa/material-theme
commit 0193c067e2db56b846b813af1a6d77f3da5fd533
Author: Anurag Mishra <anuragmi@usc.edu>
Commit: Anurag Mishra <anuragmi@usc.edu>

    Add true color support
    
    A patched version of Emacs allows for using true color in supported
    terminal[1]. If such support is found, we use same color in terminal as
    in a X-Window Emacs.
    
    [1] https://gist.github.com/XVilka/8346728
---
 material-light-theme.el | 12 +++++++-----
 material-theme.el       | 15 ++++++++-------
 2 files changed, 15 insertions(+), 12 deletions(-)

diff --git a/material-light-theme.el b/material-light-theme.el
index ab34fbc..fd080e6 100644
--- a/material-light-theme.el
+++ b/material-light-theme.el
@@ -47,12 +47,14 @@
 (display-color-cells (selected-frame))
 (let* ((class '((class color) (min-colors 89)))
        (256color (eq (display-color-cells (selected-frame)) 256))
+       (truecolor (eq (display-color-cells (selected-frame)) 16777216))
+
+       (background (if (or window-system truecolor) "#263238" "#262626")) ;; 
sidebar-container
+       (current-line (if (or window-system truecolor)  "#37474f" "#3a3a3a")) 
;; tree-row
+       (far-background (if (or window-system truecolor)  "#1c1f26" "#121212")) 
;; panel-control
+       (inactive-gray (if (or window-system truecolor) "#78909c" "#8a8a8a"))
+       (header-color (if (or window-system truecolor) "#455A64" "#5f5f5f"))
 
-       (background (if window-system "#FAFAFA" "#FAFAFA")) ;; sidebar-container
-       (current-line (if window-system  "#ECEFF1" "#dadada")) ;; tree-row
-       (far-background (if window-system  "#e0f7fa" "#e0f7fa")) ;; 
panel-control
-       (inactive-gray (if window-system "#cfd8dc" "#cfd8dc"))
-       (header-color (if window-system "#C8E6C9" "#C8E6C9"))
        (subtle "#a7adba") ;; tree-row-hover-disclosure-button-control
        (selection "#90A4AE") ;; tab-control-dirty-tab-close-button
        (secondary-selection "#bf616a") ;; tab-control-hover-tab-close-button
diff --git a/material-theme.el b/material-theme.el
index 6fdad07..deeac8a 100644
--- a/material-theme.el
+++ b/material-theme.el
@@ -46,13 +46,14 @@
   "A UI Theme for Emacs based on material design colors")
 (display-color-cells (selected-frame))
 (let* ((class '((class color) (min-colors 89)))
-       (256color (eq (display-color-cells (selected-frame)) 256))
-
-       (background (if window-system "#263238" "#262626")) ;; sidebar-container
-       (current-line (if window-system  "#37474f" "#3a3a3a")) ;; tree-row
-       (far-background (if window-system  "#1c1f26" "#121212")) ;; 
panel-control
-       (inactive-gray (if window-system "#78909c" "#8a8a8a"))
-       (header-color (if window-system "#455A64" "#5f5f5f"))
+       (256color  (eq (display-color-cells (selected-frame)) 256))
+       (truecolor (eq (display-color-cells (selected-frame)) 16777216))
+
+       (background (if (or window-system truecolor) "#263238" "#262626")) ;; 
sidebar-container
+       (current-line (if (or window-system truecolor)  "#37474f" "#3a3a3a")) 
;; tree-row
+       (far-background (if (or window-system truecolor)  "#1c1f26" "#121212")) 
;; panel-control
+       (inactive-gray (if (or window-system truecolor) "#78909c" "#8a8a8a"))
+       (header-color (if (or window-system truecolor) "#455A64" "#5f5f5f"))
        (subtle "#a7adba") ;; tree-row-hover-disclosure-button-control
        (selection "#555555") ;; tab-control-dirty-tab-close-button
        (secondary-selection "#bf616a") ;; tab-control-hover-tab-close-button



reply via email to

[Prev in Thread] Current Thread [Next in Thread]