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

Compare commits

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

2 Commits
8b5708fee7 ... eb6282b304

Author SHA1 Message Date
Miranda Marquez
eb6282b304 no need for parsing neofetch when builtins exist :3 2024-07-17 19:30:14 -08:00
Miranda Marquez
0b0115228b fix eldoc startup error 2024-07-17 19:29:58 -08:00
2 changed files with 14 additions and 17 deletions
Show Stats Expand all files Collapse all files

13
init.el
View File

@ -336,7 +336,6 @@ 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))
@ -348,8 +347,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 "%s" elpaca--queues) ;; (message "elpaca queues: %s" elpaca--queues)
(if (fboundp #'elpaca) (elpaca-wait)) ;; (if (fboundp #'elpaca) (elpaca-wait))
;; diminish ;; diminish
(use-package diminish (use-package diminish
@ -361,8 +360,14 @@ 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,19 +66,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. おまえ わ もう しんでいる.
;; (if (executable-find "neofetch") (let* ((resy (display-pixel-height))
;; (let* ((resolution (mapcar #'string-to-number (font-height (/ resy 8))) ; gonna be different on diff machines 💀
;; (split-string (set-face-attribute 'fixed-pitch nil :height font-height)
;; (cadr (split-string (set-face-attribute 'default nil :height font-height)
;; (shell-command-to-string (set-face-attribute 'variable-pitch nil :height (+ font-height 10))))
;; "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."