Compare commits

..

4 Commits

41
init.el
View File

@ -26,19 +26,6 @@ declarations for color schemes."
(setq window-divider-default-places t)
;; (setq right-divider-width 5)
(setq ring-bell-function 'ignore)
(unless (not (display-graphic-p))
(set-face-attribute 'fixed-pitch nil
:family "MesloLGS Nerd Font")
(set-face-attribute 'default nil
:family "MesloLGS Nerd Font")
(set-face-attribute 'variable-pitch nil
:inherit 'default
:family "sans serif"
:height (/ 1.5 1.3))
(add-to-list 'initial-frame-alist '(alpha-background . 65))
(add-to-list 'default-frame-alist '(alpha-background . 65))
(add-to-list 'default-frame-alist '(cursor-color . "white"))
(add-to-list 'default-frame-alist '(fullscreen . maximized)))
;; see also https://emacs.stackexchange.com/questions/7228/nice-tty-window-borders-in-24-4
(let ((display-table (or standard-display-table (make-display-table))))
(set-display-table-slot display-table 'vertical-border (make-glyph-code ?│))
@ -65,7 +52,20 @@ console."
(font-height (/ resy 8))) ; gonna be different on diff machines 💀
(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))))
(set-face-attribute 'variable-pitch nil :height (+ font-height 10)))
(unless (not (display-graphic-p))
(set-face-attribute 'fixed-pitch nil
:family "MesloLGS Nerd Font")
(set-face-attribute 'default nil
:family "MesloLGS Nerd Font")
(set-face-attribute 'variable-pitch nil
:inherit 'default
:family "sans serif"
:height (/ 1.5 1.3))
(add-to-list 'initial-frame-alist '(alpha-background . 65))
(add-to-list 'default-frame-alist '(alpha-background . 65))
(add-to-list 'default-frame-alist '(cursor-color . "white"))
(add-to-list 'default-frame-alist '(fullscreen . maximized))))
(defun turn-off-line-numbers ()
"A tiny wrapper around `display-line-numbers-mode' or `linum'.
For use in hooks."
@ -268,8 +268,9 @@ For instance:
(eshell-hist-ignoredups t)
(eshell-history-file-name (expand-file-name "zsh/histfile" "~/.local/share/"))
(eshell-history-size nil)
(eshell-banner-message "")
(eshell-expand-input-functions '(eshell-expand-history-references))
:init
(setq eshell-banner-message "")
:config
(add-to-list 'tramp-remote-path "/bedrock/bin" 'append)
(add-to-list 'eshell-modules-list 'eshell-rebind)
@ -522,7 +523,10 @@ If the current window occupies the whole frame, split it."
(setq-local outline-regexp eshell-prompt-regexp))
(add-hook 'eshell-mode-hook #'mir/esh-outline-setup))
(use-package exec-path-from-shell
:hook (eshell-mode . exec-path-from-shell-initialize))
:defer 3
:config (exec-path-from-shell-initialize)
;; :hook (eshell-mode . exec-path-from-shell-initialize)
)
(use-package eat
:ensure (eat :type git
@ -1309,6 +1313,10 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
:defer t
:commands 'yeetube-search)
(use-package super-hint
:ensure ( :type git :host github
:repo "eval-exec/super-hint.el"))
;(require 'mir-packages)
;; (setq esup-depth 0)
@ -1320,3 +1328,4 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
(setq debug-on-error nil)
;;; init.el ends here
(put 'list-timers 'disabled nil)