Skip to content

Instantly share code, notes, and snippets.

@fmw
Created August 6, 2011 03:02
Show Gist options
  • Save fmw/1128963 to your computer and use it in GitHub Desktop.
Save fmw/1128963 to your computer and use it in GitHub Desktop.
doseq problem
(ns vix.views.feed
(:require [vix.core :as core]
[vix.document :as document]
[vix.util :as util]
[soy :as soy]
[vix.templates.feed :as tpl]
[goog.events :as events]
[goog.dom :as dom]))
(defn display-document-list [main-el xhr e]
(soy/renderElement main-el
tpl/list-documents
(util/map-to-obj
{:json (.getResponseJson xhr e)})))
(defn create-document-list-events [feed]
; function () {var or__3576__auto____2138 = _seq[goog.typeOf.call(null, o)];if (cljs.core.truth_(or__3576__auto____2138)) {return or__3576__auto____2138;} else {return _seq._;}}() is undefined
(doseq [element (first (vector (dom/getElementsByClass "edit-link")))]
(events/listen element
"click"
(fn [e]
(js/console.log (.target e))
(.preventDefault e))))
(events/listen (dom/getElement "add-document")
"click"
(fn [e]
(core/navigate (str feed "/new") "New Document"))))
(defn list-documents [uri-path]
(let [feed (last (re-find #"^/admin/(.*?)/overview$" uri-path))]
(document/get-feed
feed
(fn [e]
(let [main-el (dom/getElement "main-page")
xhr (.target e)
status (.getStatus xhr e)]
(if (= status 200)
(do
(display-document-list main-el xhr e)
(create-document-list-events feed))
(soy/renderElement main-el tpl/list-documents-error)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment