Emacs: consult.el + jq

consult-jq.el

(defvar consult--jq-history nil)

(defun consult--jq-query (buffer query)
  "Return jq candidates for the BUFFER.
QUERY is the jq query."
  (with-temp-buffer
    (insert-buffer buffer)
    (call-process-region nil nil "jq" t t nil "-rM" query)
    (mapcar
     (lambda (s)
       (concat s (propertize query 'invisible t 'read-only t 'cursor-intangible t 'rear-nonsticky t)))
     (split-string
      (replace-regexp-in-string
       "\n$" ""
       (buffer-string)) "\n"))))

(defun consult-jq ()
  "Dynamically query JSON buffer with jq.
When you are happy with the query, press RET to open the result
in *consult-jq-buffer*."
  (interactive)
  (setq consult--jq-input ".")
  (setq consult--jq-current-buffer (current-buffer))
  (setq consult--jq-candidates (consult--jq-query consult--jq-current-buffer "."))
  (if-let ((result (consult--read
                    (lambda (input)
                      (cond
                       ((not input)
                        consult--jq-candidates)
                       ((listp input)
                        (appendq! consult--jq-candidates input)
                        consult--jq-candidates)
                       ((stringp input)
                        (setq consult--jq-input input)
                        (setq consult--jq-candidates (consult--jq-query consult--jq-current-buffer input)))))
                    :prompt "jq: "
                    :require-match t
                    :history '(:input consult--jq-history)
                    :category 'consult-jq
                    :initial "."
                    :sort nil)))
      (with-current-buffer (get-buffer-create "*consult-jq-buffer*")
        (erase-buffer)
        (insert-buffer consult--jq-current-buffer)
        (call-process-region nil nil "jq" t t nil "-rM" consult--jq-input)
        (json-mode)
        (goto-char (point-min))
        (display-buffer (current-buffer)))))