style(emacs): change distance between sexps

1 files changed, 39 insertions, 2 deletions

diff --git a/home-manager/homeModules/emacs/init.el b/home-manager/homeModules/emacs/init.el
index 3cea31a..2c0331e 100644
--- a/home-manager/homeModules/emacs/init.el
+++ b/home-manager/homeModules/emacs/init.el
@@ -1,31 +1,39 @@
 (setq custom-file (locate-user-emacs-file "custom.el"))
 (load custom-file :no-error-if-file-is-missing)
 
+
 (load (expand-file-name "elpaca.el" user-emacs-directory))
 
 
+
 ;;; Basic behaviour
 
+
 (use-package delsel
   :ensure nil
   :hook (elpaca-after-init . delete-selection-mode))
 
+
 (setq uniquify-buffer-name-style 'forward)
 
+
 ;; Auto save
 (setq auto-save-default t)
 (setq auto-save-include-big-deletions t)
 (setq kill-buffer-delete-auto-save-files t)
 
+
 ;; Auto revert
 (setq revert-without-query (list ".")  ; Do not prompt
       auto-revert-stop-on-user-input nil
       auto-revert-verbose t)
 
+
 ;; Revert other buffers (e.g, Dired)
 (setq global-auto-revert-non-file-buffers t)
 (add-hook 'after-init-hook #'global-auto-revert-mode)
 
+
 ;; Save place in buffer
 (setq save-place-limit 600)
 (add-hook 'after-init-hook #'save-place-mode)
@@ -63,11 +71,13 @@ The DWIM behaviour of this command is as follows:
   :config
   (no-littering-theme-backups))
 
+
 (use-package which-key
   :ensure nil
   :init
   (which-key-mode))
 
+
 (use-package undo-tree
   :init
   (global-undo-tree-mode))
@@ -85,6 +95,7 @@ The DWIM behaviour of this command is as follows:
 (setq ediff-window-setup-function #'ediff-setup-windows-plain
       ediff-split-window-function #'split-window-horizontally)
 
+
 (electric-pair-mode t)
 
 
@@ -159,6 +170,7 @@ The DWIM behaviour of this command is as follows:
 (setq scroll-error-top-bottom t)
 (setq scroll-preserve-screen-position t)
 
+
 ;; Annoyances
 (blink-cursor-mode -1)
 (setq visible-bell nil)
@@ -197,10 +209,12 @@ The DWIM behaviour of this command is as follows:
               ("DEL" . vertico-directory-delete-char)
               ("M-DEL" . vertico-directory-delete-word)))
 
+
 (use-package marginalia
   :ensure t
   :hook (elpaca-after-init . marginalia-mode))
 
+
 (use-package prescient
   :config
   (prescient-persist-mode)
@@ -219,6 +233,7 @@ The DWIM behaviour of this command is as follows:
   :config
   (vertico-prescient-mode))
 
+
 (use-package savehist
   :ensure nil ; it is built-in
   :hook (elpaca-after-init . savehist-mode)
@@ -228,6 +243,7 @@ The DWIM behaviour of this command is as follows:
   (history-delete-duplicates t)
   (savehist-additional-variables '(kill-ring search-ring)))
 
+
 (defun cape--dabbrev-project ()
   (let* ((project (project-current))
          (buffers (when project
@@ -246,6 +262,7 @@ The DWIM behaviour of this command is as follows:
   (add-hook 'completion-at-point-functions #'cape-file)
   (add-hook 'completion-at-point-functions #'cape-elisp-block))
 
+
 (use-package corfu
   :hook (elpaca-after-init . global-corfu-mode)
   :bind (:map corfu-map
@@ -267,8 +284,11 @@ The DWIM behaviour of this command is as follows:
   :config
   (corfu-popupinfo-mode 1))
 
+
+
 ;;; The file manager (Dired)
 
+
 (use-package dired
   :ensure nil
   :commands (dired)
@@ -282,6 +302,7 @@ The DWIM behaviour of this command is as follows:
   (dired-dwim-target t)
   (dired-listing-switches "-hal --group-directories-first"))
 
+
 (use-package dired-subtree
   :ensure t
   :after dired
@@ -294,6 +315,7 @@ The DWIM behaviour of this command is as follows:
   :custom
   (dired-subtree-use-backgrounds nil))
 
+
 (use-package trashed
   :ensure t
   :commands (trashed)
@@ -303,20 +325,28 @@ The DWIM behaviour of this command is as follows:
   (trashed-sort-key '("Date deleted" . t))
   (trashed-date-format "%Y-%m-%d %H:%M:%S"))
 
-;;; Additional Packages
 
 
 ;;; Eshell
+
+
 (add-hook 'eshell-mode-hook
           (lambda ()
             (setq-local corfu-auto nil)))
+
+
 (add-hook 'eshell-exec-hook (lambda (p)
                               (buffer-disable-undo)))
+
 (add-hook 'eshell-kill-hook (lambda (p s)
                               (buffer-enable-undo)))
+
+
 (setq eshell-history-size 500
       eshell-history-append t)
 
+
+
 (defun spl3g/eshell-dwim ()
   (interactive)
   (defvar current-prefix-arg)
@@ -340,13 +370,17 @@ The DWIM behaviour of this command is as follows:
   									   (eq (with-current-buffer buffer major-mode)
   										   'eshell-mode))
   									 (buffer-list)))
-  		 (eshell-names (mapcar (lambda (buffer) (buffer-name buffer)) eshell-buffers))
+  		 
          (eshell-windows (remove nil (mapcar (lambda (buffer)
                                                (let* ((window (get-buffer-window buffer))
                                                       (name (buffer-name buffer)))
                                                  (when window
                                                    (cons name window))))
                                              eshell-buffers)))
+		 
+		 (eshell-names (seq-filter (lambda (buffer) (not (eq buffer (buffer-name (current-buffer)))))
+								   (mapcar (lambda (buffer) (buffer-name buffer)) eshell-buffers)))
+		 
          (selected-buffer (if (length> eshell-buffers 1)
   							  (completing-read "Select eshell buffer: " eshell-names)
   							(car eshell-buffers)))
@@ -433,10 +467,12 @@ The DWIM behaviour of this command is as follows:
 (use-package eshell-syntax-highlighting
   :hook (eshell-mode . eshell-syntax-highlighting-mode))
 
+
 (use-package fish-completion
   :hook (eshell-mode . fish-completion-mode))
 
 
+
 ;;; Programming things
 (use-package tempel
   :bind (:map tempel-map
@@ -550,6 +586,7 @@ The DWIM behaviour of this command is as follows:
   (add-to-list 'sideline-backends-right 'sideline-flycheck))
 
 
+
 ;;; Languages
 (use-package web-mode
   :mode