emacs yasnippet nested snippet

get-yasnippet-expansion-by-name.el

(defun my/get-yasnippet-content-by-name(snippet-name &optional mode)
  (yas--template-content (yas--get-template-by-uuid (yas--table-get-create (or mode major-mode) ) snippet-name)))

(defun my/get-yasnippet-expansion-by-name(snippet-name &optional mode)
  (let ((mode (or mode major-mode)) start-point snippet-expansion)
    (save-excursion
      ;; (funcall mode)
      (unless yas-minor-mode (yas-minor-mode))
      (goto-char (point-max))
      (insert "\n")
      (setq start-point (point))
      (yas-expand-snippet (my/get-yasnippet-content-by-name snippet-name mode))
      (setq snippet-expansion (buffer-substring-no-properties start-point (point-max)))
      (delete-region start-point (point)))
      snippet-expansion
    ))

snippet

`(my/get-yasnippet-expansion-by-name "CHECK_macro")`
`(my/get-yasnippet-expansion-by-name "CHECK_macro" 'cuda-mode)`