Function: treesit--copy-queries

treesit--copy-queries is a byte-compiled function defined in treesit.el.gz.

Signature

(treesit--copy-queries WORKDIR OUT-DIR LANG SOURCE-DIR)

Documentation

Copy files in LANG "queries" directory from WORKDIR to OUT-DIR.

The copied query files are queries/highlights.scm.

Source Code

;; Defined in /usr/src/emacs/lisp/treesit.el.gz
(defun treesit--copy-queries (workdir out-dir lang source-dir)
  "Copy files in LANG \"queries\" directory from WORKDIR to OUT-DIR.
The copied query files are queries/highlights.scm."
  (let* ((query-dir (expand-file-name
                     (or (and source-dir (format "%s/../queries" source-dir))
                         "queries")
                     workdir))
         (dest-dir (expand-file-name (format "queries/%s" lang) out-dir)))
    (when (file-directory-p query-dir)
      (unless (file-directory-p dest-dir)
        (make-directory dest-dir t))
      (dolist (file (directory-files query-dir t "highlights\\.scm\\'" t))
        (copy-file file (expand-file-name (file-name-nondirectory file) dest-dir) t)))))