1 files changed, 40 insertions, 40 deletions
diff --git a/.config/emacs/modules/bd--utility.el b/.config/emacs/modules/bd--utility.el
index bff3eeb..cdc2c7e 100644
--- a/.config/emacs/modules/bd--utility.el
+++ b/.config/emacs/modules/bd--utility.el
@@ -81,49 +81,49 @@ ARG can be one of the following:
 (defun bd/get-directory-dwim ()
   "Returns the directory you always wanted."
   (or (when (project-current)
-	(project-root (project-current)))	    ;; git
-      (locate-dominating-file "." "Makefile")	    ;; make
+	(project-root (project-current)))         ;; git
+      (locate-dominating-file "." "Makefile")     ;; make
       (locate-dominating-file "." "manifest.scm") ;; guix
       default-directory))
 
-  (defun bd/buffer-exwm-p (buf)
-    "Return non-nil if BUF is an `exwm-mode' buffer."
-    (member
-     (buffer-local-value 'major-mode (get-buffer buf))
-     '(exwm-mode)))
-
-  (defun bd/buffer-scratch-p (buf)
-    "Return non-nil if BUF is a scratch buffer."
-    (buffer-local-value 'scratch-buffer (get-buffer buf)))
-
-  (defun bd/buffer-text-p (buf)
-    "Return non-nil if BUF derives from `text-mode'."
-    (provided-mode-derived-p (buffer-local-value 'major-mode (get-buffer buf)) 'text-mode))
-
-  (defun bd/buffer-prog-p (buf)
-    "Return non-nil if BUF derives from `prog-mode'."
-    (provided-mode-derived-p (buffer-local-value 'major-mode (get-buffer buf)) 'prog-mode))
-
-  (defun bd/buffer-dired-p (buf)
-    "Return non-nil if BUF is a `dired-mode' buffer."
-    (member
-     (buffer-local-value 'major-mode (get-buffer buf))
-     '(dired-mode)))
-
-  (defun bd/buffer-irc-p (buf)
-    "Return non-nil if BUF is an `irc-mode' buffer."
-    (member
-     (buffer-local-value 'major-mode (get-buffer buf))
-     '(rcirc-mode erc-mode)))
-
-  (defun bd/buffer-ordinary-p (buf)
-    "Return non-nil if BUF does not fit into known categories."
-    (not (or (bd/buffer-exwm-p buf)
-             (bd/buffer-text-p buf)
-             (bd/buffer-prog-p buf)
-	     (bd/buffer-scratch-p buf)
-             (bd/buffer-dired-p buf)
-             (bd/buffer-irc-p buf))))
+(defun bd/buffer-exwm-p (buf)
+  "Return non-nil if BUF is an `exwm-mode' buffer."
+  (member
+   (buffer-local-value 'major-mode (get-buffer buf))
+   '(exwm-mode)))
+
+(defun bd/buffer-scratch-p (buf)
+  "Return non-nil if BUF is a scratch buffer."
+  (buffer-local-value 'scratch-buffer (get-buffer buf)))
+
+(defun bd/buffer-text-p (buf)
+  "Return non-nil if BUF derives from `text-mode'."
+  (provided-mode-derived-p (buffer-local-value 'major-mode (get-buffer buf)) 'text-mode))
+
+(defun bd/buffer-prog-p (buf)
+  "Return non-nil if BUF derives from `prog-mode'."
+  (provided-mode-derived-p (buffer-local-value 'major-mode (get-buffer buf)) 'prog-mode))
+
+(defun bd/buffer-dired-p (buf)
+  "Return non-nil if BUF is a `dired-mode' buffer."
+  (member
+   (buffer-local-value 'major-mode (get-buffer buf))
+   '(dired-mode)))
+
+(defun bd/buffer-irc-p (buf)
+  "Return non-nil if BUF is an `irc-mode' buffer."
+  (member
+   (buffer-local-value 'major-mode (get-buffer buf))
+   '(rcirc-mode erc-mode)))
+
+(defun bd/buffer-ordinary-p (buf)
+  "Return non-nil if BUF does not fit into known categories."
+  (not (or (bd/buffer-exwm-p buf)
+           (bd/buffer-text-p buf)
+           (bd/buffer-prog-p buf)
+	   (bd/buffer-scratch-p buf)
+           (bd/buffer-dired-p buf)
+           (bd/buffer-irc-p buf))))
 
 
 (provide 'bd--utility)