Browse files

Fixing class navigation

  • Loading branch information...
1 parent 4ed2004 commit fcbf75ee68962a2cd2ced724494c0cfd3fff034d @abedra abedra committed May 10, 2011
Showing with 6 additions and 8 deletions.
  1. +6 −8 src/mycroft/class.clj
View
14 src/mycroft/class.clj
@@ -9,14 +9,12 @@
[cls n-params selection]
(info "Class" cls)
(info "Selection" selection)
- (let [obj (:members (reflect/reflect cls))
+ (let [obj (reflect/reflect cls)
selectors (:selectors n-params)
- selection (select-in obj selectors)]
+ selection (select-in obj selectors)
+ n-params (if (= (last selectors) :members)
+ (assoc n-params :headers [:name :type :parameter-types :return-type :modifiers :declaring-class :exception-types :flags])
+ n-params)]
[:div
[:div {:id "breadcrumb"} (breadcrumb/render cls n-params selection)]
- [:div (render-type {:superclasses (supers cls)} {})]
- [:div (render-type selection
- (if selectors
- n-params
- (assoc n-params :headers
- [:name :type :parameter-types :return-type :modifiers :declaring-class :exception-types :flags])))]]))
+ [:div (render-type selection n-params)]]))

0 comments on commit fcbf75e

Please sign in to comment.