.emacs.d

the most bloated Emacs config on this planet
git clone https://git.trogloxene.org/.emacs.d.git
Log | Files | Refs

init-terminal-ui.el (3686B)


      1 ;;; init-terminal-ui.el --- ui and other style customization cofig -*- lexical-binding: t -*-
      2 
      3 ;;; Commentary:
      4 
      5 ;;; Code:
      6 
      7 ;; display file size in mode line
      8 (size-indication-mode t)
      9 
     10 ;; display column number in mode line
     11 (column-number-mode t)
     12 
     13 ;; highlight current line
     14 (global-hl-line-mode t)
     15 
     16 ;; theme
     17 (if (>= (display-color-cells) 16777216)
     18     (progn
     19       (defvar base03 "#062624")
     20       (defvar base02 "#0c2b29")
     21       (defvar base01 "#4d6967")
     22       (defvar base00 "#728e8c")
     23       (defvar base1 "#7f9b99")
     24       (defvar cyan "#01928d")
     25       (defvar blue "#2570cd")
     26       (defvar green "#3a9c36")
     27       (defvar magenta "#d33682")
     28       (defvar yellow "#a87c04")
     29       (defvar orange "#c24713")
     30       (defvar red "#ce2825")
     31 
     32       (custom-set-faces
     33        `(default ((t (:foreground ,base00 :background ,base03))))
     34        `(cursor ((t (:inverse t))))
     35        `(region ((t (:exdend t :foreground ,base03 :background ,base00))))
     36        `(shadow ((t (:foreground ,base01))))
     37        `(error ((t (:foreground ,orange))))
     38        `(warning ((t (:foreground ,yellow))))
     39        `(font-lock-builtin-face ((t (:foreground ,base00 :weight bold :slant normal))))
     40        `(font-lock-comment-face ((t (:foreground ,base01))))
     41        `(font-lock-keyword-face ((t (:foreground ,cyan :weight bold))))
     42        `(font-lock-variable-name-face ((t (:foreground ,blue))))
     43        `(font-lock-constant-face ((t (:foreground ,blue :weight bold))))
     44        `(font-lock-string-face ((t (:foreground ,green))))
     45        `(font-lock-type-face ((t (:foreground ,yellow))))
     46        `(font-lock-function-name-face ((t (:foreground ,blue))))
     47        `(hl-line ((t (:background ,base02 :extend t))))
     48        `(show-paren-match ((t (:foreground ,magenta :weight bold))))
     49        `(show-paren-mismatch ((t (:foreground ,base03 :background ,red))))
     50        `(icomplete-first-match ((t (:foreground ,yellow :weight bold))))
     51        `(completions-common-part ((t (:foreground ,blue))))
     52        `(minibuffer-prompt ((t (:foreground ,base01 :weight bold))))
     53        `(line-number ((t (:foreground ,base01 :weight extra-light))))
     54        `(button ((t (:foreground ,base00 :underline t))))
     55        `(mode-line ((t (:background ,base00 :foreground ,base03))))
     56        `(mode-line-inactive ((t (:background ,base02 :foreground ,base00))))
     57        `(dired-header ((t (:foreground ,green))))
     58        `(dired-directory ((t (:foreground ,blue))))
     59        `(dired-ignored ((t (:foreground ,base01))))
     60        `(isearch ((t (:background ,magenta :foreground ,base03))))
     61        `(lazy-highlight ((t (:background ,yellow :foreground ,base03))))
     62        `(isearch-fail ((t (:foreground ,red))))
     63        `(org-block ((t (:inhert default))))
     64        `(org-document-title ((t (:inhert default :weight bold))))
     65        `(org-document-info ((t (:inhert org-document-title))))
     66        `(eshell-prompt ((t (:foreground ,yellow :weight bold))))
     67        `(diff-header ((t (:foreground ,base00 :background ,base02))))
     68        `(diff-file-header ((t (:inherit: diff-header :weight bold))))
     69        `(diff-hunk-header ((t (:foreground "#c1a059" :background "#253224"))))
     70        `(diff-added ((t (:foreground "#73b971" :background "#103628"))))
     71        `(diff-refine-added ((t (:foreground "#8cc78d" :background "#1d522e"))))
     72        `(diff-removed ((t (:foreground "#e17360" :background "#2d2c25"))))
     73        `(diff-refine-removed ((t (:foreground "#e7917f" :background "#5c3225"))))
     74        `(xref-file-header ((t (:foreground ,base01))))
     75        `(xref-line-number ((t (:foreground ,green))))
     76        `(match ((t (:foreground ,base1 :background ,base02 :weight bold))))))
     77 
     78   (progn
     79     (global-hl-line-mode nil)))
     80 
     81 (provide 'init-terminal-ui)
     82 ;;; init-terminal-ui.el ends here