Ignore version numbers in ELPA package directories. Also gists are not displaying as the language that I indicate :(

package-dirs

(defun package-dirs (package-name)
  "Ignore version numbers in ELPA package directories"
  (let ((regex (concat "^" package-name "-.*")))
    (mapcar (lambda (x) (concat package-user-dir "/" x))
            (remove-if-not (lambda (x) (string-match regex x))
                           (directory-files package-user-dir)))))