Fixup various formatting/indentation issues in init.el

This commit is contained in:
Adam Goldsmith 2024-08-14 23:10:28 -04:00
parent 5593220049
commit 8dfa1cf6be

View File

@ -151,8 +151,7 @@
comint-input-ignoredups t ; no duplicates in command history comint-input-ignoredups t ; no duplicates in command history
comint-completion-addsuffix t ; insert space/slash after file completion comint-completion-addsuffix t ; insert space/slash after file completion
comint-buffer-maximum-size 20000 ; max length of the buffer in lines comint-buffer-maximum-size 20000 ; max length of the buffer in lines
comint-get-old-input (lambda () "") ; what to run when i press enter on a comint-get-old-input (lambda () "") ; what to run when i press enter on a line above the current prompt
; line above the current prompt
comint-input-ring-size 500) ; max shell history size comint-input-ring-size 500) ; max shell history size
(add-hook 'comint-mode-hook (add-hook 'comint-mode-hook
(lambda () (setq-local show-trailing-whitespace nil)))) (lambda () (setq-local show-trailing-whitespace nil))))
@ -170,7 +169,7 @@
global-semantic-idle-local-symbol-highlight-mode) global-semantic-idle-local-symbol-highlight-mode)
semantic-idle-scheduler-idle-time 0.2) semantic-idle-scheduler-idle-time 0.2)
; inhibit semantic outside of specific modes ;; inhibit semantic outside of specific modes
(setq semantic-inhibit-functions (setq semantic-inhibit-functions
(lambda () (not (member major-mode '(c-mode cc-mode java-mode))))) (lambda () (not (member major-mode '(c-mode cc-mode java-mode)))))
@ -180,7 +179,7 @@
(use-package term (use-package term
:config :config
(add-hook 'term-mode-hook (add-hook 'term-mode-hook
; if this is t, it breaks shell-command ;; if this is t, it breaks shell-command
(lambda () (setq-local comint-prompt-read-only nil)))) (lambda () (setq-local comint-prompt-read-only nil))))
(use-package gud (use-package gud
@ -283,12 +282,12 @@
(use-package help-mode (use-package help-mode
:config :config
; bind "g" to revert help buffers with no prompt ;; bind "g" to revert help buffers with no prompt
(bind-key "g" (lambda () (interactive) (revert-buffer t t)) help-mode-map)) (bind-key "g" (lambda () (interactive) (revert-buffer t t)) help-mode-map))
(use-package files (use-package files
:config :config
; bind a key to revert buffers with no prompt ;; bind a key to revert buffers with no prompt
(bind-key "C-x M-v" (lambda () (interactive) (revert-buffer t t t)))) (bind-key "C-x M-v" (lambda () (interactive) (revert-buffer t t t))))
(use-package prog-mode (use-package prog-mode
@ -328,7 +327,7 @@
:config :config
(setq ns-command-modifier 'hyper) (setq ns-command-modifier 'hyper)
(server-start) (server-start)
; disable focus stealing ;; disable focus stealing
(defun raise-frame (frame) (interactive) nil)) (defun raise-frame (frame) (interactive) nil))
(use-package yaml-mode (use-package yaml-mode
@ -516,7 +515,7 @@
(use-package hydra :ensure :demand (use-package hydra :ensure :demand
:config :config
;config is in separate file because it is really big ;; config is in separate file because it is really big
(load-file "~/.emacs.d/hydra-defs.el") (load-file "~/.emacs.d/hydra-defs.el")
:bind (("C-c w" . 'hydra-window/body) :bind (("C-c w" . 'hydra-window/body)
("C-c s" . 'hydra-shortcuts/body) ("C-c s" . 'hydra-shortcuts/body)
@ -577,7 +576,7 @@
(use-package frames-only-mode :ensure :demand (use-package frames-only-mode :ensure :demand
:config :config
; seems to need to be before mode init ;; seems to need to be before mode init
(add-to-list 'frames-only-mode-use-window-functions 'undo-tree-visualize) (add-to-list 'frames-only-mode-use-window-functions 'undo-tree-visualize)
(setq server-raise-frame nil) (setq server-raise-frame nil)
(defun x-focus-frame (FRAME &optional NOACTIVATE)) (defun x-focus-frame (FRAME &optional NOACTIVATE))
@ -736,7 +735,7 @@
(use-package graphviz-dot-mode (use-package graphviz-dot-mode
:config :config
; don't auto-newline on semicolon ;; don't auto-newline on semicolon
(defun electric-graphviz-dot-semi () (defun electric-graphviz-dot-semi ()
"Terminate line and indent next line." "Terminate line and indent next line."
(interactive) (interactive)
@ -980,9 +979,8 @@
(defun nm-sticky-tag-and-next (tags) (defun nm-sticky-tag-and-next (tags)
(interactive (interactive
(if (or current-prefix-arg (null nm-sticky-tags)) (if (or current-prefix-arg (null nm-sticky-tags))
(list (notmuch-tag-change-list (split-string (list (notmuch-tag-change-list
(read-string (split-string (read-string "tags: " (mapconcat 'identity nm-sticky-tags " ")))))
"tags: " (mapconcat 'identity nm-sticky-tags " ")))))
(list nm-sticky-tags))) (list nm-sticky-tags)))
(setq nm-sticky-tags tags) (setq nm-sticky-tags tags)
(nm-tag-and-next tags)) (nm-tag-and-next tags))
@ -1000,7 +998,7 @@
(use-package fortune-cookie :demand :if (package-installed-p 'fortune-cookie) (use-package fortune-cookie :demand :if (package-installed-p 'fortune-cookie)
:config :config
; change message every time scratch buffer created ;; change message every time scratch buffer created
(setq initial-major-mode (setq initial-major-mode
(lambda () (lambda ()
(setq initial-scratch-message (setq initial-scratch-message