From fc72ca6248712a9d82c3c1e13c9f72459bd3effe Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 7 Apr 2021 00:14:08 -0500
Subject: Uh

---
 init.el | 41 ++++++++++++++++++++++++-----------------
 1 file changed, 24 insertions(+), 17 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 4b0bd8c..0e621bd 100644
--- a/init.el
+++ b/init.el
@@ -66,7 +66,7 @@
            calendar-longitude -91.1)
   
   ;; Lines
-  (:option fill-column 80
+  (:option fill-column 79
            word-wrap t
            truncate-lines nil)
 
@@ -115,7 +115,7 @@
   ;; Cursor
   (:option cursor-type 'bar
            cursor-in-non-selected-windows 'hollow
-	   blink-cursor-blinks 1)
+           blink-cursor-blinks 1)
   (blink-cursor-mode +1)
 
   ;; Scrolling
@@ -306,7 +306,14 @@
     (write-region "" nil ispell-personal-dictionary nil 0))
 
   (add-hook 'text-mode-hook #'flyspell-mode)
-  (add-hook 'prog-mode-hook #'flyepell-prog-mode))
+  (add-hook 'prog-mode-hook #'flyspell-prog-mode))
+
+(setup scratch
+  (hook-defun immortal-scratch kill-buffer-query-functions
+    (if (eq (current-buffer (get-buffer "*scratch*")))
+        (progn (bury-buffer)
+               nil)
+      t)))
 
 
 ;; Applications
@@ -405,17 +412,17 @@
            '("\\.\\(gemini\\|gmi\\)\\'" . gemini-mode)))
 
 (setup dired
-  (:setq-default dired-recursive-copies 'always
-                 dired-recursive-deletes 'always
-                 delete-by-moving-to-trash t
-                 dired-listing-switches "-Al"
-                 ls-lisp-dirs-first t
-                 dired-ls-F-marks-symlinks t
-                 dired-no-confirm '(byte-compile
-                                    chgrp chmod chown copy
-                                    hardlink load move
-                                    shell touch symlink)
-                 dired-dwim-target t)
+  (:option dired-recursive-copies 'always
+           dired-recursive-deletes 'always
+           delete-by-moving-to-trash t
+           dired-listing-switches "-Al"
+           ls-lisp-dirs-first t
+           dired-ls-F-marks-symlinks t
+           dired-no-confirm '(byte-compile
+                              chgrp chmod chown copy
+                              hardlink load move
+                              shell touch symlink)
+           dired-dwim-target t)
   (:also-load dired-x)
   (:hook dired-hide-details-mode
          hl-line-mode)
@@ -435,7 +442,7 @@
       (:option trashed-action-confirmer 'y-or-n-p))))
 
 (setup (:straight magit)
-  (:acdw/leader "g" magit-status)
+  (:leader "g" magit-status)
   (:option magit-display-buffer-function
            (defun magit-display-buffer-same-window (buffer)
              "Display BUFFER in the selected window like God intended."
@@ -736,8 +743,8 @@ if ripgrep is installed, otherwise `consult-grep'."
 (when (executable-find "fennel")
   (setup (:straight fennel-mode)
     (autoload 'fennel-mode "fennel-mode" nil t)
-    (:option (append auto-mode-alist) '("\\.fnl\\'" . fennel-mode))
-    (:bind "C-c C-c" )))
+    (autoload 'fennel-repl "fennel-mode" nil t)
+    (:option (append auto-mode-alist) '("\\.fnl\\'" . fennel-mode))))
 
 (setup (:straight geiser))
 
-- 
cgit 1.4.1-21-gabe81