Skip to content
Browse files

remove default views

  • Loading branch information...
1 parent 298f767 commit 19e7a6310e4ac35bde7176a8eb0cdff02935865f @duck1123 committed Aug 8, 2012
Showing with 0 additions and 27 deletions.
  1. +0 −27 src/ciste/views/default.clj
View
27 src/ciste/views/default.clj
@@ -1,27 +0,0 @@
-(ns ciste.views.default
- (:use [ciste.views :only [apply-view-by-format]])
- (:require [clojure.data.json :as json]
- [clojure.pprint :as p]
- [clojure.string :as string]))
-
-(defmethod apply-view-by-format :json
- [_ & args]
- {:body (apply json/json-str args)})
-
-;; TODO: Use something other than prxml
-(defmethod apply-view-by-format :xml
- ;; {:doc "Attempts to render an unsupported type as xml"}
- [{:keys [action]} & _]
- {:body
- {:tag
- (keyword
- (last
- (string/split
- (str (:ns (meta action)))
- #"\.")))
- :attrs nil
- :content nil}})
-
-(defmethod apply-view-by-format :clj
- [_ & args]
- {:body (with-out-str (p/pprint (first args)))})

0 comments on commit 19e7a63

Please sign in to comment.
Something went wrong with that request. Please try again.