> Would it be possible to look at you project source?
Sure this is all the source I currently have written:
;:mode=clojure:
(ns lib.dom-helpers
(:require [goog.dom :as dom]
[goog.dom.classes :as classes]))
(defn find-node [search]
(if (keyword? search)
(dom/getElement (name search))
(let [type (first search)
kname (subs search 1)]
(cond (= type \.)
(dom/getElementsByClass kname)
(= type \#)
[(dom/getElement kname)]))))
(defn children [node]
(interate dom/getNextElementSibling (dom/getChildElement node)))
(defn remove-class [node class]
(classes/remove node class))
(defn add-class [node class]
(classes/add node class))
<----- cut ----->
;:mode=clojure:
(ns mainpage
(:use lib.dom-helpers))
(defn top-bar-hover [id idx]
(doseq (map #(remove-class % "selected")
(children (find-node "#topbar"))))
(add-class (first (find-class (str "#" id)))))
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
