diff options
author | Case Duckworth | 2022-01-03 17:05:17 -0600 |
---|---|---|
committer | Case Duckworth | 2022-01-03 17:05:17 -0600 |
commit | 7a6a88c321ddf07475c8129e395ad299b6262ef7 (patch) | |
tree | ac0ce8cdd533d9624090275d4636210b6d0a29b3 | |
parent | Format circe messages better (diff) | |
download | emacs-7a6a88c321ddf07475c8129e395ad299b6262ef7.tar.gz emacs-7a6a88c321ddf07475c8129e395ad299b6262ef7.zip |
Fix eshell loading
Eshell loads stupidly, so I have to do this ish in it :(
-rw-r--r-- | init.el | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/init.el b/init.el index 066741a..84f382a 100644 --- a/init.el +++ b/init.el | |||
@@ -255,11 +255,17 @@ | |||
255 | eshell-scroll-to-bottom-on-input 'all | 255 | eshell-scroll-to-bottom-on-input 'all |
256 | eshell-smart-space-goes-to-end t | 256 | eshell-smart-space-goes-to-end t |
257 | eshell-where-to-jump 'begin) | 257 | eshell-where-to-jump 'begin) |
258 | (:local-set outline-regexp eshell-prompt-regexp | 258 | (add-hook 'eshell-mode-hook |
259 | page-delimiter eshell-prompt-regexp) | 259 | (defun +eshell@setup () |
260 | (:bind "C-d" #'+eshell-quit-or-delete-char) | 260 | "Eshell improperly does loading. Gah." |
261 | (:when-loaded | 261 | (dolist (setting `((outline-regexp . ,eshell-prompt-regexp) |
262 | (setenv "PAGER" "cat"))) | 262 | (page-delimiter . ,eshell-prompt-regexp))) |
263 | (set (make-local-variable (car setting)) (cdr setting))) | ||
264 | (dolist (binding `(("C-d" . +eshell-quit-or-delete-char))) | ||
265 | (define-key eshell-mode-map | ||
266 | (kbd (car binding)) (cdr binding))) | ||
267 | (dolist (environment `(("PAGER" . "cat"))) | ||
268 | (setenv (car environment) (cdr environment)))))) | ||
263 | 269 | ||
264 | (setup eww | 270 | (setup eww |
265 | (:also-load +eww) | 271 | (:also-load +eww) |