From 07d436d70fe9cbfd45122ff3352fe3348f6145b1 Mon Sep 17 00:00:00 2001
From: Franck Cuny <franck@fcuny.net>
Date: Sun, 22 Jan 2023 11:38:18 -0800
Subject: ref(ui): use standard-theme

It's like the standard color scheme but better.

Change-Id: Ida8f5c3dc53708c1aa0284b70474d3d810334171
---
 emacs/custom/my-ui.el | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

(limited to 'emacs/custom/my-ui.el')

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))
-- 
cgit 1.4.1