From 5cdd6943d2b1e83e73fabe98c2d7c92dcf1a87cd Mon Sep 17 00:00:00 2001 From: Jessie Hildebrandt Date: Sun, 5 Feb 2023 00:17:28 -0500 Subject: [PATCH] Improve syntax formatting of lambda functions --- init.el | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) diff --git a/init.el b/init.el index 2df6b00..1945fd7 100644 --- a/init.el +++ b/init.el @@ -98,7 +98,8 @@ ";; Clear `file-name-handler-alist' until after initialization" (let ((default-file-name-handler-alist file-name-handler-alist)) (setq file-name-handler-alist nil) - (add-hook 'emacs-startup-hook (lambda () (setq file-name-handler-alist default-file-name-handler-alist)))) + (add-hook 'emacs-startup-hook (lambda () + (setq file-name-handler-alist default-file-name-handler-alist)))) ";; Configure GUI components before initial frame creation" (setq inhibit-x-resources t @@ -389,7 +390,8 @@ DOCSTRING is an optional form that is discarded upon expansion." :hook ;; Minibuffer line spacing setup - (minibuffer-setup-hook . (lambda () (setq-local line-spacing 0.15)))) + (minibuffer-setup-hook . (lambda () + (setq-local line-spacing 0.15)))) ;; ---------------------------------- ;; ;; autorevert @@ -444,7 +446,10 @@ DOCSTRING is an optional form that is discarded upon expansion." (string (elt (car components) 0) ?/))))) components (cdr components))) (concat (propertize str 'face 'font-lock-comment-face) - (propertize (cl-reduce (lambda (a b) (concat a "/" b)) components) 'face 'font-lock-doc-face)))) + (propertize (cl-reduce (lambda (a b) + (concat a "/" b)) + components) + 'face 'font-lock-doc-face)))) (defun user/open-eshell (&optional force-new-session) "Focus the last active `eshell' session, or start a new one if none unavaiable. @@ -493,7 +498,9 @@ is already an active session to switch to or focus." (tab-line-mode))) :bind ("C-c RET" . user/open-eshell) - ("C-c C-" . (lambda () (interactive) (user/open-eshell :force-new-session)))) + ("C-c C-" . (lambda () + (interactive) + (user/open-eshell :force-new-session)))) ;; `eshell-mode-map' is not available until the `esh-mode' module is loaded, so ;; the local keymap bindings are set up here @@ -1249,7 +1256,8 @@ DOCSTRING is an optional form that is discarded upon expansion." (external-package neotree "Displays an interactive directory/file tree in a side window." :config - (advice-add 'neotree-change-root :after (lambda () (goto-char (point-min)))) + (advice-add 'neotree-change-root :after (lambda () + (goto-char (point-min)))) :custom (neo-smart-open t "Jump to current file when focusing the neotree window") (neo-window-width 30 "Limit neotree window width to 30 columns")