delete-yasnippet-snippet

my-delete-current-yasnippet-file.el

(defun my/get-yasnippet-snippet-name ()
  "Get the name of the Yasnippet defined in the current buffer."
  (save-excursion
    (goto-char (point-min))
    (forward-line)
    (when (looking-at "# name: \\(.*\\)$")
       (match-string-no-properties 1))))

(defun my/get-yasnippet-mode ()
  (when (eq major-mode 'snippet-mode)
    (let* ((filename (buffer-file-name))
           (mode (file-name-directory filename)))
       (car (last (split-string mode "/" t)))
      )))

(defun my/delete-current-yasnippet-file ()
  (interactive)
  (when (eq major-mode 'snippet-mode)
    (let* ((filename (buffer-file-name))
           (uuid (my/get-yasnippet-snippet-name)))
      (when (yes-or-no-p (format "Are sure you want to delete the snippet with UUID: %s?" uuid))
        (yas--remove-template-by-uuid (yas--table-get-create (intern (my/get-yasnippet-mode))) uuid)
        (kill-buffer (current-buffer))
        (move-file-to-trash filename)
        ))))