From 2d364b5c899a163106f9703ca703862a455b8c3b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 20 Apr 2021 16:24:06 -0500
Subject: Advise setup to use lexical-binding

---
 init.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index d3a4111..d073708 100644
--- a/init.el
+++ b/init.el
@@ -19,6 +19,14 @@
 ;; Let's use lexical binding by default, shall we?
 (setq-default lexical-binding t)
 
+;; For some reason, the above setting doesn't translate to the *scratch*
+;; buffer, where I try out packages.
+(advice-add 'setup :around
+            (defun acdw/setup-lexical-advice (orig-fun &rest args)
+              "Wrap `setup' in a `lexical-binding' form."
+              (let ((lexical-binding t))
+                (apply orig-fun args))))
+
 
 ;;; Necessary packages
 
@@ -371,7 +379,7 @@
       t)))
 
 
-;; Applications
+;;; Applications
 
 (setup (:straight (org :host nil
                        :repo "https://code.orgmode.org/bzg/org-mode.git"))
-- 
cgit 1.4.1-21-gabe81


From 65f22f2d2268004b2df5ce84c8e67e547a35b98b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 20 Apr 2021 16:24:42 -0500
Subject: Autoload elpher-go

---
 init.el | 1 +
 1 file changed, 1 insertion(+)

(limited to 'init.el')

diff --git a/init.el b/init.el
index d073708..e892b38 100644
--- a/init.el
+++ b/init.el
@@ -467,6 +467,7 @@
          "G" elpher-go-current)
   (:hook acdw/reading-mode)
   (autoload 'elpher-bookmarks "elpher" nil t)
+  (autoload 'elpher-go "elpher" nil t)
   ;; Make `eww' gemini/gopher aware.  From Emacswiki.
   (advice-add 'eww-browse-url :around
               (defun elpher:eww-browse-url (original url &optional new-window)
-- 
cgit 1.4.1-21-gabe81


From 37e80f75e4dcaad9a4ff462a66820db7e6317d76 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 20 Apr 2021 16:24:59 -0500
Subject: Only grow mini-windows, instead of resizing intensely

---
 init.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index e892b38..13eb6bb 100644
--- a/init.el
+++ b/init.el
@@ -614,7 +614,7 @@ call `zzz-to-char'."
 (setup (:straight (vertico
                    :host github
                    :repo "minad/vertico"))
-  (setq resize-mini-windows t)
+  (setq resize-mini-windows 'grow-only)
   (if (boundp 'comp-deferred-compilation-deny-list)
       (add-to-list 'comp-deferred-compilation-deny-list "vertico"))
   (icomplete-mode -1)
-- 
cgit 1.4.1-21-gabe81


From ec8f21a252069796a87c57ee79506f609e0eaf04 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 20 Apr 2021 16:25:31 -0500
Subject: Use consult for completion-in-region

---
 init.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 13eb6bb..358bcb1 100644
--- a/init.el
+++ b/init.el
@@ -700,7 +700,11 @@ if ripgrep is installed, otherwise `consult-grep'."
            xref-show-definitions-function #'consult-xref)
 
   ;; Projects
-  (:option consult-project-root-function #'vc-root-dir))
+  (:option consult-project-root-function #'vc-root-dir)
+
+  ;; Completion in region (at point)
+  (:option completion-in-region-function #'consult-completion-in-region)
+  )
 
 (setup (:straight marginalia)
   (:option marginalia-annotators '(marginalia-annotators-heavy
-- 
cgit 1.4.1-21-gabe81