From 8b5874e9acb48f7b3b414b4556762c1835ee4c5d Mon Sep 17 00:00:00 2001 From: mattkae Date: Fri, 27 Jan 2023 08:41:19 -0500 Subject: Increasing font size, and fixing a bug where all modes were using perfect-margin-mode --- lisp/general.el | 4 ++-- lisp/text.el | 8 +++++++- 2 files changed, 9 insertions(+), 3 deletions(-) (limited to 'lisp') diff --git a/lisp/general.el b/lisp/general.el index d3f004b..3fdf129 100644 --- a/lisp/general.el +++ b/lisp/general.el @@ -43,7 +43,7 @@ ;; Default Values (setq-default indent-tabs-mode nil) ; use spaces only if nil (setq-default tab-width 2) ; Assuming you want your tabs to be four spaces wide -(set-face-attribute 'default nil :font "Source Code Pro-10") +(set-face-attribute 'default nil :font "Source Code Pro-12") (set-fontset-font t '(?😊 . ?😎) "Segoe UI Emoji") ;;(set-face-attribute 'default nil :height 110 :family "Consolas") @@ -128,7 +128,7 @@ (set-face-background 'hl-line "unspecified") (set-face-attribute 'hl-line nil :box '(:line-width -1 - :color "gray35" + :color "gray90" :style nil)) diff --git a/lisp/text.el b/lisp/text.el index 835f04d..fd43fbd 100644 --- a/lisp/text.el +++ b/lisp/text.el @@ -11,10 +11,16 @@ (display-line-numbers-mode -1) ) +(defun my-perfect-margin-mode-hook() + (when (and (stringp buffer-file-name) + (string-match "\\.txt\\'" buffer-file-name)) + (perfect-margin-mode 1)) + ) + (use-package perfect-margin :ensure t :config - (add-hook 'text-mode-hook 'perfect-margin-mode)) + (add-hook 'text-mode-hook 'my-perfect-margin-mode-hook)) (add-hook 'text-mode-hook 'setup-text-mode) (require 'ispell) -- cgit v1.2.1