emacs: use ivy’s virtual buffers

diff --git a/.emacs.d/etc/custom.el b/.emacs.d/etc/custom.el
index 7bf75f0..34cc306 100644 (file)
--- a/.emacs.d/etc/custom.el
+++ b/.emacs.d/etc/custom.el
@@ -21,7 +21,7 @@
            " " filename-and-process)
      (mark " "
            (name 16 -1)
-           " " filename)))
+           " " filename)) t)
  '(ibuffer-saved-filter-groups
    '(("default"
       ("dired"
@@ -65,7 +65,7 @@
         (name . "^\\*scratch\\*$")
         (name . "^\\*Messages\\*$")))
       ("erc"
-       (mode . erc-mode)))))
+       (mode . erc-mode)))) t)
  '(ls-lisp-dirs-first t t)
  '(org-agenda-files
    '("~/usr/org/todos/personal.org" "~/usr/org/todos/masters.org"))
@@ -88,6 +88,7 @@
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
  '(dired-directory ((t (:weight semi-bold))))
+ '(ivy-virtual ((t (:inherit font-lock-builtin-face :foreground "dim gray"))))
  '(magit-diff-file-heading ((t (:weight normal))))
  '(quote (org-block-begin-line ((t (:foreground "#5a5b5a" :background "#1d1f21")))))
  '(widget-button ((t (:weight semi-bold)))))

diff --git a/.emacs.d/init.org b/.emacs.d/init.org
index 5d877f8..06b0ce0 100644 (file)
--- a/.emacs.d/init.org
+++ b/.emacs.d/init.org
@@ -1084,7 +1084,11 @@ There's no way I could top that, so I won't attempt to.
    ([S-down] . ivy-next-history-element)
    ("DEL"    . ivy-backward-delete-char))
   :config
-  (setq ivy-wrap t)
+  (setq ivy-wrap t
+        ivy-height 14
+        ivy-use-virtual-buffers t
+        ivy-virtual-abbreviate 'abbreviate
+        ivy-count-format "%d/%d ")
   (ivy-mode 1)
   ;; :custom-face
   ;; (ivy-minibuffer-match-face-2 ((t (:background "#e99ce8" :weight semi-bold))))
@@ -1110,9 +1114,9 @@ There's no way I could top that, so I won't attempt to.
   :after ivy
   :bind (([remap execute-extended-command] . counsel-M-x)
          ([remap find-file]                . counsel-find-file)
-         ("s-r"                            . counsel-recentf)
          ("C-c x"                          . counsel-M-x)
          ("C-c f ."                        . counsel-find-file)
+         ("C-c f l"                        . counsel-find-library)
          :map minibuffer-local-map
          ("C-r" . counsel-minibuffer-history))
   :config