Function: combobulate-query-ring--execute

combobulate-query-ring--execute is a natively compiled function defined in combobulate-query.el.

Signature

(combobulate-query-ring--execute ASK-PROMPT MESSAGE FN)

Documentation

Execute FN on the active query ring entry with ASK-PROMPT and MESSAGE.

ASK-PROMPT is the prompt to ask the user before executing FN on the query. MESSAGE is the message to display after executing FN on the query.

FN is a function that takes two arguments: the matches and the query.

Source Code

;; Defined in /nix/store/b5fvrwzi3zvkabyzx0in6gw1cj963z46-emacs-packages-deps/share/emacs/site-lisp/combobulate-query.el
(defun combobulate-query-ring--execute (ask-prompt message fn)
  "Execute FN on the active query ring entry with ASK-PROMPT and MESSAGE.

ASK-PROMPT is the prompt to ask the user before executing FN on
the query. MESSAGE is the message to display after executing FN
on the query.

FN is a function that takes two arguments: the matches and the
query."
  (when (ring-empty-p combobulate-query-ring)
    (error "The query ring is empty. Insert a query with \\[combobulate-query-builder]"))
  (let* ((query (combobulate-query-ring-current-query))
         (pretty-query (combobulate-query-pretty-print query))
         (matches))
    (when (yes-or-no-p (format (concat ask-prompt "\n%s") pretty-query))
      (setq matches (combobulate-query-capture (combobulate-root-node) query))
      (prog1 (funcall fn matches query)
        (combobulate-message
         (format (concat message ": %s")
                 (combobulate-tally-nodes matches t)
                 pretty-query))))))