From a02ed48ac81583300747e91c0a964abbb590ef43 Mon Sep 17 00:00:00 2001
From: Adam Porter <adam@alphapapa.net>
Date: Mon, 18 Jul 2022 10:57:50 -0500
Subject: [PATCH] Change: (org-ql-find) Add workaround for Ivy support

See <https://github.com/alphapapa/org-ql/issues/284>.
---
 org-ql-find.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/org-ql-find.el b/org-ql-find.el
index 4f8e981..8630f72 100644
--- a/org-ql-find.el
+++ b/org-ql-find.el
@@ -83,6 +83,12 @@ For an experience like `org-rifle', use a newline."
 (defface org-ql-find-snippet '((t (:inherit font-lock-comment-face)))
   "Snippets.")
 
+;;;; Variables
+
+;; TODO: When Ivy no longer requires this workaround, remove it.  See
+;; <https://github.com/alphapapa/org-ql/issues/284>.
+(defvar ivy-completing-read-dynamic-collection)
+
 ;;;; Functions
 
 ;;;###autoload
@@ -209,6 +215,10 @@ single predicate)."
       (mapc #'org-ql--ensure-buffer buffers-files)
       (let* ((completion-styles '(org-ql-find))
              (completion-styles-alist (list (list 'org-ql-find #'try #'all "Org QL Find")))
+             ;; TODO: When Ivy no longer requires this workaround,
+             ;; remove it and the corresponding defvar.  See
+             ;; <https://github.com/alphapapa/org-ql/issues/284>.
+             (ivy-completing-read-dynamic-collection t)
              (selected (completing-read prompt #'collection nil))
              (marker (gethash selected table)))
         (with-current-buffer (marker-buffer marker)