Changeset fc6fa17 in dotfiles for emacs/.emacs.d/.emacs-config.org

Timestamp:

Sep 6, 2024, 3:49:57 AM (2 months ago)

Author:

Mikhail Kirillov <w96k@…>

Branches:

master

Children:

5211578

Parents:

fde9de8

Message:

Update mostly only fonts

File:

• emacs/.emacs.d/.emacs-config.org (modified) (4 diffs)

emacs/.emacs.d/.emacs-config.org

@@ -28 +28 @@
 
   (setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
-                     ("melpa" . "http://melpa.org/packages/")))
+                     ("melpa" . "http://melpa.org/packages/")))
 
   (when (< emacs-major-version 27)
@@ -82 +82 @@
 #+BEGIN_SRC emacs-lisp :tangle init.el
   (setq config-dotfiles-path "/home/w96k/projects/dotfiles/emacs/.emacs.d/"
-        config-path "~/.emacs.d/"
-        config-name ".emacs-config.org")
+        config-path "~/.emacs.d/"
+        config-name ".emacs-config.org")
 
   (defun config-visit ()
@@ -483 +483 @@
 #+begin_src emacs-lisp :tangle init.el
   (use-package rmsbolt
-    :defer t
-    :hook (prog-mode . rmsbolt-mode))
+    :defer t)
 #+end_src
 
@@ -1224 +1223 @@
 #+end_src
 
+** Window Divider
+#+begin_src emacs-lisp :tangle init.el
+  (window-divider-mode t)
+#+end_src
+
+** Use specific font for major modes
+#+begin_src emacs-lisp :tangle init.el
+  (buffer-face-mode t)
+
+  (defun set-normal-font ()
+    "Set normal weight font in current buffer"
+    (interactive)
+    (buffer-face-mode 1)
+    (setq buffer-face-mode-face '(:weight normal))
+    (buffer-face-mode))
+
+  ;; Use monospaced font faces in current buffer
+  (defun set-bold-font ()
+    "Sets a bold font in current buffer"
+    (interactive)
+    (buffer-face-mode 1)
+    (setq buffer-face-mode-face '(:weight bold))
+    (buffer-face-mode))
+
+  (add-hook 'dired-mode-hook 'set-normal-font)
+  (add-hook 'org-mode-hook 'set-normal-font)
+#+end_src