Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 0fa3738d18
Fetching contributors…

Cannot retrieve contributors at this time

23 lines (18 sloc) 0.73 kb
(require 'relax)
(defun dss/couch-new-doc (id)
(interactive "sDocument ID: ")
(let ((url-request-method "PUT")
(url-request-data "{}"))
(url-retrieve (relax-url id) 'relax-visit-new-doc)))
(defun dss/couch-new-design-doc (id)
(list (read-from-minibuffer "Document ID: " "_design/" )))
(dss/couch-new-doc id))
;; (defun relax-new-doc (choose-id)
;; "Create a new document. With prefix arg, prompt for a document ID."
;; (interactive "P")
;; (let ((url-request-method (if choose-id "PUT" "POST"))
;; (url-request-data "{}")
;; (id (if choose-id (read-from-minibuffer "Document ID: "))))
;; (url-retrieve (relax-url id) 'relax-visit-new-doc)))
(provide 'dss-couchdb)
Jump to Line
Something went wrong with that request. Please try again.