(defun wg-string/starts-with (s arg)

  "returns non-nil if string S starts with ARG.  Else nil."

  (cond ((>= (length s) (length arg))

         (string-equal (substring s 0 (length arg)) arg))

        (t nil)))

(defun wg-is-file-remote (filename)

  "Return t if filename starts with \"/ssh:\" or \"/sudo:\""

  (interactive)

  (or (wg-string/starts-with filename "/ssh:")

      (wg-string/starts-with filename "/sudo:")))

;; (wg-is-file-remote "/sudo:/etc/myfile")

(provide 'workgroups-misc)

(require 'workgroups-misc)

;; Dired

(defun wg-deserialize-dired-buffer (buf)

  "Deserialize Dired buffer."

  (wg-dbind (this-function params) (wg-buf-special-data buf)

    (let ((dir (car params)))

      (if (file-exists-p dir)

          (dired dir))

      (current-buffer))))

(defun wg-serialize-dired-buffer (buffer)

  "Serialize Dired buffer."

  (with-current-buffer buffer

    (when (eq major-mode 'dired-mode)

      (list 'wg-deserialize-dired-buffer

            (wg-take-until-unreadable (list (or (buffer-file-name) default-directory)))

            ))))

    wg-serialize-dired-buffer