Magit log trace definition using TS for function name

magit-log-trace-definition-ts.el

(defun my-magit-log-trace-definition-ts()
  (interactive)
  (let ((funcname
         (substring-no-properties
          (treesit-node-text
           (treesit-node-child-by-field-name (treesit-defun-at-point) "name")))))
    (magit-log-trace-definition (or (magit-file-relative-name)
                                    (user-error "Buffer isn't visiting a file"))
                                (or funcname
                                    (user-error "No function at point found"))
                                (or magit-buffer-refname
                                    (magit-get-current-branch)
                                    "HEAD"))))