From e5a3dcffe36b91bb07a807b42a5ab5249424a1bd Mon Sep 17 00:00:00 2001 From: bd Date: Thu, 30 May 2024 15:42:31 -0600 Subject: Use terminus as default font --- .config/emacs/modules/bd--windows.el | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) (limited to '.config/emacs/modules/bd--windows.el') diff --git a/.config/emacs/modules/bd--windows.el b/.config/emacs/modules/bd--windows.el index b27c309..226ab12 100644 --- a/.config/emacs/modules/bd--windows.el +++ b/.config/emacs/modules/bd--windows.el @@ -9,6 +9,7 @@ ;; no fringe (fringe-mode '(0 . 0)) +;; movement (defvar-keymap bd/windmove :repeat t "b" #'windmove-left @@ -40,12 +41,12 @@ dedicated buffer will never be automatically orphaned." (defun bd/clamp (lower-bound upper-bound value) (max lower-bound (min value upper-bound))) -(defun set-frame-alpha (value)q - "Sets the transparency of the frame background. 0=transparent/100=opaque" - (interactive "nTransparency Value (30 - 100 opaque): ") - (setq value (bd/clamp 30 100 value)) - (set-frame-parameter (selected-frame) 'alpha `(,value . ,value)) - (message "Alpha set to %d" value)) +(defun set-frame-alpha (value) + "Sets the transparency of the frame background. 0=transparent/100=opaque" + (interactive "nTransparency Value (30 - 100 opaque): ") + (setq value (bd/clamp 30 100 value)) + (set-frame-parameter (selected-frame) 'alpha `(,value . ,value)) + (message "Alpha set to %d" value)) (add-to-list 'default-frame-alist '(alpha . (82 . 82))) @@ -65,11 +66,12 @@ dedicated buffer will never be automatically orphaned." ;; native ("\\*Async Shell Command\\*.*" . hide) compilation-mode - help-mode + completion-list-mode messages-buffer-mode occur-mode ("Output\\*$" . hide) ;; info + help-mode Info-mode "^\\*slime-description.*\\*$" ;; repls @@ -99,8 +101,10 @@ dedicated buffer will never be automatically orphaned." (shackle-rules '( ;; native (compilation-mode :noselect t :align bottom :size 0.2) + (completion-list-mode :noselect t :align bottom :size 0.1) ;; info - (Info-mode :select t :align left) + (help-mode :noselect t :align left :size 0.3) + (Info-mode :select t :align left :size 0.4) ("^\\*slime-description.*\\*$" :regexp t :select t :align left) ;; repls (geiser-repl-mode :select t :align right) -- cgit v1.2.3