Fix some whitespace issues

This commit is contained in:
2025-11-06 20:00:33 +01:00
parent a5c9eeb12c
commit 17ced17abb

100
init.el
View File

@@ -372,7 +372,7 @@ order."
(use-package eshell
:bind
(:map gpolonkai/pers-map
("e" . eshell))
("e" . eshell))
:hook
(eshell-mode . gpolonkai/eshell-set-c-d-locally)
(eshell-kill . eshell-command-alert))
@@ -440,7 +440,7 @@ order."
(use-package webjump
:bind
(:map gpolonkai/pers-map
("j" . webjump)))
("j" . webjump)))
(defun gpolonkai/activate-which-func-mode ()
"Activate `which-func-mode' if it exists."
@@ -463,7 +463,7 @@ order."
(cookie-file (expand-file-name "fortune-cookies.txt" user-emacs-directory))
:bind
(:map gpolonkai/pers-map
("k" . cookie)))
("k" . cookie)))
(use-package dired
:ensure nil
@@ -473,9 +473,9 @@ order."
(wdired-allow-to-change-permissions t)
:bind
(:map dired-mode-map
("RET" . dired-find-alternate-file)
("^" . (lambda () (interactive) (find-alternate-file "..")))
("W" . wdired-change-to-wdired-mode)))
("RET" . dired-find-alternate-file)
("^" . (lambda () (interactive) (find-alternate-file "..")))
("W" . wdired-change-to-wdired-mode)))
(use-package goto-addr
:hook ((compilation-mode . goto-address-mode)
@@ -484,8 +484,8 @@ order."
(shell-mode . goto-address-mode))
:bind
(:map goto-address-highlight-keymap
("<RET>" . goto-address-at-point)
("M-<RET>" . newline))
("<RET>" . goto-address-at-point)
("M-<RET>" . newline))
:commands (goto-address-prog-mode goto-address-mode))
;; Close unused buffers at midnight.
@@ -501,7 +501,7 @@ order."
(use-package display-line-numbers
:bind
(:map gpolonkai/pers-map
("C-n" . display-line-numbers-mode)))
("C-n" . display-line-numbers-mode)))
(use-package ispell
:custom
@@ -563,7 +563,7 @@ order."
t)
:bind
(:map ctl-x-map
("o" . ace-window))
("o" . ace-window))
:custom-face
(aw-leading-char-face ((t (:inherit ace-jump-face-foreground :height 2.0)))))
@@ -608,7 +608,7 @@ order."
(beacon-mode 1)
:bind
(:map gpolonkai/pers-map
("b" . beacon-blink)))
("b" . beacon-blink)))
(use-package eshell-fringe-status
:hook
@@ -641,7 +641,7 @@ order."
(use-package ace-jump-mode
:bind
(:map gpolonkai/pers-map
("SPC" . ace-jump-mode)))
("SPC" . ace-jump-mode)))
(defun gpolonkai/no-blink-matching-paren ()
"Disable blinking matching parens."
@@ -662,16 +662,16 @@ order."
(multiple-cursors-mode-disabled . gpolonkai/blink-matching-paren)
:bind
(:map gpolonkai/mc-prefix-map
("t" . mc/mark-all-like-this)
("m" . mc/mark-all-like-this-dwim)
("l" . mc/edit-lines)
("e" . mc/edit-ends-of-lines)
("a" . mc/edit-beginnings-of-lines)
("n" . mc/mark-next-like-this)
("p" . mc/mark-previous-like-this)
("s" . mc/mark-sgml-tag-pair)
("d" . mc/mark-all-like-this-in-defun)
("M-<mouse-1>" . mc/add-cursor-on-click)))
("t" . mc/mark-all-like-this)
("m" . mc/mark-all-like-this-dwim)
("l" . mc/edit-lines)
("e" . mc/edit-ends-of-lines)
("a" . mc/edit-beginnings-of-lines)
("n" . mc/mark-next-like-this)
("p" . mc/mark-previous-like-this)
("s" . mc/mark-sgml-tag-pair)
("d" . mc/mark-all-like-this-in-defun)
("M-<mouse-1>" . mc/add-cursor-on-click)))
;; phi-search is an incremental search compatible with multiple-cursors
(use-package phi-search)
@@ -683,13 +683,13 @@ order."
:demand
:bind
(:map mc/keymap
("=" . mc/compare-chars)))
("=" . mc/compare-chars)))
(use-package ace-mc
:bind
(:map gpolonkai/mc-prefix-map
("SPC" . ace-mc-add-multiple-cursors)
("C-SPC" . ace-mc-add-single-cursor)))
("SPC" . ace-mc-add-multiple-cursors)
("C-SPC" . ace-mc-add-single-cursor)))
(use-package smartparens
:demand
@@ -745,7 +745,7 @@ order."
(use-package zygospore
:bind
(:map ctl-x-map
("1" . zygospore-toggle-delete-other-windows)))
("1" . zygospore-toggle-delete-other-windows)))
(use-package dashboard
:after
@@ -793,7 +793,7 @@ order."
(use-package ace-flyspell
:bind
(:map flyspell-mode-map
("C-M-i" . ace-flyspell-correct-word)))
("C-M-i" . ace-flyspell-correct-word)))
;; Text objects are textual patterns like a line, a top level definition, a
;; word, a sentence or any other unit of text. When objed-mode is enabled,
@@ -805,7 +805,7 @@ order."
:demand t
:bind
(:map global-map
("M-SPC" . objed-activate)))
("M-SPC" . objed-activate)))
(use-package alert
:config
@@ -831,20 +831,20 @@ order."
(use-package ciel
:bind
(:map global-map
("C-c i" . ciel-ci)
("C-c o" . ciel-co)))
("C-c i" . ciel-ci)
("C-c o" . ciel-co)))
(use-package hide-mode-line
:bind (:map gpolonkai/pers-map
("h" . hide-mode-line-mode)))
("h" . hide-mode-line-mode)))
(use-package string-inflection
:bind (:map gpolonkai/pers-map
("i" . string-inflection-all-cycle)))
("i" . string-inflection-all-cycle)))
(use-package spdx
:bind (:map gpolonkai/pers-map
("L" . spdx-insert-spdx-copyright))
("L" . spdx-insert-spdx-copyright))
:custom
(spdx-copyright-holder 'user)
(spdx-copyright-sign 'unicode))
@@ -859,16 +859,16 @@ order."
:ensure nil
:custom-face
(outline-1 ((t (:inherit font-lock-function-name-face
:overline t
:weight bold
:height 1.2))))
:overline t
:weight bold
:height 1.2))))
(outline-2 ((t (:inherit font-lock-variable-name-face
:overline t
:weight bold
:height 1.1))))
:overline t
:weight bold
:height 1.1))))
(outline-3 ((t (:inherit font-lock-keyword-face
:overline t
:weight bold)))))
:overline t
:weight bold)))))
(defun gpolonkai/setup-org-mode ()
"Setup Org related variables."
@@ -885,14 +885,14 @@ order."
(0 (progn
(put-text-property (match-beginning 1) (match-end 1)
'display (make-string
(- (match-end 1)
(match-beginning 1))
?\s))
(- (match-end 1)
(match-beginning 1))
?\s))
(put-text-property (match-beginning 1) (match-end 0)
'face '(:strike-through t :extend t)))))
org-font-lock-extra-keywords)
(setq-local font-lock-extra-managed-props
(cons 'display font-lock-extra-managed-props)))
(cons 'display font-lock-extra-managed-props)))
(add-hook 'org-font-lock-set-keywords-hook #'vz/org-fontify-horizontal-break)
@@ -937,7 +937,7 @@ order."
"DONE(d@/!)"))
org-todo-keyword-faces '(("SOMEDAY" . (:foreground "goldenrod"))
("CANCELED" . (:foreground "#228b22"
:strike-through t)))
:strike-through t)))
org-html-checkbox-types
'((unicode (on . "<span class=\"task-done\">☑</span>")
(off . "<span class=\"task-todo\">☐</span>")
@@ -1137,7 +1137,7 @@ order."
(org-random-todo-skip-keywords '("SOMEDAY"))
:bind
(:map gpolonkai/pers-map
("r" . org-random-todo)))
("r" . org-random-todo)))
(use-package org-autolist
:hook
@@ -1161,9 +1161,9 @@ order."
:config
(consult-org-roam-mode)
:bind (:map goto-map
("r" . consult-org-roam-search)
:map global-map
("C-c n f" . consult-org-roam-file-find)))
("r" . consult-org-roam-search)
:map global-map
("C-c n f" . consult-org-roam-file-find)))
(use-package org-appear
:hook