Paste: a

Author: b
Mode: lisp
Date: Wed, 28 Mar 2012 09:17:46
Plain Text | 
(defun get-dropbox-path ()
  "Retrieves path to Dropbox folder"
  (let* ((dropbox-config-file
					(concat (file-name-as-directory (getenv "APPDATA"))
									(file-name-as-directory "Dropbox")
									"host.db"))
				 (encoded-path
					(with-temp-buffer
						(insert-file-contents dropbox-config-file)
						(goto-char (point-min))
						(forward-line)
						(buffer-substring (point-at-bol) (point-max)))))
		(base64-decode-string encoded-path)))

New Annotation

Summary:
Author:
Mode:
Body: