Change notation of settings

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
parent: Add +eshell-here (diff)
download: emacs-2876e85cf65b59a2346d59ac37ca0e3ca2e6a3a2.tar.gz
emacs-2876e85cf65b59a2346d59ac37ca0e3ca2e6a3a2.zip
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 @@
    (dolist (mode '((hungry-delete-mode . -1)))
      (funcall (car mode) (cdr mode)))
    ;; Set local settings
-    (dolist (setting (list (cons 'outline-regexp eshell-prompt-regexp)
+    (dolist (setting `((outline-regexp . ,eshell-prompt-regexp)
-                           (cons 'page-delimiter eshell-prompt-regexp)
+                       (page-delimiter . ,eshell-prompt-regexp)
-                           (cons 'imenu-generic-expression
+                       (imenu-generic-expression "Prompt"
-                                 (list "Prompt"
+                                                 ,(concat eshell-prompt-regexp
-                                       (concat eshell-prompt-regexp
+                                                          "\\(.*\\)")
-                                               "\\(.*\\)")
+                                                 1)
-                                       1))
+                       (truncate-lines . t)
-                           (cons '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)))))
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
parent	Add +eshell-here (diff)
download	emacs-2876e85cf65b59a2346d59ac37ca0e3ca2e6a3a2.tar.gz emacs-2876e85cf65b59a2346d59ac37ca0e3ca2e6a3a2.zip

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)))))