kill-tramp-buffers.el

(defun epicemacs/save-and-kill-tramp-buffers ()
  (interactive)
  (let* (
         (filter "\*") ;; not any meta buffers such as  #<buffer *tramp/ssh rootepicvps*> - let them be
         (ssh-buffers (seq-filter (lambda (buf)
                                    (not (string-match-p filter (buffer-name buf))))
                                  (tramp-list-remote-buffers)))
         (ssh-buffer-names (mapcar #'buffer-name ssh-buffers))
         (prettylist (mapconcat 'identity ssh-buffer-names " "))
         )
    (message "killing tramp buffers: %s" prettylist)
    (mapcar #'save-buffer ssh-buffers)
    (mapcar #'kill-buffer ssh-buffers)
    )
  )