summaryrefslogtreecommitdiff
path: root/.emacs.d
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-10-08 18:53:03 +0300
committerThanos Apollo <[email protected]>2023-10-08 18:53:42 +0300
commiteee58e52994eeb51f805fe2598aab3795bbe555a (patch)
treefb982f459a6f160aa45fdb6554200a3f889a715c /.emacs.d
parent81d3be863e3df019aa76de4a17cc30c014bdcb68 (diff)
emacs:(tools) Add thanos/library-search
Function to search for books in ~/Library
Diffstat (limited to '.emacs.d')
-rw-r--r--.emacs.d/init.el31
-rw-r--r--.emacs.d/modules/thanos-tools.el8
2 files changed, 38 insertions, 1 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 131a7ba..aa9577f 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1,4 +1,33 @@
-;;
+;;; thanos-dev.el --- Developer Tools Configuration -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2023 Thanos Apollo
+
+;; Author: Thanos Apollo <[email protected]>
+;; Keywords: extensions
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;; ╭━━━━┳╮╱╱╱╱╱╱╱╱╱╱╱╱╱╱╭━━━╮╱╱╱╱╱╭╮╭╮╱╱╱╱╱╱╱╱╭━━━╮
+;; ┃╭╮╭╮┃┃╱╱╱╱╱╱╱╱╱╱╱╱╱╱┃╭━╮┃╱╱╱╱╱┃┃┃┃╱╱╱╱╱╱╱╱┃╭━━╯
+;; ╰╯┃┃╰┫╰━┳━━┳━╮╭━━┳━━╮┃┃╱┃┣━━┳━━┫┃┃┃╭━━╮╱╱╱╱┃╰━━┳╮╭┳━━┳━━┳━━╮
+;; ╱╱┃┃╱┃╭╮┃╭╮┃╭╮┫╭╮┃━━┫┃╰━╯┃╭╮┃╭╮┃┃┃┃┃╭╮┃╭━━╮┃╭━━┫╰╯┃╭╮┃╭━┫━━┫
+;; ╱╱┃┃╱┃┃┃┃╭╮┃┃┃┃╰╯┣━━┃┃╭━╮┃╰╯┃╰╯┃╰┫╰┫╰╯┃╰━━╯┃╰━━┫┃┃┃╭╮┃╰━╋━━┃
+;; ╱╱╰╯╱╰╯╰┻╯╰┻╯╰┻━━┻━━╯╰╯╱╰┫╭━┻━━┻━┻━┻━━╯╱╱╱╱╰━━━┻┻┻┻╯╰┻━━┻━━╯
+;; ╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱┃┃
+;; ╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╱╰╯
+;;; Code:
(setf user-full-name "Thanos Apollo"
user-mail-address "[email protected]")
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")