diff options
| author | Case Duckworth | 2022-04-02 13:54:06 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-04-02 13:54:06 -0500 |
| commit | 2876e85cf65b59a2346d59ac37ca0e3ca2e6a3a2 (patch) | |
| tree | 725110daa2c8e8a372ffd0868ad475ad83cc4a0c /init.el | |
| parent | Add +eshell-here (diff) | |
| download | emacs-2876e85cf65b59a2346d59ac37ca0e3ca2e6a3a2.tar.gz emacs-2876e85cf65b59a2346d59ac37ca0e3ca2e6a3a2.zip | |
Change notation of settings
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 18 |
1 files changed, 9 insertions, 9 deletions
| diff --git a/init.el b/init.el index 84b3869..f07cd4f 100644 --- a/init.el +++ b/init.el | |||
| @@ -352,19 +352,19 @@ | |||
| 352 | (dolist (mode '((hungry-delete-mode . -1))) | 352 | (dolist (mode '((hungry-delete-mode . -1))) |
| 353 | (funcall (car mode) (cdr mode))) | 353 | (funcall (car mode) (cdr mode))) |
| 354 | ;; Set local settings | 354 | ;; Set local settings |
| 355 | (dolist (setting (list (cons 'outline-regexp eshell-prompt-regexp) | 355 | (dolist (setting `((outline-regexp . ,eshell-prompt-regexp) |
| 356 | (cons 'page-delimiter eshell-prompt-regexp) | 356 | (page-delimiter . ,eshell-prompt-regexp) |
| 357 | (cons 'imenu-generic-expression | 357 | (imenu-generic-expression "Prompt" |
| 358 | (list "Prompt" | 358 | ,(concat eshell-prompt-regexp |
| 359 | (concat eshell-prompt-regexp | 359 | "\\(.*\\)") |
| 360 | "\\(.*\\)") | 360 | 1) |
| 361 | 1)) | 361 | (truncate-lines . t) |
| 362 | (cons 'truncate-lines t))) | 362 | (scroll-margin . 0))) |
| 363 | (set (make-local-variable (car setting)) (cdr setting))) | 363 | (set (make-local-variable (car setting)) (cdr setting))) |
| 364 | ;; Bind keys | 364 | ;; Bind keys |
| 365 | (dolist (binding '(("C-d" . +eshell-quit-or-delete-char))) | 365 | (dolist (binding '(("C-d" . +eshell-quit-or-delete-char))) |
| 366 | (define-key eshell-mode-map | 366 | (define-key eshell-mode-map |
| 367 | (kbd (car binding)) (cdr binding))) | 367 | (kbd (car binding)) (cdr binding))) |
| 368 | ;; Environment variables | 368 | ;; Environment variables |
| 369 | (dolist (environment '(("PAGER" . "cat"))) | 369 | (dolist (environment '(("PAGER" . "cat"))) |
| 370 | (setenv (car environment) (cdr environment))))) | 370 | (setenv (car environment) (cdr environment))))) |