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

graphical setup tweaks

Browse Source
This commit is contained in:
Miranda Marquez 2024-06-04 20:40:37 -08:00
parent 3ea56aefe8
commit cc09c820e3
2 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File 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)
) )

27
lisp/mir-defuns.el
View File

@ -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."