acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Change notation of settings

This commit is contained in:
Case Duckworth 2022-04-02 13:54:06 -05:00
parent 8f8121e3a2
commit 2876e85cf6
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
init.el
View File

@ -352,19 +352,19 @@
(dolist (mode '((hungry-delete-mode . -1)))
(funcall (car mode) (cdr mode)))
;; Set local settings
(dolist (setting (list (cons 'outline-regexp eshell-prompt-regexp)
(cons 'page-delimiter eshell-prompt-regexp)
(cons 'imenu-generic-expression
(list "Prompt"
(concat eshell-prompt-regexp
"\\(.*\\)")
1))
(cons 'truncate-lines t)))
(dolist (setting `((outline-regexp . ,eshell-prompt-regexp)
(page-delimiter . ,eshell-prompt-regexp)
(imenu-generic-expression "Prompt"
,(concat eshell-prompt-regexp
"\\(.*\\)")
1)
(truncate-lines . t)
(scroll-margin . 0)))
(set (make-local-variable (car setting)) (cdr setting)))
;; Bind keys
(dolist (binding '(("C-d" . +eshell-quit-or-delete-char)))
(define-key eshell-mode-map
(kbd (car binding)) (cdr binding)))
(kbd (car binding)) (cdr binding)))
;; Environment variables
(dolist (environment '(("PAGER" . "cat")))
(setenv (car environment) (cdr environment)))))