mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

guix, qol

Browse Source
This commit is contained in:
mir 2024-10-26 14:26:42 -08:00
parent e9975d5247
commit 7419101384
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
init.el
View File

@ -48,11 +48,11 @@ console."
(pixel-scroll-precision-mode t) (pixel-scroll-precision-mode t)
(pixel-scroll-mode t)) (pixel-scroll-mode t))
;; Size of text. おまえ わ もう しんでいる. ;; Size of text. おまえ わ もう しんでいる.
(let* ((resy (display-pixel-height)) ;; (let* ((resy (display-pixel-height))
(font-height (/ resy 8))) ; gonna be different on diff machines 💀 ;; (font-height (/ resy 8))) ; gonna be different on diff machines 💀
(set-face-attribute 'fixed-pitch nil :height font-height) ;; (set-face-attribute 'fixed-pitch nil :height font-height)
(set-face-attribute 'default nil :height font-height) ;; (set-face-attribute 'default nil :height font-height)
(set-face-attribute 'variable-pitch nil :height (+ font-height 10))) ;; (set-face-attribute 'variable-pitch nil :height (+ font-height 10)))
(unless (not (display-graphic-p)) (unless (not (display-graphic-p))
(set-face-attribute 'fixed-pitch nil (set-face-attribute 'fixed-pitch nil
:family "MesloLGS Nerd Font") :family "MesloLGS Nerd Font")
@ -60,7 +60,7 @@ console."
:family "MesloLGS Nerd Font") :family "MesloLGS Nerd Font")
(set-face-attribute 'variable-pitch nil (set-face-attribute 'variable-pitch nil
:inherit 'default :inherit 'default
:family "sans serif" :family "Monaspace Radon"
:height (/ 1.5 1.3)) :height (/ 1.5 1.3))
(add-to-list 'initial-frame-alist '(alpha-background . 65)) (add-to-list 'initial-frame-alist '(alpha-background . 65))
(add-to-list 'default-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-up-aggressively 0.01)
;; (scroll-down-aggressively 0.01) ;; (scroll-down-aggressively 0.01)
(auto-window-vscroll nil) (auto-window-vscroll nil)
(confirm-kill-processes nil) ;nice but gets annoying
:init :init
(global-visual-line-mode t) (global-visual-line-mode t)
(set-language-environment "UTF-8") (set-language-environment "UTF-8")
@ -1277,6 +1278,8 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
:ensure ( :type git :host github :ensure ( :type git :host github
:repo "nehrbash/zalgo-mode")) :repo "nehrbash/zalgo-mode"))
(use-package geiser-guile)
(use-package guix)
;(require 'mir-packages) ;(require 'mir-packages)
;; (setq esup-depth 0) ;; (setq esup-depth 0)