ivy-completing-read for this

This commit is contained in:
Benson Chu 2022-10-28 14:59:35 -05:00
parent 53a6dc313d
commit 3b6e9e41b0

View file

@ -160,7 +160,7 @@
(setf (alist-get category db)
(point-marker))
nil)
(let* ((category-name (completing-read "Category? " (sort (mapcar #'car db) #'ivy-string<)))
(let* ((category-name (ivy-completing-read "Category? " (sort (mapcar #'car db) #'ivy-string<)))
(category (intern category-name))
(entry (assoc category db)))
(unless entry ;; New category!
@ -170,7 +170,6 @@
(when-let (location (alist-get category db))
(op/refile-to-point (buffer-file-name) location)))))))
(use-exwm
:config
(require 'fireorg)