From cfe6849dfc37b45b985f13bdaf5ee941774e6a61 Mon Sep 17 00:00:00 2001
From: MitchMarq42 <dr.m.perseos@gmail.com>
Date: Tue, 3 Jan 2023 21:11:18 -0900
Subject: [PATCH] Revise faces and org leading stars

---
 lisp/mitch-defuns.el   | 12 ++++++------
 lisp/mitch-packages.el | 29 ++++++++++++++++++++++++-----
 2 files changed, 30 insertions(+), 11 deletions(-)

diff --git a/lisp/mitch-defuns.el b/lisp/mitch-defuns.el
index 8f95e20..3d35759 100644
--- a/lisp/mitch-defuns.el
+++ b/lisp/mitch-defuns.el
@@ -80,10 +80,10 @@ Made solely to reduce lines in the init-file."
 declarations for color schemes."
   (tooltip-mode -1)
   (menu-bar-mode -1)
-  ;; (set-face-attribute 'fixed-pitch nil
-  ;; 		      :family "MesloLGS NF")
-  ;; (set-face-attribute 'default nil
-  ;; 		      :family "MesloLGS NF")
+  (set-face-attribute 'fixed-pitch nil
+		      :family "MesloLGS NF")
+  (set-face-attribute 'default nil
+		      :family "MesloLGS NF")
   ;; (set-face-attribute 'variable-pitch nil
   ;; 		      :inherit 'default
   ;; 		      :family "Sans Serif")
@@ -91,8 +91,8 @@ declarations for color schemes."
   (setq right-divider-width 5)
   (setq ring-bell-function 'ignore)
   (setq rainbow-delimiters-max-face-count 2)
-  (add-to-list 'initial-frame-alist '(alpha-background . 50))
-  (add-to-list 'default-frame-alist '(alpha-background . 50))
+  (add-to-list 'initial-frame-alist '(alpha-background . 65))
+  (add-to-list 'default-frame-alist '(alpha-background . 65))
   (add-to-list 'default-frame-alist '(cursor-color . "white"))
   (add-to-list 'default-frame-alist '(fullscreen . maximized))
   ;; see also https://emacs.stackexchange.com/questions/7228/nice-tty-window-borders-in-24-4
diff --git a/lisp/mitch-packages.el b/lisp/mitch-packages.el
index 65b4b5d..a9f2666 100644
--- a/lisp/mitch-packages.el
+++ b/lisp/mitch-packages.el
@@ -209,6 +209,8 @@ If the current window occupies the whole frame, split it."
 			     ("integration" "integration/*")
 			     (:exclude ".dir-locals.el" "*-tests.el")))
   :hook (eshell-mode . eat-eshell-visual-command-mode))
+(elpaca-use-package hide-mode-line
+  :commands (hide-mode-line-mode))
 ;; (elpaca-use-package eshell-vterm
 ;;   :after eshell
 ;;   :custom (eshell-destroy-buffer-when-process-dies t)
@@ -473,7 +475,11 @@ targets."
   (airline-display-directory t)
   (airline-eshell-colors nil)
   (airline-shortened-directory-length 20)
-  :config (load-theme 'airline-kolor t))
+  :custom-face
+  (mode-line
+   ((t (:box (:style released-button :line-width (0.5 . 0.5))))))
+  ;; :config (load-theme 'airline-kolor t)
+  )
 ;; see https://github.com/dbordak/telephone-line/issues/126
 ;; (no telephone-line because why)
 
@@ -482,8 +488,14 @@ targets."
 (elpaca-use-package (sv-theme
 		     :repo
 		     "https://git.mitchmarq42.xyz/mitch/vimcolors")
-  :config (mitch/visual-setup)
+  :config
+  (mitch/visual-setup)
+  (load-theme 'airline-ravenpower t)
   :init (load-theme 'sv t))
+;; (elpaca-use-package doom-themes
+;;   :config (mitch/visual-setup)
+;;   (load-theme 'airline-ravenpower t)
+;;   :init (load-theme 'doom-acario-dark t))
 
 (elpaca-use-package yascroll
   :diminish
@@ -540,13 +552,20 @@ targets."
   :ensure nil
   :diminish (org-indent-mode org-vw-mode)
   :custom
-  (org-hide-leading-stars t)
+  ;; (org-hide-leading-stars t)
   ;; (org-startup-indented t)
   ;; (org-hide-emphasis-markers t)
+  (inhibit-compacting-font-caches t)
   :config
+  (add-hook 'org-mode-hook
+	    (lambda ()
+	      (font-lock-add-keywords
+	       nil
+	       `((,(rx bol (+ "*")) . ;; shadow
+		  font-lock-doc-markup-face)))))
   (add-hook 'after-save-hook
-	    #'(lambda () (if (equal major-mode 'org-mode)
-			     (org-babel-tangle))))
+	    (lambda () (if (equal major-mode 'org-mode)
+		      (org-babel-tangle))))
   (defvar org-electric-pairs '((?_ . ?_)
 			       (?/ . ?/)
 			       (?* . ?*)