jessieh/dot-emacs
jessieh/dot-emacs
1
Fork 0
Code

Improve syntax formatting of lambda functions

Browse Source
This commit is contained in:
Jessie Hildebrandt 2023-02-05 00:17:28 -05:00
parent d80337e27e
commit 5cdd6943d2
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
init.el
View File

@ -98,7 +98,8 @@
";; Clear `file-name-handler-alist' until after initialization" ";; Clear `file-name-handler-alist' until after initialization"
(let ((default-file-name-handler-alist file-name-handler-alist)) (let ((default-file-name-handler-alist file-name-handler-alist))
(setq file-name-handler-alist nil) (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" ";; Configure GUI components before initial frame creation"
(setq inhibit-x-resources t (setq inhibit-x-resources t
@ -389,7 +390,8 @@ DOCSTRING is an optional form that is discarded upon expansion."
:hook :hook
;; Minibuffer line spacing setup ;; 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 ;; autorevert
@ -444,7 +446,10 @@ DOCSTRING is an optional form that is discarded upon expansion."
(string (elt (car components) 0) ?/))))) (string (elt (car components) 0) ?/)))))
components (cdr components))) components (cdr components)))
(concat (propertize str 'face 'font-lock-comment-face) (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) (defun user/open-eshell (&optional force-new-session)
"Focus the last active `eshell' session, or start a new one if none unavaiable. "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))) (tab-line-mode)))
:bind :bind
("C-c RET" . user/open-eshell) ("C-c RET" . user/open-eshell)
("C-c C-<return>" . (lambda () (interactive) (user/open-eshell :force-new-session)))) ("C-c C-<return>" . (lambda ()
(interactive)
(user/open-eshell :force-new-session))))
;; `eshell-mode-map' is not available until the `esh-mode' module is loaded, so ;; `eshell-mode-map' is not available until the `esh-mode' module is loaded, so
;; the local keymap bindings are set up here ;; 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 (external-package neotree
"Displays an interactive directory/file tree in a side window." "Displays an interactive directory/file tree in a side window."
:config :config
(advice-add 'neotree-change-root :after (lambda () (goto-char (point-min)))) (advice-add 'neotree-change-root :after (lambda ()
(goto-char (point-min))))
:custom :custom
(neo-smart-open t "Jump to current file when focusing the neotree window") (neo-smart-open t "Jump to current file when focusing the neotree window")
(neo-window-width 30 "Limit neotree window width to 30 columns") (neo-window-width 30 "Limit neotree window width to 30 columns")