Permalink
Browse files

wip

  • Loading branch information...
stuarthalloway committed Sep 27, 2010
1 parent 0280b5a commit ce0ae1e0658ae538440dc5d9fc072e9dd1d121ca
Showing with 5 additions and 4 deletions.
  1. +1 −1 src/mycroft/breadcrumb.clj
  2. +4 −3 src/mycroft/class.clj
@@ -78,7 +78,7 @@
(if var (link-to ns) ns)])
(when classname
[:span " « "
- (str "class " classname)])
+ (if selectors (link-to item) (link-name item))])
(when var
[:span " / "
(if selectors (link-to var) (link-name var))])
View
@@ -7,15 +7,16 @@
(defn render
[cls options selection]
(let [obj (reflect/members cls)
- selectors (:selectors options)]
+ selectors (:selectors options)
+ selection (select-in obj selectors)]
[:div
[:div {:id "breadcrumb"}
- (breadcrumb/render cls options cls)]
+ (breadcrumb/render cls options selection)]
[:div
(render-type {:superclasses (supers cls)}
{})]
[:div
- (render-type obj
+ (render-type selection
(if selectors
options
(assoc options :headers

0 comments on commit ce0ae1e

Please sign in to comment.