From 7db9f8d56cbc3e49addfbe09867d0fcbc595fb1c Mon Sep 17 00:00:00 2001
From: Daniel Borchmann <daniel@algebra20.de>
Date: Sun, 30 Apr 2023 17:28:23 +0200
Subject: [PATCH] Fix indentation in utility library to conform to Common Lisp

This is the current indentation default.
---
 site-lisp/db-utils.el | 46 +++++++++++++++++++++----------------------
 1 file changed, 23 insertions(+), 23 deletions(-)

diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el
index af3e193..aade28c 100644
--- a/site-lisp/db-utils.el
+++ b/site-lisp/db-utils.el
@@ -515,30 +515,30 @@ entries, even if I want to use the input directly."
                   (stringp bn)
                   (file-name-nondirectory bn)))
          (default-alias
-           (and fn
-                (let ((aliases (remove (assoc "all" grep-files-aliases)
-                                       grep-files-aliases))
-                      alias)
-                  (while aliases
-                    (setq alias (car aliases)
-                          aliases (cdr aliases))
-                    (if (string-match (mapconcat
-                                       #'wildcard-to-regexp
-                                       (split-string (cdr alias) nil t)
-                                       "\\|")
-                                      fn)
-                        (setq aliases nil)
-                      (setq alias nil)))
-                  (cdr alias))))
+          (and fn
+               (let ((aliases (remove (assoc "all" grep-files-aliases)
+                                      grep-files-aliases))
+                     alias)
+                 (while aliases
+                   (setq alias (car aliases)
+                         aliases (cdr aliases))
+                   (if (string-match (mapconcat
+                                      #'wildcard-to-regexp
+                                      (split-string (cdr alias) nil t)
+                                      "\\|")
+                                     fn)
+                       (setq aliases nil)
+                     (setq alias nil)))
+                 (cdr alias))))
          (default-extension
-           (and fn
-                (let ((ext (file-name-extension fn)))
-                  (and ext (concat "*." ext)))))
+          (and fn
+               (let ((ext (file-name-extension fn)))
+                 (and ext (concat "*." ext)))))
          (default
-           (or default-alias
-               default-extension
-               (car grep-files-history)
-               (car (car grep-files-aliases))))
+          (or default-alias
+              default-extension
+              (car grep-files-history)
+              (car (car grep-files-aliases))))
          (files (completing-read
                  (format "Search for \"%s\" in files matching wildcard: "
                          regexp)
@@ -617,7 +617,7 @@ duplicates when elements are considered as symbols."
 
   (-each-indexed (string-to-list base45-alphabet)
     (-lambda (index char)
-      (puthash char index decode-hash-table)
+        (puthash char index decode-hash-table)
       ;; Add an encode-hash-table here in case base45-encode-string will ever be
       ;; written, like so: (puthash index char encode-hash-table)
       ))