test.clj

(def main-menu-links
  [{:text "Home" :url "/" :key :home}
   {:text "Documentation" :url "/docs" :key :docs}
   {:text "Community" :url "/community" :key :community}])

(defn build-main-menu-item [{:keys [text url key]} active-menu]
  [:li (link-to
        (if (= key active-menu) {:class "active"} {})
        url
        text)])

(defn build-main-menu [active-menu]
  (map #(build-main-menu-item % active-menu) main-menu-links))
  ; Equivalent of:
  ; (map (fn [index] (build-main-menu-item index active-menu)) main-menu-links))