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

Compare commits

base: mir:3ea56aefe8e6713e63fa0d494bd05e1478fd9fd8
Branches Tags
mir:main
...
compare: mir:8bd4d2837a0d957adf576babbedb0ccbad6df69a
Branches Tags
mir:main

2 Commits
3ea56aefe8 ... 8bd4d2837a

Author SHA1 Message Date
Miranda Marquez
8bd4d2837a use ubuntu nerd font instead of ubuntu. might not work 2024-06-04 20:41:26 -08:00
Miranda Marquez
cc09c820e3 graphical setup tweaks 2024-06-04 20:40:37 -08:00
2 changed files with 16 additions and 15 deletions
Show Stats Expand all files Collapse all files

2
init.el
View File

@ -332,7 +332,7 @@ If the current window occupies the whole frame, split it."
;; do the things ;; do the things
(add-hook 'server-after-make-frame-hook #'mir/graphical-setup) (add-hook 'server-after-make-frame-hook #'mir/graphical-setup)
(if (display-graphic-p) (if (display-graphic-p)
(add-hook 'init-hook #'mir/graphical-setup) (add-hook 'elpaca-after-init-hook #'mir/graphical-setup)
;; (add-hook 'after-init-hook #'mir/graphical-setup) ;; (add-hook 'after-init-hook #'mir/graphical-setup)
) )

29
lisp/mir-defuns.el
View File

@ -40,7 +40,7 @@ declarations for color schemes."
: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 "Ubuntu" :family "Ubuntu Nerd Font Medium"
:height 140) ;jank? jank :height 140) ;jank? jank
(setq window-divider-default-places t) (setq window-divider-default-places t)
(setq right-divider-width 5) (setq right-divider-width 5)
@ -59,7 +59,7 @@ declarations for color schemes."
This prevents errors in termux and speeds up init when editing from the This prevents errors in termux and speeds up init when editing from the
console." console."
;; hide gui scrollbars and menubar etc ;; hide gui scrollbars and menubar etc
(scroll-bar-mode -1) ;; use `yascroll' instead ;; (scroll-bar-mode -1) ;; use `yascroll' instead
(setq scroll-bar-adjust-thumb-portion nil) (setq scroll-bar-adjust-thumb-portion nil)
(tool-bar-mode 0) (tool-bar-mode 0)
(menu-bar-mode 0) (menu-bar-mode 0)
@ -72,18 +72,19 @@ 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. おまえ わ もう しんでいる.
(if (executable-find "neofetch") ;; (if (executable-find "neofetch")
(let* ((resolution (mapcar #'string-to-number ;; (let* ((resolution (mapcar #'string-to-number
(split-string ;; (split-string
(cadr (split-string ;; (cadr (split-string
(shell-command-to-string ;; (shell-command-to-string
"neofetch resolution"))) "x"))) ;; "neofetch resolution"))) "x")))
(resx (car resolution)) ;; (resx (car resolution))
(resy (cadr resolution)) ;; (resy (cadr resolution))
(font-height (/ resy 11))) ;; (font-height (/ resy 11)))
(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))))
)
(defun toggle-ja-input () (defun toggle-ja-input ()
"Switch between english and japanese. Not broken." "Switch between english and japanese. Not broken."