From 36af0a9f50a57292e519a1e9dad4effc14e6b9db Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C5=81ukasz=20Pankowski?= <lukpank@o2.pl>
Date: Mon, 7 Nov 2022 19:25:01 +0100
Subject: [PATCH] use base16-theme, customize smart-mode-line, at start set
 dark theme

---
 init.el | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/init.el b/init.el
index e092002..27c2cfa 100644
--- a/init.el
+++ b/init.el
@@ -483,23 +483,24 @@
 (use-package smart-mode-line
   :config
   (setq sml/no-confirm-load-theme t
+	sml/shorten-directory t
+	sml/shorten-modes t
+	sml/name-width 50
+	sml/mode-width 'full
 	sml/theme 'respectful)
   (sml/setup))
 
 
 ;;; ### Switching themes ###
 
-(use-package zenburn-theme
-  :defer)
-
-(use-package apropospriate-theme
+(use-package base16-theme
   :defer)
 
 (use-package faff-theme
   :defer)
 
-(setq my-dark-theme 'zenburn
-      my-light-theme 'apropospriate-light)
+(setq my-dark-theme 'base16-espresso
+      my-light-theme 'base16-mexico-light)
 
 (defun my-select-theme (theme)
   (mapc #'disable-theme custom-enabled-themes)
@@ -510,6 +511,16 @@
 	      t)
   (sml/setup))
 
+(defun my-select-theme-if-none-selected (frame)
+  (if (and (eq 'x (window-system frame))
+	   (null (seq-filter (lambda (theme)
+			       (not (string-prefix-p "smart-mode-line-" (symbol-name theme))))
+			     custom-enabled-themes)))
+      (my-select-theme 'dark)))
+
+(my-select-theme-if-none-selected nil)
+(add-to-list 'after-make-frame-functions #'my-select-theme-if-none-selected)
+
 (defun my-toggle-theme ()
   "Toggle between dark and light themes."
   (interactive)