Browsing drupal menus from Emacs IDE

gistfile1.el

    ;; browse drupal menus from emacs
    (setq base_url (concat "http://ww/" cu-drupal-site-name))
    (defun browse-drupal-menu (menu)
      "browse specific menu path on drupal site"
      (message (concat "browsing " menu))
      (cond
       ((equal menu "login")
        (message (concat base_url "/user"))
        (browse-url (concat base_url "/user")))
       ((equal menu "add")
        (browse-url (concat base_url "/node/add")))
       ((equal menu "finder")
        (browse-url (concat base_url "/admin/content")))
       ((equal menu "blocks")
        (browse-url (concat base_url "/admin/content/blocks")))
       ((equal menu "quicktabs")
        (browse-url (concat base_url "/admin/structure/quicktabs")))
       ((equal menu "context")
        (browse-url (concat base_url "/admin/structure/context")))
       ((equal menu "features")
        (browse-url (concat base_url "/admin/structure/features")))
       ((equal menu "views")
        (browse-url (concat base_url "/admin/structure/views")))
       ((equal menu "types")
        (browse-url (concat base_url "/admin/structure/types")))
       ((equal menu "taxonomy")
        (browse-url (concat base_url "/admin/structure/taxonomy")))
       ((equal menu "field-collections")
        (browse-url (concat base_url "/admin/structure/field-collections")))
       ((equal menu "migrate")
        (browse-url (concat base_url "/admin/content/migrate")))))
    (defun cu-drupal-menu-browse (menu)
      (interactive "sMenu: ")
      (browse-drupal-menu menu))
    (bind-key "C-8 m b" 'cu-drupal-menu-browse)