summaryrefslogtreecommitdiff
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))