From eee58e52994eeb51f805fe2598aab3795bbe555a Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 8 Oct 2023 18:53:03 +0300 Subject: emacs:(tools) Add thanos/library-search Function to search for books in ~/Library --- .emacs.d/modules/thanos-tools.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to '.emacs.d/modules/thanos-tools.el') diff --git a/.emacs.d/modules/thanos-tools.el b/.emacs.d/modules/thanos-tools.el index b6c50ef..974baf3 100644 --- a/.emacs.d/modules/thanos-tools.el +++ b/.emacs.d/modules/thanos-tools.el @@ -75,6 +75,14 @@ (setf register-preview-delay 0.5 register-preview-function #'consult-register-format) +;; Consult custom functions +(defun thanos/library-search () + "Search for content at ~/Library using consult-find." + (interactive) + (consult-find "~/Library")) + +(define-key global-map (kbd "C-c s") 'thanos/library-search) + (defun insert-brackets (&optional arg) "Insert ARG brackets." (interactive "P") -- cgit v1.2.3