workgroups2 Files · src/workgroups-misc.el

Files @ 32f960186ab2

Branch filter:

Location: workgroups2/src/workgroups-misc.el

32f960186ab2 494 B text/x-elisp Show Annotation Show as Raw Download as Raw

Sergey Pashinin

dired serialize in special buffers (could not restore remote dirs)

(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)