* lisp/bandali-gnus.el: SFL mail setup

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

diff --git a/lisp/bandali-ivy.el b/lisp/bandali-ivy.el
index 763168b..3a67cf1 100644 (file)
--- a/lisp/bandali-ivy.el
+++ b/lisp/bandali-ivy.el
@@ -1,3 +1,29 @@
+;;; bandali-ivy.el --- bandali's Ivy setup           -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2018-2020  Amin Bandali
+
+;; Author: Amin Bandali <bandali@gnu.org>
+;; Keywords: matching
+
+;; 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:
+
+;; My configuration for Ivy and family.
+
+;;; Code:
+
 (use-package ivy
   :defer 0.3
   :bind
@@ -13,7 +39,10 @@
         ivy-virtual-abbreviate 'abbreviate
         ivy-count-format "%d/%d ")
 
-  (defvar b/ivy-ignore-buffer-modes '(magit-mode erc-mode dired-mode))
+  (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'.
@@ -25,16 +54,7 @@ This function is intended for use with `ivy-ignore-buffers'."
            (apply #'provided-mode-derived-p mode b/ivy-ignore-buffer-modes))))
   (add-to-list 'ivy-ignore-buffers 'b/ivy-ignore-buffer-p)
 
-  (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"))))
+  (ivy-mode 1))
 
 (use-package swiper
   :demand
@@ -52,3 +72,4 @@ This function is intended for use with `ivy-ignore-buffers'."
   (defalias 'locate #'counsel-locate))
 
 (provide 'bandali-ivy)
+;;; bandali-ivy.el ends here