diff options
| author |   Amin Bandali <bandali@gnu.org> | 2020-10-05 23:38:06 -0400 |
|---|---|---|
| committer | Amin Bandali <bandali@gnu.org> | 2020-10-05 23:38:06 -0400 |
| commit | d7dee82420a04e5c92e5b5ad316e14a49bd4d689 (patch) | |
| tree | 9dceac59e3b0d40b0357e8854e191ac5559d41ab /.emacs.d/lisp/bandali-ivy.el | |
| parent | 927b50b7aec2da105bd5125dec272a89e38663c3 (diff) | |
| download | configs-d7dee82420a04e5c92e5b5ad316e14a49bd4d689.tar.gz configs-d7dee82420a04e5c92e5b5ad316e14a49bd4d689.tar.xz configs-d7dee82420a04e5c92e5b5ad316e14a49bd4d689.zip | |
Move GNU Emacs configs from ./ into .emacs.d/
I will be using the repository to store my configurations for other
non-Emacs pieces of software. The repository itself will be located
at ~/ rather than ~/.emacs.d/.
Diffstat (limited to '.emacs.d/lisp/bandali-ivy.el')
| -rw-r--r-- | .emacs.d/lisp/bandali-ivy.el | 74 |
1 files changed, 74 insertions, 0 deletions
diff --git a/.emacs.d/lisp/bandali-ivy.el b/.emacs.d/lisp/bandali-ivy.el new file mode 100644 index 0000000..973323a --- /dev/null +++ b/.emacs.d/lisp/bandali-ivy.el @@ -0,0 +1,74 @@ +;;; 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: + +(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'. + +This function is intended for use with `ivy-ignore-buffers'." + (let* ((buf (get-buffer str)) + (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) + + (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) + + ;; swiper + (require 'swiper) + (global-set-key (kbd "C-S-s") #'swiper-isearch) + + ;; counsel + (require 'counsel) + (counsel-mode 1) + (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 |