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