mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revise faces and org leading stars

Browse Source
This commit is contained in:
MitchMarq42 2023-01-03 21:11:18 -09:00
parent d9bbf546b7
commit cfe6849dfc
2 changed files with 30 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/mitch-defuns.el
View File

@ -80,10 +80,10 @@ Made solely to reduce lines in the init-file."
declarations for color schemes." declarations for color schemes."
(tooltip-mode -1) (tooltip-mode -1)
(menu-bar-mode -1) (menu-bar-mode -1)
;; (set-face-attribute 'fixed-pitch nil (set-face-attribute 'fixed-pitch nil
;; :family "MesloLGS NF") :family "MesloLGS NF")
;; (set-face-attribute 'default nil (set-face-attribute 'default nil
;; :family "MesloLGS NF") :family "MesloLGS NF")
;; (set-face-attribute 'variable-pitch nil ;; (set-face-attribute 'variable-pitch nil
;; :inherit 'default ;; :inherit 'default
;; :family "Sans Serif") ;; :family "Sans Serif")
@ -91,8 +91,8 @@ declarations for color schemes."
(setq right-divider-width 5) (setq right-divider-width 5)
(setq ring-bell-function 'ignore) (setq ring-bell-function 'ignore)
(setq rainbow-delimiters-max-face-count 2) (setq rainbow-delimiters-max-face-count 2)
(add-to-list 'initial-frame-alist '(alpha-background . 50)) (add-to-list 'initial-frame-alist '(alpha-background . 65))
(add-to-list 'default-frame-alist '(alpha-background . 50)) (add-to-list 'default-frame-alist '(alpha-background . 65))
(add-to-list 'default-frame-alist '(cursor-color . "white")) (add-to-list 'default-frame-alist '(cursor-color . "white"))
(add-to-list 'default-frame-alist '(fullscreen . maximized)) (add-to-list 'default-frame-alist '(fullscreen . maximized))
;; see also https://emacs.stackexchange.com/questions/7228/nice-tty-window-borders-in-24-4 ;; see also https://emacs.stackexchange.com/questions/7228/nice-tty-window-borders-in-24-4

27
lisp/mitch-packages.el
View File

@ -209,6 +209,8 @@ If the current window occupies the whole frame, split it."
("integration" "integration/*") ("integration" "integration/*")
(:exclude ".dir-locals.el" "*-tests.el"))) (:exclude ".dir-locals.el" "*-tests.el")))
:hook (eshell-mode . eat-eshell-visual-command-mode)) :hook (eshell-mode . eat-eshell-visual-command-mode))
(elpaca-use-package hide-mode-line
:commands (hide-mode-line-mode))
;; (elpaca-use-package eshell-vterm ;; (elpaca-use-package eshell-vterm
;; :after eshell ;; :after eshell
;; :custom (eshell-destroy-buffer-when-process-dies t) ;; :custom (eshell-destroy-buffer-when-process-dies t)
@ -473,7 +475,11 @@ targets."
(airline-display-directory t) (airline-display-directory t)
(airline-eshell-colors nil) (airline-eshell-colors nil)
(airline-shortened-directory-length 20) (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 ;; see https://github.com/dbordak/telephone-line/issues/126
;; (no telephone-line because why) ;; (no telephone-line because why)
@ -482,8 +488,14 @@ targets."
(elpaca-use-package (sv-theme (elpaca-use-package (sv-theme
:repo :repo
"https://git.mitchmarq42.xyz/mitch/vimcolors") "https://git.mitchmarq42.xyz/mitch/vimcolors")
:config (mitch/visual-setup) :config
(mitch/visual-setup)
(load-theme 'airline-ravenpower t)
:init (load-theme 'sv 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 (elpaca-use-package yascroll
:diminish :diminish
@ -540,12 +552,19 @@ targets."
:ensure nil :ensure nil
:diminish (org-indent-mode org-vw-mode) :diminish (org-indent-mode org-vw-mode)
:custom :custom
(org-hide-leading-stars t) ;; (org-hide-leading-stars t)
;; (org-startup-indented t) ;; (org-startup-indented t)
;; (org-hide-emphasis-markers t) ;; (org-hide-emphasis-markers t)
(inhibit-compacting-font-caches t)
:config :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 (add-hook 'after-save-hook
#'(lambda () (if (equal major-mode 'org-mode) (lambda () (if (equal major-mode 'org-mode)
(org-babel-tangle)))) (org-babel-tangle))))
(defvar org-electric-pairs '((?_ . ?_) (defvar org-electric-pairs '((?_ . ?_)
(?/ . ?/) (?/ . ?/)