diff options
-rw-r--r-- | .emacs.d/modules/thanos-aesthetics.el | 52 |
1 files changed, 29 insertions, 23 deletions
diff --git a/.emacs.d/modules/thanos-aesthetics.el b/.emacs.d/modules/thanos-aesthetics.el index 3f468fe..195f9a9 100644 --- a/.emacs.d/modules/thanos-aesthetics.el +++ b/.emacs.d/modules/thanos-aesthetics.el @@ -57,28 +57,31 @@ (column-number-mode) (global-display-line-numbers-mode 1) (menu-bar--display-line-numbers-mode-relative) + ;;Disable line numbers for some modes -(dolist (mode '(pdf-view-mode-hook - org-mode-hook - term-mode-hook - shell-mode-hook - eshell-mode-hook - vterm-mode-hook - elfeed - vterm-mode - telega-chat-mode-hook - telega-root-mode-hook - nov-mode-hook - transmission-mode-hook)) - (add-hook mode (lambda () - (display-line-numbers-mode 0)))) +(defvar thanos/no-line-number-modes + '(pdf-view-mode-hook + org-mode-hook + term-mode-hook + shell-mode-hook + eshell-mode-hook + vterm-mode-hook + elfeed + vterm-mode + telega-chat-mode-hook + telega-root-mode-hook + nov-mode-hook + transmission-mode-hook)) + +(cl-loop for mode in thanos/no-line-number-modes + do (add-hook mode (lambda () (display-line-numbers-mode 0)))) ;; Set font-size for each device (custom-set-faces - (if is-hermes '(default ((t (:inherit nil :height 120 :family "Jetbrains Mono")))) - '(default ((t (:inherit nil :height 135 :family "Jetbrains Mono")))))) + (if is-hermes '(default ((t (:inherit nil :height 120 :family "Source Code Pro")))) + '(default ((t (:inherit nil :height 135 :family "Source Code Pro")))))) -;; Modus-themes +;; Modus-themes configuration (setf modus-themes-italic-constructs t modus-themes-bold-constructs nil modus-themes-mixed-fonts nil @@ -227,12 +230,12 @@ (add-hook 'ibuffer-mode-hook 'nerd-icons-ibuffer-mode) -(defun thanos/markdown-theme () - "Adjust height for markdown" - (interactive) - (dolist - (face - '(markdown-header-face-1 :height 2.0)))) +;; (defun thanos/markdown-theme () +;; "Adjust height for markdown" +;; (interactive) +;; (dolist +;; (face +;; '(markdown-header-face-1 :height 2.0)))) (require 'markdown-mode) (setq markdown-header-scaling t) @@ -257,5 +260,8 @@ (define-key thanos/applications-map (kbd "w") 'thanos/set-wallpaper) +;; Symbols +(add-hook 'emacs-lisp-mode-hook 'prettify-symbols-mode) + (provide 'thanos-aesthetics) ;;; thanos-aesthetics.el ends here |