(require 'tramp)

(defcustom buggy-tramp-mode-lighter
  '(:eval (format " BUGGY[%s]" (if (or (not (file-remote-p default-directory)) (tramp-connectable-p default-directory))
                                   (file-truename default-directory)
                                 ":(")))
  "Buggy example."
  :group 'buggy-tramp-mode
  :type 'sexp
  :risky t)

;;(setq buggy-tramp-mode-lighter '(:eval (format " BUGGY[%s]" default-directory)))

(define-minor-mode buggy-tramp-mode
  "test"
  :lighter buggy-tramp-mode-lighter
  :group 'buggy-tramp-mode)

(define-globalized-minor-mode global-buggy-tramp-mode
  buggy-tramp-mode
  buggy-tramp-mode)

(setq tramp-verbose 6)
(find-file "/scpx:silex@unitedsoft.ch:/tmp/foo.txt")

(global-buggy-tramp-mode)
(async-shell-command "ls")