From 5c585c8b94b5bfea5b8a92b5f2da4358c6fc68c2 Mon Sep 17 00:00:00 2001
From: Chris Cochrun <chris@tfcconnection.org>
Date: Tue, 16 Feb 2021 11:45:23 -0600
Subject: [PATCH] tangled init.el

---
 init.el | 37 +++++++++++++++++++++----------------
 1 file changed, 21 insertions(+), 16 deletions(-)

diff --git a/init.el b/init.el
index 9797ec78..78271be8 100644
--- a/init.el
+++ b/init.el
@@ -1,19 +1,19 @@
 ;;; init.el -*- lexical-binding: t; -*-
-   (setq inhibit-startup-message t)
+(setq inhibit-startup-message t)
 
-    (scroll-bar-mode -1)
-    (tool-bar-mode -1)
-    (tooltip-mode -1)
-    (set-fringe-mode 10)
+(scroll-bar-mode -1)
+(tool-bar-mode -1)
+(tooltip-mode -1)
+(set-fringe-mode 10)
 
-    (menu-bar-mode -1)
-    (blink-cursor-mode -1)
-    (column-number-mode +1)
+(menu-bar-mode -1)
+(blink-cursor-mode -1)
+(column-number-mode +1)
 
 (if (string-equal (system-name) "chris-linuxlaptop")
     (set-face-attribute 'default nil :font "VictorMono Nerd Font" :height 240)
-    (set-face-attribute 'default nil :font "VictorMono Nerd Font" :height 120))
-  (setq display-line-numbers-type 'relative)
+  (set-face-attribute 'default nil :font "VictorMono Nerd Font" :height 120))
+(setq display-line-numbers-type 'relative)
 
 (global-set-key (kbd "<escape>") 'keyboard-escape-quit)
 
@@ -87,6 +87,7 @@
    "s" '(:ignore t :which-key "search")
    "o" '(:ignore t :which-key "open")
    "bs" '(consult-buffer :which-key "buffer search")
+   "bd" '(kill-this-buffer :which-key "kill buffer")
    "tt" '(consult-theme :which-key "choose theme")
    "ff" '(find-file :which-key "find file")
    "fs" '(save-buffer :which-key "save")
@@ -97,8 +98,8 @@
 
 (use-package evil-escape
   :after evil
-:init (evil-escape-mode +1)
-:config (setq evil-escape-key-sequence "fd"))
+  :init (evil-escape-mode +1)
+  :config (setq evil-escape-key-sequence "fd"))
 
 (use-package selectrum
   :init
@@ -116,6 +117,10 @@
   :config
   (prescient-persist-mode +1))
 
+(use-package selectrum-prescient
+  :init
+  (selectrum-prescient-mode +1))
+
 (use-package consult)
 
 ;; Enable richer annotations using the Marginalia package
@@ -150,12 +155,12 @@
   (defun chris/org-babel-tangle-config ()
     (when (string-equal (buffer-file-name)
                         (expand-file-name "~/.personal-emacs/init.org"))
-    (let ((org-confirm-babel-evaluate nil))
-    (org-babel-tangle))))
+      (let ((org-confirm-babel-evaluate nil))
+        (org-babel-tangle))))
 
   (add-hook 'org-mode-hook (lambda () (add-hook 'after-save-hook #'chris/org-babel-tangle-config))))
 
 (use-package magit
-    :commands (magit-status magit-get-current-branch)
+  :commands (magit-status magit-get-current-branch)
   :custom
-(magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1))
+  (magit-display-buffer-function #'magit-display-buffer-same-window-except-diff-v1))