From b75d9ac9efd0d5d4156ac223975dc8e6db9293c8 Mon Sep 17 00:00:00 2001
From: Doug Kirk <dbkirk@gmail.com>
Date: Wed, 26 Oct 2016 16:15:28 -0500
Subject: [PATCH] Add support for fetching results from CouchDB list functions.

---
 README.md                 |  4 ++--
 project.clj               |  6 +++---
 src/com/ashafa/clutch.clj | 11 ++++++++++-
 3 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/README.md b/README.md
index 6fa1434..2553f3f 100644
--- a/README.md
+++ b/README.md
@@ -7,7 +7,7 @@ Clutch is a [Clojure](http://clojure.org) library for [Apache CouchDB](http://co
 To include Clutch in your project, simply add the following to your `project.clj` dependencies:
 
 ```clojure
-[com.ashafa/clutch "0.4.1"]
+[com.ashafa/clutch "0.5.0"]
 ```
 
 Or, if you're using Maven, add this dependency to your `pom.xml`:
@@ -16,7 +16,7 @@ Or, if you're using Maven, add this dependency to your `pom.xml`:
 <dependency>
     <groupId>com.ashafa</groupId>
     <artifactId>clutch</artifactId>
-    <version>0.4.0</version>
+    <version>0.5.0</version>
 </dependency>
 ```
 
diff --git a/project.clj b/project.clj
index 8d9aa90..26d92c4 100644
--- a/project.clj
+++ b/project.clj
@@ -1,13 +1,13 @@
-(defproject com.ashafa/clutch "0.4.1"
+(defproject com.ashafa/clutch "0.5.0"
   :description "A Clojure library for Apache CouchDB."
   :url "https://github.com/clojure-clutch/clutch/"
   :license {:name "BSD"
             :url "http://www.opensource.org/licenses/BSD-3-Clause"}
   :dependencies [[org.clojure/clojure "1.8.0"]
                  
-                 [clj-http "3.1.0"]
+                 [clj-http "3.3.0"]
                  [cheshire "5.6.3"]
-                 [commons-codec "1.6"]
+                 [commons-codec "1.10"]
                  [com.cemerick/url "0.1.1"]
                  
                  [org.clojure/clojurescript "1.8.40" :optional true
diff --git a/src/com/ashafa/clutch.clj b/src/com/ashafa/clutch.clj
index efc9ae8..2084132 100644
--- a/src/com/ashafa/clutch.clj
+++ b/src/com/ashafa/clutch.clj
@@ -3,8 +3,8 @@
             [cheshire.core :as json]
             [clojure.java.io :as io]
             [cemerick.url :as url]
+            [com.ashafa.clutch.http-client :refer :all]
             clojure.string)
-  (:use com.ashafa.clutch.http-client)
   (:import (java.io File FileInputStream BufferedInputStream InputStream ByteArrayOutputStream)
            (java.net URL))
   (:refer-clojure :exclude (conj! assoc! dissoc!)))
@@ -396,6 +396,15 @@
                    (utils/url db "_design" (name design-document) "_update" (name update-function-name) id)
                    :data body))
 
+(defdbop get-list
+  "Get list views associated with a design document.
+   Also takes an optional map for querying options.
+
+   No support for views in design documents other than the one containing the list view."
+  [db design-document list-key view-key & [query-params-map]]
+  (let [url (assoc (utils/url db "_design" (name design-document) "_list" (name list-key) (name view-key))
+                   :query query-params-map)]
+    (couchdb-request :get url)))
 ;;;; _changes
 
 (defdbop changes