snapshot.el obsolete

snapshot.el

(defun snapshot (in)
  (interactive "DChoose directory to snapshot: ")
  ;; (let (( default-directory)))
  (let* ((in (directory-file-name in))
         (base (file-name-directory in))
         (default-directory base)
         (timestamp (format-time-string "%y%m%d-%H%M" (current-time)))
         (out (expand-file-name
               (format ".snapshot/%s-%s"
                       timestamp (file-name-nondirectory in))
               base)))
    (if (y-or-n-p (format "%s will be created?" out))
        (copy-directory in out t t))))