From 74191013840d2083914d77a58ed789a52c44a88d Mon Sep 17 00:00:00 2001 From: mir Date: Sat, 26 Oct 2024 14:26:42 -0800 Subject: [PATCH] guix, qol --- init.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/init.el b/init.el index dcc0679..913135e 100644 --- a/init.el +++ b/init.el @@ -48,11 +48,11 @@ console." (pixel-scroll-precision-mode t) (pixel-scroll-mode t)) ;; Size of text. おまえ わ もう しんでいる. - (let* ((resy (display-pixel-height)) - (font-height (/ resy 8))) ; gonna be different on diff machines 💀 - (set-face-attribute 'fixed-pitch nil :height font-height) - (set-face-attribute 'default nil :height font-height) - (set-face-attribute 'variable-pitch nil :height (+ font-height 10))) + ;; (let* ((resy (display-pixel-height)) + ;; (font-height (/ resy 8))) ; gonna be different on diff machines 💀 + ;; (set-face-attribute 'fixed-pitch nil :height font-height) + ;; (set-face-attribute 'default nil :height font-height) + ;; (set-face-attribute 'variable-pitch nil :height (+ font-height 10))) (unless (not (display-graphic-p)) (set-face-attribute 'fixed-pitch nil :family "MesloLGS Nerd Font") @@ -60,7 +60,7 @@ console." :family "MesloLGS Nerd Font") (set-face-attribute 'variable-pitch nil :inherit 'default - :family "sans serif" + :family "Monaspace Radon" :height (/ 1.5 1.3)) (add-to-list 'initial-frame-alist '(alpha-background . 65)) (add-to-list 'default-frame-alist '(alpha-background . 65)) @@ -134,6 +134,7 @@ For instance: ;; (scroll-up-aggressively 0.01) ;; (scroll-down-aggressively 0.01) (auto-window-vscroll nil) + (confirm-kill-processes nil) ;nice but gets annoying :init (global-visual-line-mode t) (set-language-environment "UTF-8") @@ -1277,6 +1278,8 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html" :ensure ( :type git :host github :repo "nehrbash/zalgo-mode")) +(use-package geiser-guile) +(use-package guix) ;(require 'mir-packages) ;; (setq esup-depth 0)