From f9a48d1f45dc4584fd431a0a0357e2a1730c861d Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.com>
Date: Mon, 9 Oct 2023 16:19:59 +0300
Subject: emacs:(aesthetics) Set font to source code pro

---
 .emacs.d/modules/thanos-aesthetics.el | 52 +++++++++++++++++++----------------
 1 file changed, 29 insertions(+), 23 deletions(-)

(limited to '.emacs.d/modules/thanos-aesthetics.el')

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
-- 
cgit v1.2.3