From cfe6849dfc37b45b985f13bdaf5ee941774e6a61 Mon Sep 17 00:00:00 2001 From: MitchMarq42 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 '((?_ . ?_) (?/ . ?/) (?* . ?*)