my-places.el - simple directory shortcut for Emacs

my-places.el

;; usage: M-x places-goto

(setq my-places
  '((notes . "~/documents/notes")
    (blog . "~/documents/blog")
    (emacs . "~/.emacs.d")
    (src . "~/src")
    (projects . "~/src/projects")))

(defun places-goto ()
  (interactive)
  (let* ((key (intern (read-string "Go to place: ")))
         (place (cdr (assoc key my-places))))
    (when place
      (cd place)
      (message "current place: %s - %s" key place)
      (when (fboundp 'sr-speedbar-open)
        (unless (sr-speedbar-exist-p) (sr-speedbar-open))
        (sr-speedbar-refresh)))))

(provide 'my-places)