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