feat(jq-mode): add +xq-interactively for XML

Author: abougouffa

core/me-external-tools.el

@@ -29,6 +29,9 @@
     (:tool yq
      :link "https://github.com/mikefarah/yq"
      :desc "A portable command-line YAML, JSON, XML, CSV, TOML and properties processor")
+    (:tool xq
+     :link "https://github.com/sibprogrammer/xq"
+     :desc "Command-line XML and HTML beautifier and content extractor")
     (:tool xmllint
      :link "https://github.com/GNOME/libxml2"
      :desc "Parse the XML files and output the result of the parsing")

modules/me-data.el

@@ -57,14 +57,24 @@
   :straight t
   :custom
   (jq-interactive-font-lock-mode (if (+emacs-features-p 'tree-sitter) #'json-ts-mode #'json-mode))
-  :init
+  :commands +yq-interactively +xq-interactively
+  :config
   (defun +yq-interactively ()
     "Use `jq-interactively' with \"yq\" for YAML."
     (interactive)
     (let ((jq-interactive-command "yq")
           (jq-interactive-default-prompt "yq: ")
           (jq-interactive-font-lock-mode (if (+emacs-features-p 'tree-sitter) #'yaml-ts-mode #'yaml-mode))
           (jq-interactive-default-options "")) ;; "--yaml-roundtrip"
+      (call-interactively #'jq-interactively)))
+
+  (defun +xq-interactively ()
+    "Use `jq-interactively' with \"xq\" for XML."
+    (interactive)
+    (let ((jq-interactive-command "xq")
+          (jq-interactive-default-prompt "xq: ")
+          (jq-interactive-font-lock-mode #'nxml-mode)
+          (jq-interactive-default-options "--node -x"))
       (call-interactively #'jq-interactively))))
 
 (use-package graphviz-dot-mode