summary refs log tree commit diff
diff options
context:
space:
mode:
authorFranck Cuny <franck@fcuny.net>2023-01-22 11:38:18 -0800
committerFranck Cuny <franck@fcuny.net>2023-01-22 11:38:18 -0800
commit07d436d70fe9cbfd45122ff3352fe3348f6145b1 (patch)
tree3d63bc38e93e8179b5ccc163ebc04c2526584e47
parentref(packages): stop using straight.el (diff)
downloademacs.d-07d436d70fe9cbfd45122ff3352fe3348f6145b1.tar.gz
ref(ui): use standard-theme
It's like the standard color scheme but better.

Change-Id: Ida8f5c3dc53708c1aa0284b70474d3d810334171
-rw-r--r--emacs/custom/my-ui.el33
-rw-r--r--emacs/init.el3
2 files changed, 33 insertions, 3 deletions
diff --git a/emacs/custom/my-ui.el b/emacs/custom/my-ui.el
index ad9db49..930f615 100644
--- a/emacs/custom/my-ui.el
+++ b/emacs/custom/my-ui.el
@@ -10,6 +10,39 @@
 (menu-bar-mode -1)
 (blink-cursor-mode -1)
 
+;;; no fringe on the right side
+(set-fringe-mode '(8 . 0))
+
+(require 'standard-themes)
+(setq standard-themes-bold-constructs t
+      standard-themes-italic-constructs t
+      standard-themes-mixed-fonts t
+      standard-themes-variable-pitch-ui nil
+      standard-themes-mode-line-accented t
+
+      ;; Accepts a symbol value:
+      standard-themes-fringes 'intense
+
+      ;; The following accept lists of properties
+      standard-themes-links '(neutral-underline bold)
+      standard-themes-region '(no-extend neutral intense)
+      standard-themes-prompts '(bold italic)
+
+      ;; more complex alist to set weight, height, and optional
+      ;; `variable-pitch' per heading level (t is for any level not
+      ;; specified):
+      standard-themes-headings
+      '((0 . (extrabold 1.3))
+        (1 . (bold 1.25))
+        (2 . (semibold 1.2))
+        (3 . (medium 1.15))
+        (t . (1.1))))
+
+;; Disable all other themes to avoid awkward blending:
+(mapc #'disable-theme custom-enabled-themes)
+
+(load-theme 'standard-dark :no-confirm)
+
 (when (memq window-system '(mac ns))
   (add-to-list 'default-frame-alist '(font . "Source Code Pro-15"))
   (add-to-list 'default-frame-alist '(fullscreen . maximized))
diff --git a/emacs/init.el b/emacs/init.el
index 4b66932..8a1497d 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -3,9 +3,6 @@
 
 ;;; Code:
 
-;;; default colors, but inverted. Doing this early to avoid flickering.
-(invert-face 'default)
-
 ;; store all the customizations into that file. if the file does not
 ;; exists, we create an empty file, and then we load it.
 (setq custom-file (expand-file-name "var/custom.el" user-emacs-directory))