Fold lisp/bandali-utils.el back into init.el

[~bandali/configs] / lisp / bandali-ivy.el

diff --git a/lisp/bandali-ivy.el b/lisp/bandali-ivy.el
index 4a88a13..973323a 100644 (file)
--- a/lisp/bandali-ivy.el
+++ b/lisp/bandali-ivy.el
@@ -24,22 +24,19 @@
 
 ;;; Code:
 
 
 ;;; Code:
 

-(use-package ivy
-  :defer 0.3
-  :bind
-  (:map ivy-minibuffer-map
-   ([escape] . keyboard-escape-quit)
-   ([S-up]   . ivy-previous-history-element)
-   ([S-down] . ivy-next-history-element)
-   ("DEL"    . ivy-backward-delete-char))
-  :config
-  (setq ivy-wrap t
-        ;; ivy-height 14
-        ivy-use-virtual-buffers t
-        ivy-virtual-abbreviate 'abbreviate
-        ivy-count-format "%d/%d ")
-
-  (defvar b/ivy-ignore-buffer-modes '(magit-mode erc-mode dired-mode))
+(run-with-idle-timer 0.3 nil #'require 'ivy)
+(with-eval-after-load 'ivy
+  ;; ivy
+  (csetq ivy-wrap t
+         ;; ivy-height 14
+         ivy-use-virtual-buffers t
+         ivy-virtual-abbreviate 'abbreviate
+         ivy-count-format "%d/%d ")
+
+  (defvar b/ivy-ignore-buffer-modes
+    '(;; dired-mode
+      ;; magit-mode
+      erc-mode))

   (defun b/ivy-ignore-buffer-p (str)
     "Return non-nil if str names a buffer with a major mode
 derived from one of `b/ivy-ignore-buffer-modes'.
   (defun b/ivy-ignore-buffer-p (str)
     "Return non-nil if str names a buffer with a major mode
 derived from one of `b/ivy-ignore-buffer-modes'.


@@ -49,33 +46,29 @@ This function is intended for use with `ivy-ignore-buffers'."
            (mode (and buf (buffer-local-value 'major-mode buf))))
       (and mode
            (apply #'provided-mode-derived-p mode b/ivy-ignore-buffer-modes))))
            (mode (and buf (buffer-local-value 'major-mode buf))))
       (and mode
            (apply #'provided-mode-derived-p mode b/ivy-ignore-buffer-modes))))

-  (add-to-list 'ivy-ignore-buffers 'b/ivy-ignore-buffer-p)
+  (add-to-list 'ivy-ignore-buffers #'b/ivy-ignore-buffer-p)
+
+  (define-key ivy-minibuffer-map [escape] #'keyboard-escape-quit)
+  (define-key ivy-minibuffer-map [S-up]
+    #'ivy-previous-history-element)
+  (define-key ivy-minibuffer-map [S-down]
+    #'ivy-next-history-element)
+  (define-key ivy-minibuffer-map (kbd "DEL")
+    #'ivy-backward-delete-char)

 
   (ivy-mode 1)
 
   (ivy-mode 1)

-  :custom-face
-  (ivy-minibuffer-match-face-1 ((t (:background "#eeeeee"))))
-  (ivy-minibuffer-match-face-2 ((t (:background "#e7e7e7" :weight bold))))
-  (ivy-minibuffer-match-face-3 ((t (:background "light goldenrod" :weight semi-bold))))
-  (ivy-minibuffer-match-face-4 ((t (:background "misty rose" :weight semi-bold))))
-  (ivy-current-match ((((class color) (background light))
-                       :background "#d7d7d7" :foreground "black")
-                      (((class color) (background dark))
-                       :background "#65a7e2" :foreground "black"))))
-
-(use-package swiper
-  :demand
-  :after ivy
-  :bind (("C-S-s" . swiper-isearch)))
-
-(use-package counsel
-  :demand
-  :after ivy
-  :bind (("C-c f r" . counsel-recentf)
-         :map minibuffer-local-map
-         ("C-r" . counsel-minibuffer-history))
-  :config
+
+  ;; swiper
+  (require 'swiper)
+  (global-set-key (kbd "C-S-s") #'swiper-isearch)
+
+  ;; counsel
+  (require 'counsel)

   (counsel-mode 1)
   (counsel-mode 1)

-  (defalias 'locate #'counsel-locate))
+  (defalias 'locate #'counsel-locate)
+  (global-set-key (kbd "C-c f r") #'counsel-recentf)
+  (define-key minibuffer-local-map
+    (kbd "C-r") #'counsel-minibuffer-history))

 
 (provide 'bandali-ivy)
 ;;; bandali-ivy.el ends here
 
 (provide 'bandali-ivy)
 ;;; bandali-ivy.el ends here