guix, qol

This commit is contained in:
mir 2024-10-26 14:26:42 -08:00
parent e9975d5247
commit 7419101384

15
init.el
View File

@ -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)