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

Compare commits

base: mir:eb6282b3042197815071f2e0fe880a271fd1f260
Branches Tags
mir:main
..
compare: mir:8b5708fee7b0fbeb2403c3ee61d339dfafd5efef
Branches Tags
mir:main

No commits in common. "eb6282b3042197815071f2e0fe880a271fd1f260" and "8b5708fee7b0fbeb2403c3ee61d339dfafd5efef" have entirely different histories.
eb6282b304 ... 8b5708fee7

2 changed files with 17 additions and 14 deletions
Show Stats Expand all files Collapse all files

13
init.el
View File

@ -336,6 +336,7 @@ If the current window occupies the whole frame, split it."
;; (add-hook 'after-init-hook #'mir/graphical-setup) ;; (add-hook 'after-init-hook #'mir/graphical-setup)
) )
(use-package compat) (use-package compat)
(use-package marginalia :init (marginalia-mode)) (use-package marginalia :init (marginalia-mode))
;; (elpaca gcmh (gcmh-mode)) ;; (elpaca gcmh (gcmh-mode))
@ -347,8 +348,8 @@ If the current window occupies the whole frame, split it."
(use-package powershell (use-package powershell
:mode ("\\.ps1\\'" . powershell-mode)) :mode ("\\.ps1\\'" . powershell-mode))
;; (message "elpaca queues: %s" elpaca--queues) ;; (message "%s" elpaca--queues)
;; (if (fboundp #'elpaca) (elpaca-wait)) (if (fboundp #'elpaca) (elpaca-wait))
;; diminish ;; diminish
(use-package diminish (use-package diminish
@ -360,14 +361,8 @@ If the current window occupies the whole frame, split it."
:custom (default-input-method "japanese") :custom (default-input-method "japanese")
:config (require 'mir-keybinds)) :config (require 'mir-keybinds))
;;(if (fboundp #'elpaca) (elpaca-wait)) ;;(if (fboundp #'elpaca) (elpaca-wait))
(use-package eldoc :ensure t)
(elpaca-wait) (elpaca-wait)
;;(when (featurep 'eldoc)
;; (unload-feature 'eldoc t))
;; (elpaca eldoc
;; )
;; (elpaca-wait)
(use-package eldoc-box (use-package eldoc-box
:after eldoc :after eldoc
:diminish (eldoc-mode eldoc-box-hover-at-point-mode) :diminish (eldoc-mode eldoc-box-hover-at-point-mode)

18
lisp/mir-defuns.el
View File

@ -66,11 +66,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. おまえ わ もう しんでいる.
(let* ((resy (display-pixel-height)) ;; (if (executable-find "neofetch")
(font-height (/ resy 8))) ; gonna be different on diff machines 💀 ;; (let* ((resolution (mapcar #'string-to-number
(set-face-attribute 'fixed-pitch nil :height font-height) ;; (split-string
(set-face-attribute 'default nil :height font-height) ;; (cadr (split-string
(set-face-attribute 'variable-pitch nil :height (+ font-height 10)))) ;; (shell-command-to-string
;; "neofetch resolution"))) "x")))
;; (resx (car resolution))
;; (resy (cadr resolution))
;; (font-height (/ resy 11)))
;; (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))))
)
(defun toggle-ja-input () (defun toggle-ja-input ()
"Switch between english and japanese. Not broken." "Switch between english and japanese. Not broken."