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(-) 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(+) 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(-) 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(-) 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