Use terminus as default font

4 files changed, 21 insertions, 8 deletions

diff --git a/.config/emacs/modules/bd--essentials.el b/.config/emacs/modules/bd--essentials.el
index 84d7180..4d48238 100644
--- a/.config/emacs/modules/bd--essentials.el
+++ b/.config/emacs/modules/bd--essentials.el
@@ -7,6 +7,7 @@
 
 (global-set-key (kbd "C-z =") 'text-scale-increase)
 (global-set-key (kbd "C-z -") 'text-scale-decrease)
+(setopt text-scale-mode-step 1.1)
 
 
 ;;;; UI
diff --git a/.config/emacs/modules/bd--themes.el b/.config/emacs/modules/bd--themes.el
index 70e69ed..166fea8 100644
--- a/.config/emacs/modules/bd--themes.el
+++ b/.config/emacs/modules/bd--themes.el
@@ -19,6 +19,12 @@ to.")
 
 (set-face-attribute 'variable-pitch nil
                     :family "Dejavu Serif")
+(set-face-attribute 'fixed-pitch nil
+                    :family "Terminus"
+                    :height 120)
+(set-face-attribute 'default nil
+                    :family "Terminus"
+                    :height 120)
 
 
 ;;;; colors
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)
diff --git a/.config/guix/modules/desktop.scm b/.config/guix/modules/desktop.scm
index f881798..0a2f2d7 100644
--- a/.config/guix/modules/desktop.scm
+++ b/.config/guix/modules/desktop.scm
@@ -32,6 +32,7 @@
     "dmenu"
     "flameshot"
     "font-google-noto-emoji"
+    "fontconfig"
     "gimp"
     "icecat"
     "imagemagick"
@@ -52,6 +53,7 @@
     "feh"
     "ffmpeg"
     "gtk+"
+    "font-terminus"
     "xdotool"
     "xf86-input-libinput"
     "xf86-video-fbdev"