Make syntax more consistent
This commit is contained in:
parent
7ef76e65db
commit
f01218b57f
29
init.el
29
init.el
@ -98,8 +98,7 @@
|
|||||||
";; 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 ()
|
(add-hook 'emacs-startup-hook (lambda () (setq file-name-handler-alist default-file-name-handler-alist))))
|
||||||
(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
|
||||||
@ -400,8 +399,7 @@ DOCSTRING is an optional form that is discarded upon expansion."
|
|||||||
|
|
||||||
:hook
|
:hook
|
||||||
;; Minibuffer line spacing setup
|
;; Minibuffer line spacing setup
|
||||||
(minibuffer-setup-hook . (lambda ()
|
(minibuffer-setup-hook . (lambda () (setq-local line-spacing 0.15))))
|
||||||
(setq-local line-spacing 0.15))))
|
|
||||||
|
|
||||||
;; ---------------------------------- ;;
|
;; ---------------------------------- ;;
|
||||||
;; autorevert
|
;; autorevert
|
||||||
@ -755,8 +753,7 @@ DOCSTRING is an optional form that is discarded upon expansion."
|
|||||||
(adwaita-dark-theme-bold-vertico-current t "Embolden the currently-selected candidate in vertico")
|
(adwaita-dark-theme-bold-vertico-current t "Embolden the currently-selected candidate in vertico")
|
||||||
(adwaita-dark-theme-gray-rainbow-delimiters t "Use a gray color for rainbow-delimiters faces")
|
(adwaita-dark-theme-gray-rainbow-delimiters t "Use a gray color for rainbow-delimiters faces")
|
||||||
:hook
|
:hook
|
||||||
(user/after-daemon-make-initial-frame-functions . (lambda ()
|
(user/after-daemon-make-initial-frame-functions . (lambda () (load-theme 'adwaita-dark :no-confirm))))
|
||||||
(load-theme 'adwaita-dark :no-confirm))))
|
|
||||||
|
|
||||||
;; ---------------------------------- ;;
|
;; ---------------------------------- ;;
|
||||||
;; Simple language modes
|
;; Simple language modes
|
||||||
@ -987,12 +984,9 @@ DOCSTRING is an optional form that is discarded upon expansion."
|
|||||||
"Provides a number of autocompletion-enhanced replacements for default commands."
|
"Provides a number of autocompletion-enhanced replacements for default commands."
|
||||||
:config
|
:config
|
||||||
;; `eshell-mode-map' is not available until the `esh-mode' module is loaded
|
;; `eshell-mode-map' is not available until the `esh-mode' module is loaded
|
||||||
(eval-after-load 'esh-mode (lambda ()
|
(eval-after-load 'esh-mode (lambda () (bind-key "C-r" #'consult-history 'eshell-mode-map)))
|
||||||
(bind-key "C-r" #'consult-history 'eshell-mode-map)))
|
|
||||||
:bind
|
:bind
|
||||||
("M-C-s" . (lambda ()
|
("M-C-s" . (lambda () (interactive) (consult-line (thing-at-point 'symbol))))
|
||||||
(interactive)
|
|
||||||
(consult-line (thing-at-point 'symbol))))
|
|
||||||
("M-s l" . consult-line)
|
("M-s l" . consult-line)
|
||||||
("M-s L" . consult-line-multi)
|
("M-s L" . consult-line-multi)
|
||||||
("C-S-s" . consult-line-multi)
|
("C-S-s" . consult-line-multi)
|
||||||
@ -1032,8 +1026,7 @@ DOCSTRING is an optional form that is discarded upon expansion."
|
|||||||
:hook
|
:hook
|
||||||
;; Displaying popups aggressively (i.e. without summoning them with a key press) can
|
;; Displaying popups aggressively (i.e. without summoning them with a key press) can
|
||||||
;; cause the cursor to jump around in `eshell-mode'
|
;; cause the cursor to jump around in `eshell-mode'
|
||||||
(eshell-mode-hook . (lambda ()
|
(eshell-mode-hook . (lambda () (setq-local corfu-auto nil)))
|
||||||
(setq-local corfu-auto nil)))
|
|
||||||
:bind
|
:bind
|
||||||
(:map corfu-popupinfo-map
|
(:map corfu-popupinfo-map
|
||||||
("M-n" . corfu-popupinfo-scroll-up)
|
("M-n" . corfu-popupinfo-scroll-up)
|
||||||
@ -1322,8 +1315,7 @@ 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 ()
|
(advice-add 'neotree-change-root :after (lambda () (goto-char (point-min))))
|
||||||
(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")
|
||||||
@ -1463,8 +1455,7 @@ DOCSTRING is an optional form that is discarded upon expansion."
|
|||||||
:custom
|
:custom
|
||||||
(vundo-glyph-alist vundo-unicode-symbols "Visualize undo history with pretty unicode symbols")
|
(vundo-glyph-alist vundo-unicode-symbols "Visualize undo history with pretty unicode symbols")
|
||||||
:hook
|
:hook
|
||||||
(vundo-mode-hook . (lambda ()
|
(vundo-mode-hook . (lambda () (setq-local global-hl-line-mode nil)))
|
||||||
(setq-local global-hl-line-mode nil)))
|
|
||||||
:bind
|
:bind
|
||||||
("C-x u" . vundo))
|
("C-x u" . vundo))
|
||||||
|
|
||||||
@ -1495,12 +1486,12 @@ DOCSTRING is an optional form that is discarded upon expansion."
|
|||||||
|
|
||||||
(external-package yasnippet
|
(external-package yasnippet
|
||||||
"Allows for the definition and automatic expansion of text templates."
|
"Allows for the definition and automatic expansion of text templates."
|
||||||
|
:config
|
||||||
|
(yas-reload-all)
|
||||||
:custom
|
:custom
|
||||||
(yas-also-indent-empty-lines t "Indent lines in expanded templates even if empty")
|
(yas-also-indent-empty-lines t "Indent lines in expanded templates even if empty")
|
||||||
(yas-also-auto-indent-first-line t "Always indent first line in expanded templates")
|
(yas-also-auto-indent-first-line t "Always indent first line in expanded templates")
|
||||||
(yas-snippet-dirs '(user/yasnippet-directory) "Set snippet files location")
|
(yas-snippet-dirs '(user/yasnippet-directory) "Set snippet files location")
|
||||||
:config
|
|
||||||
(yas-reload-all)
|
|
||||||
:hook
|
:hook
|
||||||
(prog-mode-hook . yas-minor-mode)
|
(prog-mode-hook . yas-minor-mode)
|
||||||
(text-mode-hook . yas-minor-mode)
|
(text-mode-hook . yas-minor-mode)
|
||||||
|
Loading…
Reference in New Issue
Block a user