;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313%\210\314\315\316\317\320DD\321\322\323%\210\314\324\316\317\325DD\326\322\327%\207" [require cl-lib request json map subr-x custom-declare-group libelcouch nil "View and manipulate CouchDB databases." :group external custom-declare-variable libelcouch-couchdb-instances funcall function #[0 "\300\207" [nil] 1] "List of CouchDB instances." :type list libelcouch-timeout #[0 "\300\207" [10] 1] "Timeout in seconds for calls to the CouchDB instance.\nNumber of seconds before a call to CouchDB without answer is\nconsidered to have failed." number] 6) #@82 compiler-macro for inlining `libelcouch-named-entity-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch-named-entity-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch-named-entity-p (and (memq (type-of cl-x) cl-struct-libelcouch-named-entity-tags) t)) nil] 9 (#$ . 739)]) (put 'libelcouch-named-entity-p 'compiler-macro 'libelcouch-named-entity-p--cmacro) #@13 (fn CL-X) (defalias 'libelcouch-named-entity-p #[257 "\301!>\205 \302\207" [cl-struct-libelcouch-named-entity-tags type-of t] 3 (#$ . 1150)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libelcouch-named-entity-p side-effect-free error-free put libelcouch-named-entity cl-deftype-satisfies] 5) #@86 compiler-macro for inlining `libelcouch--named-entity-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--named-entity-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--named-entity-name (progn (or (libelcouch-named-entity-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-named-entity cl-x))) (aref cl-x 1))) nil] 9 (#$ . 1476)]) (put 'libelcouch--named-entity-name 'compiler-macro 'libelcouch--named-entity-name--cmacro) #@73 Access slot "name" of `libelcouch-named-entity' struct CL-X. (fn CL-X) (defalias 'libelcouch--named-entity-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-named-entity-tags type-of signal wrong-type-argument libelcouch-named-entity 1] 5 (#$ . 1966)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libelcouch--named-entity-name side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--named-entity-name] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@88 compiler-macro for inlining `libelcouch--named-entity-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--named-entity-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--named-entity-parent (progn (or (libelcouch-named-entity-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-named-entity cl-x))) (aref cl-x 2))) nil] 9 (#$ . 2509)]) (put 'libelcouch--named-entity-parent 'compiler-macro 'libelcouch--named-entity-parent--cmacro) #@75 Access slot "parent" of `libelcouch-named-entity' struct CL-X. (fn CL-X) (defalias 'libelcouch--named-entity-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-named-entity-tags type-of signal wrong-type-argument libelcouch-named-entity 2] 5 (#$ . 3009)]) (byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\"\207" [function-put libelcouch--named-entity-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--named-entity-parent] 5 "\n\n(fn CL-DO CL-X)"] defalias copy-libelcouch-named-entity copy-sequence] 5) #@106 compiler-macro for inlining `libelcouch--named-entity-create'. (fn CL-WHOLE &cl-quote &key NAME PARENT) (defalias 'libelcouch--named-entity-create--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :name :parent (:name :parent :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :parent)" cl--defsubst-expand (name parent) (cl-block libelcouch--named-entity-create (record 'libelcouch-named-entity name parent))] 12 (#$ . 3623)]) (put 'libelcouch--named-entity-create 'compiler-macro 'libelcouch--named-entity-create--cmacro) #@83 Constructor for objects of type `libelcouch-named-entity'. (fn &key NAME PARENT) (defalias 'libelcouch--named-entity-create #[128 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311#\207" [plist-member :name :parent (:name :parent :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :parent)" record libelcouch-named-entity] 7 (#$ . 4327)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put libelcouch--named-entity-create side-effect-free t cl-struct-define libelcouch-named-entity nil cl-structure-object record ((cl-tag-slot) (name nil :read-only t) (parent nil :read-only t)) cl-struct-libelcouch-named-entity-tags] 11) #@78 compiler-macro for inlining `libelcouch-instance-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch-instance-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch-instance-p (and (memq (type-of cl-x) cl-struct-libelcouch-instance-tags) t)) nil] 9 (#$ . 5118)]) (put 'libelcouch-instance-p 'compiler-macro 'libelcouch-instance-p--cmacro) #@13 (fn CL-X) (defalias 'libelcouch-instance-p #[257 "\301!>\205 \302\207" [cl-struct-libelcouch-instance-tags type-of t] 3 (#$ . 5506)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libelcouch-instance-p side-effect-free error-free put libelcouch-instance cl-deftype-satisfies] 5) #@82 compiler-macro for inlining `libelcouch--instance-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--instance-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--instance-name (progn (or (libelcouch-instance-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-instance cl-x))) (aref cl-x 1))) nil] 9 (#$ . 5816)]) (put 'libelcouch--instance-name 'compiler-macro 'libelcouch--instance-name--cmacro) #@69 Access slot "name" of `libelcouch-instance' struct CL-X. (fn CL-X) (defalias 'libelcouch--instance-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-instance-tags type-of signal wrong-type-argument libelcouch-instance 1] 5 (#$ . 6278)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libelcouch--instance-name side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--instance-name] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@84 compiler-macro for inlining `libelcouch--instance-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--instance-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--instance-parent (progn (or (libelcouch-instance-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-instance cl-x))) (aref cl-x 2))) nil] 9 (#$ . 6797)]) (put 'libelcouch--instance-parent 'compiler-macro 'libelcouch--instance-parent--cmacro) #@71 Access slot "parent" of `libelcouch-instance' struct CL-X. (fn CL-X) (defalias 'libelcouch--instance-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-instance-tags type-of signal wrong-type-argument libelcouch-instance 2] 5 (#$ . 7269)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libelcouch--instance-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--instance-parent] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@81 compiler-macro for inlining `libelcouch--instance-url'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--instance-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--instance-url (progn (or (libelcouch-instance-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-instance cl-x))) (aref cl-x 3))) nil] 9 (#$ . 7796)]) (put 'libelcouch--instance-url 'compiler-macro 'libelcouch--instance-url--cmacro) #@68 Access slot "url" of `libelcouch-instance' struct CL-X. (fn CL-X) (defalias 'libelcouch--instance-url #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-instance-tags type-of signal wrong-type-argument libelcouch-instance 3] 5 (#$ . 8253)]) (byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\"\207" [function-put libelcouch--instance-url side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--instance-url] 5 "\n\n(fn CL-DO CL-X)"] defalias copy-libelcouch-instance copy-sequence] 5) #@106 compiler-macro for inlining `libelcouch--instance-create'. (fn CL-WHOLE &cl-quote &key NAME PARENT URL) (defalias 'libelcouch--instance-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312\313\306\306&\207" [plist-member :name :parent :url (:name :parent :url :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :parent :url)" cl--defsubst-expand (name parent url) (cl-block libelcouch--instance-create (record 'libelcouch-instance name parent url))] 14 (#$ . 8827)]) (put 'libelcouch--instance-create 'compiler-macro 'libelcouch--instance-create--cmacro) #@83 Constructor for objects of type `libelcouch-instance'. (fn &key NAME PARENT URL) (defalias 'libelcouch--instance-create #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312$\207" [plist-member :name :parent :url (:name :parent :url :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :parent :url)" record libelcouch-instance] 9 (#$ . 9549)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put libelcouch--instance-create side-effect-free t cl-struct-define libelcouch-instance nil libelcouch-named-entity record ((cl-tag-slot) (name nil :read-only t) (parent nil :read-only t) (url nil :read-only t)) cl-struct-libelcouch-instance-tags] 11) #@78 compiler-macro for inlining `libelcouch-database-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch-database-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch-database-p (and (memq (type-of cl-x) cl-struct-libelcouch-database-tags) t)) nil] 9 (#$ . 10376)]) (put 'libelcouch-database-p 'compiler-macro 'libelcouch-database-p--cmacro) #@13 (fn CL-X) (defalias 'libelcouch-database-p #[257 "\301!>\205 \302\207" [cl-struct-libelcouch-database-tags type-of t] 3 (#$ . 10765)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libelcouch-database-p side-effect-free error-free put libelcouch-database cl-deftype-satisfies] 5) #@82 compiler-macro for inlining `libelcouch--database-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--database-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--database-name (progn (or (libelcouch-database-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-database cl-x))) (aref cl-x 1))) nil] 9 (#$ . 11076)]) (put 'libelcouch--database-name 'compiler-macro 'libelcouch--database-name--cmacro) #@69 Access slot "name" of `libelcouch-database' struct CL-X. (fn CL-X) (defalias 'libelcouch--database-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-database-tags type-of signal wrong-type-argument libelcouch-database 1] 5 (#$ . 11539)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libelcouch--database-name side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--database-name] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@84 compiler-macro for inlining `libelcouch--database-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--database-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--database-parent (progn (or (libelcouch-database-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-database cl-x))) (aref cl-x 2))) nil] 9 (#$ . 12059)]) (put 'libelcouch--database-parent 'compiler-macro 'libelcouch--database-parent--cmacro) #@71 Access slot "parent" of `libelcouch-database' struct CL-X. (fn CL-X) (defalias 'libelcouch--database-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-database-tags type-of signal wrong-type-argument libelcouch-database 2] 5 (#$ . 12532)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libelcouch--database-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--database-parent] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@81 compiler-macro for inlining `libelcouch--database-nil'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--database-nil--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--database-nil (progn (or (libelcouch-database-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-database cl-x))) (aref cl-x 3))) nil] 9 (#$ . 13060)]) (put 'libelcouch--database-nil 'compiler-macro 'libelcouch--database-nil--cmacro) #@68 Access slot "nil" of `libelcouch-database' struct CL-X. (fn CL-X) (defalias 'libelcouch--database-nil #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-database-tags type-of signal wrong-type-argument libelcouch-database 3] 5 (#$ . 13518)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put libelcouch--database-nil side-effect-free t defalias copy-libelcouch-database copy-sequence] 4) #@102 compiler-macro for inlining `libelcouch--database-create'. (fn CL-WHOLE &cl-quote &key NAME PARENT) (defalias 'libelcouch--database-create--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :name :parent (:name :parent :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :parent)" cl--defsubst-expand (name parent) (cl-block libelcouch--database-create (record 'libelcouch-database name parent nil))] 12 (#$ . 13954)]) (put 'libelcouch--database-create 'compiler-macro 'libelcouch--database-create--cmacro) #@79 Constructor for objects of type `libelcouch-database'. (fn &key NAME PARENT) (defalias 'libelcouch--database-create #[128 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\305$\207" [plist-member :name :parent (:name :parent :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :parent)" record libelcouch-database] 8 (#$ . 14639)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put libelcouch--database-create side-effect-free t cl-struct-define libelcouch-database nil libelcouch-named-entity record ((cl-tag-slot) (name nil :read-only t) (parent nil :read-only t) (nil)) cl-struct-libelcouch-database-tags] 11) #@78 compiler-macro for inlining `libelcouch-document-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch-document-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch-document-p (and (memq (type-of cl-x) cl-struct-libelcouch-document-tags) t)) nil] 9 (#$ . 15421)]) (put 'libelcouch-document-p 'compiler-macro 'libelcouch-document-p--cmacro) #@13 (fn CL-X) (defalias 'libelcouch-document-p #[257 "\301!>\205 \302\207" [cl-struct-libelcouch-document-tags type-of t] 3 (#$ . 15810)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libelcouch-document-p side-effect-free error-free put libelcouch-document cl-deftype-satisfies] 5) #@82 compiler-macro for inlining `libelcouch--document-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--document-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--document-name (progn (or (libelcouch-document-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-document cl-x))) (aref cl-x 1))) nil] 9 (#$ . 16121)]) (put 'libelcouch--document-name 'compiler-macro 'libelcouch--document-name--cmacro) #@69 Access slot "name" of `libelcouch-document' struct CL-X. (fn CL-X) (defalias 'libelcouch--document-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-document-tags type-of signal wrong-type-argument libelcouch-document 1] 5 (#$ . 16584)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libelcouch--document-name side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--document-name] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@84 compiler-macro for inlining `libelcouch--document-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--document-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--document-parent (progn (or (libelcouch-document-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-document cl-x))) (aref cl-x 2))) nil] 9 (#$ . 17104)]) (put 'libelcouch--document-parent 'compiler-macro 'libelcouch--document-parent--cmacro) #@71 Access slot "parent" of `libelcouch-document' struct CL-X. (fn CL-X) (defalias 'libelcouch--document-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-document-tags type-of signal wrong-type-argument libelcouch-document 2] 5 (#$ . 17577)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libelcouch--document-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--document-parent] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@81 compiler-macro for inlining `libelcouch--document-nil'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--document-nil--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--document-nil (progn (or (libelcouch-document-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-document cl-x))) (aref cl-x 3))) nil] 9 (#$ . 18105)]) (put 'libelcouch--document-nil 'compiler-macro 'libelcouch--document-nil--cmacro) #@68 Access slot "nil" of `libelcouch-document' struct CL-X. (fn CL-X) (defalias 'libelcouch--document-nil #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-document-tags type-of signal wrong-type-argument libelcouch-document 3] 5 (#$ . 18563)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put libelcouch--document-nil side-effect-free t defalias copy-libelcouch-document copy-sequence] 4) #@102 compiler-macro for inlining `libelcouch--document-create'. (fn CL-WHOLE &cl-quote &key NAME PARENT) (defalias 'libelcouch--document-create--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :name :parent (:name :parent :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :parent)" cl--defsubst-expand (name parent) (cl-block libelcouch--document-create (record 'libelcouch-document name parent nil))] 12 (#$ . 18999)]) (put 'libelcouch--document-create 'compiler-macro 'libelcouch--document-create--cmacro) #@79 Constructor for objects of type `libelcouch-document'. (fn &key NAME PARENT) (defalias 'libelcouch--document-create #[128 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\305$\207" [plist-member :name :parent (:name :parent :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :parent)" record libelcouch-document] 8 (#$ . 19684)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put libelcouch--document-create side-effect-free t cl-struct-define libelcouch-document nil libelcouch-named-entity record ((cl-tag-slot) (name nil :read-only t) (parent nil :read-only t) (nil)) cl-struct-libelcouch-document-tags] 11) #@85 compiler-macro for inlining `libelcouch-design-document-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch-design-document-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch-design-document-p (and (memq (type-of cl-x) cl-struct-libelcouch-design-document-tags) t)) nil] 9 (#$ . 20466)]) (put 'libelcouch-design-document-p 'compiler-macro 'libelcouch-design-document-p--cmacro) #@13 (fn CL-X) (defalias 'libelcouch-design-document-p #[257 "\301!>\205 \302\207" [cl-struct-libelcouch-design-document-tags type-of t] 3 (#$ . 20897)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libelcouch-design-document-p side-effect-free error-free put libelcouch-design-document cl-deftype-satisfies] 5) #@89 compiler-macro for inlining `libelcouch--design-document-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--design-document-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--design-document-name (progn (or (libelcouch-design-document-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-design-document cl-x))) (aref cl-x 1))) nil] 9 (#$ . 21236)]) (put 'libelcouch--design-document-name 'compiler-macro 'libelcouch--design-document-name--cmacro) #@76 Access slot "name" of `libelcouch-design-document' struct CL-X. (fn CL-X) (defalias 'libelcouch--design-document-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-design-document-tags type-of signal wrong-type-argument libelcouch-design-document 1] 5 (#$ . 21748)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libelcouch--design-document-name side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--design-document-name] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@91 compiler-macro for inlining `libelcouch--design-document-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--design-document-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--design-document-parent (progn (or (libelcouch-design-document-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-design-document cl-x))) (aref cl-x 2))) nil] 9 (#$ . 22310)]) (put 'libelcouch--design-document-parent 'compiler-macro 'libelcouch--design-document-parent--cmacro) #@78 Access slot "parent" of `libelcouch-design-document' struct CL-X. (fn CL-X) (defalias 'libelcouch--design-document-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-design-document-tags type-of signal wrong-type-argument libelcouch-design-document 2] 5 (#$ . 22832)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libelcouch--design-document-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--design-document-parent] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@88 compiler-macro for inlining `libelcouch--design-document-nil'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--design-document-nil--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--design-document-nil (progn (or (libelcouch-design-document-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-design-document cl-x))) (aref cl-x 3))) nil] 9 (#$ . 23402)]) (put 'libelcouch--design-document-nil 'compiler-macro 'libelcouch--design-document-nil--cmacro) #@75 Access slot "nil" of `libelcouch-design-document' struct CL-X. (fn CL-X) (defalias 'libelcouch--design-document-nil #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-design-document-tags type-of signal wrong-type-argument libelcouch-design-document 3] 5 (#$ . 23909)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put libelcouch--design-document-nil side-effect-free t defalias copy-libelcouch-design-document copy-sequence] 4) #@109 compiler-macro for inlining `libelcouch--design-document-create'. (fn CL-WHOLE &cl-quote &key NAME PARENT) (defalias 'libelcouch--design-document-create--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :name :parent (:name :parent :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :parent)" cl--defsubst-expand (name parent) (cl-block libelcouch--design-document-create (record 'libelcouch-design-document name parent nil))] 12 (#$ . 24387)]) (put 'libelcouch--design-document-create 'compiler-macro 'libelcouch--design-document-create--cmacro) #@86 Constructor for objects of type `libelcouch-design-document'. (fn &key NAME PARENT) (defalias 'libelcouch--design-document-create #[128 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\305$\207" [plist-member :name :parent (:name :parent :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :parent)" record libelcouch-design-document] 8 (#$ . 25114)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put libelcouch--design-document-create side-effect-free t cl-struct-define libelcouch-design-document nil libelcouch-named-entity record ((cl-tag-slot) (name nil :read-only t) (parent nil :read-only t) (nil)) cl-struct-libelcouch-design-document-tags] 11) #@74 compiler-macro for inlining `libelcouch-view-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch-view-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch-view-p (and (memq (type-of cl-x) cl-struct-libelcouch-view-tags) t)) nil] 9 (#$ . 25938)]) (put 'libelcouch-view-p 'compiler-macro 'libelcouch-view-p--cmacro) #@13 (fn CL-X) (defalias 'libelcouch-view-p #[257 "\301!>\205 \302\207" [cl-struct-libelcouch-view-tags type-of t] 3 (#$ . 26303)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libelcouch-view-p side-effect-free error-free put libelcouch-view cl-deftype-satisfies] 5) #@78 compiler-macro for inlining `libelcouch--view-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--view-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--view-name (progn (or (libelcouch-view-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-view cl-x))) (aref cl-x 1))) nil] 9 (#$ . 26598)]) (put 'libelcouch--view-name 'compiler-macro 'libelcouch--view-name--cmacro) #@65 Access slot "name" of `libelcouch-view' struct CL-X. (fn CL-X) (defalias 'libelcouch--view-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-view-tags type-of signal wrong-type-argument libelcouch-view 1] 5 (#$ . 27033)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libelcouch--view-name side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--view-name] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@80 compiler-macro for inlining `libelcouch--view-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--view-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--view-parent (progn (or (libelcouch-view-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-view cl-x))) (aref cl-x 2))) nil] 9 (#$ . 27529)]) (put 'libelcouch--view-parent 'compiler-macro 'libelcouch--view-parent--cmacro) #@67 Access slot "parent" of `libelcouch-view' struct CL-X. (fn CL-X) (defalias 'libelcouch--view-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-view-tags type-of signal wrong-type-argument libelcouch-view 2] 5 (#$ . 27974)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libelcouch--view-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--view-parent] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@77 compiler-macro for inlining `libelcouch--view-nil'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--view-nil--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--view-nil (progn (or (libelcouch-view-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-view cl-x))) (aref cl-x 3))) nil] 9 (#$ . 28478)]) (put 'libelcouch--view-nil 'compiler-macro 'libelcouch--view-nil--cmacro) #@64 Access slot "nil" of `libelcouch-view' struct CL-X. (fn CL-X) (defalias 'libelcouch--view-nil #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-view-tags type-of signal wrong-type-argument libelcouch-view 3] 5 (#$ . 28908)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put libelcouch--view-nil side-effect-free t defalias copy-libelcouch-view copy-sequence] 4) #@98 compiler-macro for inlining `libelcouch--view-create'. (fn CL-WHOLE &cl-quote &key NAME PARENT) (defalias 'libelcouch--view-create--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :name :parent (:name :parent :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :parent)" cl--defsubst-expand (name parent) (cl-block libelcouch--view-create (record 'libelcouch-view name parent nil))] 12 (#$ . 29319)]) (put 'libelcouch--view-create 'compiler-macro 'libelcouch--view-create--cmacro) #@75 Constructor for objects of type `libelcouch-view'. (fn &key NAME PARENT) (defalias 'libelcouch--view-create #[128 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\305$\207" [plist-member :name :parent (:name :parent :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :parent)" record libelcouch-view] 8 (#$ . 29980)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put libelcouch--view-create side-effect-free t cl-struct-define libelcouch-view nil libelcouch-named-entity record ((cl-tag-slot) (name nil :read-only t) (parent nil :read-only t) (nil)) cl-struct-libelcouch-view-tags] 11) #@78 compiler-macro for inlining `libelcouch-view-row-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch-view-row-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch-view-row-p (and (memq (type-of cl-x) cl-struct-libelcouch-view-row-tags) t)) nil] 9 (#$ . 30738)]) (put 'libelcouch-view-row-p 'compiler-macro 'libelcouch-view-row-p--cmacro) #@13 (fn CL-X) (defalias 'libelcouch-view-row-p #[257 "\301!>\205 \302\207" [cl-struct-libelcouch-view-row-tags type-of t] 3 (#$ . 31127)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put libelcouch-view-row-p side-effect-free error-free put libelcouch-view-row cl-deftype-satisfies] 5) #@82 compiler-macro for inlining `libelcouch--view-row-name'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--view-row-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--view-row-name (progn (or (libelcouch-view-row-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-view-row cl-x))) (aref cl-x 1))) nil] 9 (#$ . 31438)]) (put 'libelcouch--view-row-name 'compiler-macro 'libelcouch--view-row-name--cmacro) #@69 Access slot "name" of `libelcouch-view-row' struct CL-X. (fn CL-X) (defalias 'libelcouch--view-row-name #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-view-row-tags type-of signal wrong-type-argument libelcouch-view-row 1] 5 (#$ . 31901)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libelcouch--view-row-name side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--view-row-name] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@84 compiler-macro for inlining `libelcouch--view-row-parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--view-row-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--view-row-parent (progn (or (libelcouch-view-row-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-view-row cl-x))) (aref cl-x 2))) nil] 9 (#$ . 32421)]) (put 'libelcouch--view-row-parent 'compiler-macro 'libelcouch--view-row-parent--cmacro) #@71 Access slot "parent" of `libelcouch-view-row' struct CL-X. (fn CL-X) (defalias 'libelcouch--view-row-parent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-view-row-tags type-of signal wrong-type-argument libelcouch-view-row 2] 5 (#$ . 32894)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libelcouch--view-row-parent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--view-row-parent] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@81 compiler-macro for inlining `libelcouch--view-row-key'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--view-row-key--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--view-row-key (progn (or (libelcouch-view-row-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-view-row cl-x))) (aref cl-x 3))) nil] 9 (#$ . 33422)]) (put 'libelcouch--view-row-key 'compiler-macro 'libelcouch--view-row-key--cmacro) #@68 Access slot "key" of `libelcouch-view-row' struct CL-X. (fn CL-X) (defalias 'libelcouch--view-row-key #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-view-row-tags type-of signal wrong-type-argument libelcouch-view-row 3] 5 (#$ . 33880)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put libelcouch--view-row-key side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--view-row-key] 5 "\n\n(fn CL-DO CL-X)"]] 5) #@83 compiler-macro for inlining `libelcouch--view-row-value'. (fn CL-WHOLE-ARG CL-X) (defalias 'libelcouch--view-row-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block libelcouch--view-row-value (progn (or (libelcouch-view-row-p cl-x) (signal 'wrong-type-argument (list 'libelcouch-view-row cl-x))) (aref cl-x 4))) nil] 9 (#$ . 34396)]) (put 'libelcouch--view-row-value 'compiler-macro 'libelcouch--view-row-value--cmacro) #@70 Access slot "value" of `libelcouch-view-row' struct CL-X. (fn CL-X) (defalias 'libelcouch--view-row-value #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-view-row-tags type-of signal wrong-type-argument libelcouch-view-row 4] 5 (#$ . 34864)]) (byte-code "\300\301\302\303#\300\301\304\305#\306\307\310\"\207" [function-put libelcouch--view-row-value side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" libelcouch--view-row-value] 5 "\n\n(fn CL-DO CL-X)"] defalias copy-libelcouch-view-row copy-sequence] 5) #@112 compiler-macro for inlining `libelcouch--view-row-create'. (fn CL-WHOLE &cl-quote &key NAME PARENT KEY VALUE) (defalias 'libelcouch--view-row-create--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D\211@\305>\203,\211AA\262\202\306>A@\203;\307\262\202\310\311@\"\210\202\210\312\313\314\307 \307    & \207" [plist-member :name :parent :key :value (:name :parent :key :value :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :parent :key :value)" cl--defsubst-expand (name parent key value) (cl-block libelcouch--view-row-create (record 'libelcouch-view-row name parent key value))] 16 (#$ . 35447)]) (put 'libelcouch--view-row-create 'compiler-macro 'libelcouch--view-row-create--cmacro) #@89 Constructor for objects of type `libelcouch-view-row'. (fn &key NAME PARENT KEY VALUE) (defalias 'libelcouch--view-row-create #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D\211@\305>\203,\211AA\262\202\306>A@\203;\307\262\202\310\311@\"\210\202\210\312\313%\207" [plist-member :name :parent :key :value (:name :parent :key :value :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :parent :key :value)" record libelcouch-view-row] 11 (#$ . 36225)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \210\313\314\315\314\316\306#\317#\210\320\314\306\316\306\321%\210\313\322\315\322\323\306#\324#\210\320\322\306\323\306\325%\210\313\326\315\326\327\306#\330#\210\320\326\306\327\306\331%\210\320\326\306\332\306\333%\210\313\334\315\334\335\306#\336#\210\320\334\306\335\306\337%\210\320\334\306\340\306\341%\210\313\342\315\342\343\306#\344#\210\320\342\306\343\306\345%\210\320\342\306\346\306\347%\210\313\350\315\350\351\306#\352#\210\320\350\306\351\306\353%\210\320\350\306\354\306\355%\210\320\350\306\356\306\357%\210\320\350\306\360\306\361%\207" [function-put libelcouch--view-row-create side-effect-free t cl-struct-define libelcouch-view-row nil libelcouch-named-entity record ((cl-tag-slot) (name nil :read-only t) (parent nil :read-only t) (key nil :read-only t) (value nil :read-only t)) cl-struct-libelcouch-view-row-tags defalias libelcouch-entity-name cl-generic-define ((entity libelcouch-named-entity)) "Return the name of ENTITY.\n\n(fn (ENTITY libelcouch-named-entity))" cl-generic-define-method #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-named-entity-tags type-of signal wrong-type-argument libelcouch-named-entity 1] 5 "\n\n(fn ENTITY)"] libelcouch-entity-parent ((entity libelcouch-named-entity)) "Return the entity containing ENTITY, nil if none.\n\n(fn (ENTITY libelcouch-named-entity))" #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-named-entity-tags type-of signal wrong-type-argument libelcouch-named-entity 2] 5 "\n\n(fn ENTITY)"] libelcouch-entity-full-name ((entity libelcouch-named-entity)) "Return the full name of ENTITY's parent followed by ENTITY name.\n\n(fn (ENTITY libelcouch-named-entity))" #[257 "\300\301\302\303!!\302!#\207" [format "%s/%s" libelcouch-entity-name libelcouch-entity-parent] 6 "\n\n(fn ENTITY)"] ((entity libelcouch-instance)) #[257 "\300!\207" [libelcouch-entity-name] 3 "Return the name of ENTITY.\n\n(fn ENTITY)"] libelcouch-entity-instance (entity) "Return the CouchDB instance of ENTITY.\n\n(fn ENTITY)" #[257 "\211\205 \300\301!!\207" [libelcouch-entity-instance libelcouch-entity-parent] 4 "\n\n(fn ENTITY)"] ((instance libelcouch-instance)) #[257 "\207" #1=[] 2 "Return INSTANCE.\n\n(fn INSTANCE)"] libelcouch-entity-database (entity) "Return the DATABASE containing ENTITY.\n\n(fn ENTITY)" #[257 "\211\205 \300\301!!\207" [libelcouch-entity-database libelcouch-entity-parent] 4 "\n\n(fn ENTITY)"] ((database libelcouch-database)) #[257 "\207" #1# 2 "Return DATABASE.\n\n(fn DATABASE)"] libelcouch-entity-url (entity) "Return the URL of ENTITY.\n\n(fn ENTITY)" #[257 "\300\301\302\303!!\304!#\207" [format "%s/%s" libelcouch-entity-url libelcouch-entity-parent libelcouch-entity-name] 6 "\n\n(fn ENTITY)"] ((instance libelcouch-instance)) #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-instance-tags type-of signal wrong-type-argument libelcouch-instance 3] 5 "Return the URL of INSTANCE.\n\n(fn INSTANCE)"] ((design-document libelcouch-design-document)) #[257 "\300\301\302\303!!\304!#\207" [format "%s/_design/%s" libelcouch-entity-url libelcouch-entity-parent libelcouch-entity-name] 6 "Return the URL of DESIGN-DOCUMENT.\n\n(fn DESIGN-DOCUMENT)"] ((view libelcouch-view)) #[257 "\300\301\302\303!!\304!#\207" [format "%s/_view/%s" libelcouch-entity-url libelcouch-entity-parent libelcouch-entity-name] 6 "Return the URL of VIEW.\n\n(fn VIEW)"]] 11) #@54 Return an entity by reading URL, a string. (fn URL) (defalias 'libelcouch-entity-from-url #[257 "\301!\302!>\204\303\304\305D\"\210\211\306H\307!@\310\311\312#\313\211\314\230\262?\205-G[O\315\316\317$\211\205FG\320Y\205F\315\321@\317$\211\205YG\322Y\205Y\315\323A@\317$\211\206b\206b\207" [cl-struct-url-tags url-generic-parse-url type-of signal wrong-type-argument url 4 url-path-and-query split-string "/" t 0 "" record libelcouch-instance nil 1 libelcouch-database 2 libelcouch-document] 13 (#$ . 40262)]) #@57 Return the key associated with VIEW-ROW. (fn VIEW-ROW) (defalias 'libelcouch-view-row-key #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-view-row-tags type-of signal wrong-type-argument libelcouch-view-row 3] 5 (#$ . 40808)]) #@59 Return the value associated with VIEW-ROW. (fn VIEW-ROW) (defalias 'libelcouch-view-row-value #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-libelcouch-view-row-tags type-of signal wrong-type-argument libelcouch-view-row 4] 5 (#$ . 41072)]) #@73 Create and return the document associated with VIEW-ROW. (fn VIEW-ROW) (defalias 'libelcouch-view-row-document #[257 "\300!\301!\302\"\207" [libelcouch-entity-name libelcouch-entity-database libelcouch--create-document] 6 (#$ . 41340)]) #@71 Ask user for a CouchDB instance among `libelcouch-couchdb-instances'. (defalias 'libelcouch-choose-instance #[0 "\300 \301\302\303\304\"\305\306$\307\310\311\312\304&\207" [libelcouch-instances completing-read "CouchDB instance: " mapcar libelcouch-entity-name nil t cl-find :test string= :key] 9 (#$ . 41588)]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\307\304\310%\210\306\301\304\311\304\312%\210\306\301\304\313\304\314%\210\306\301\304\315\304\316%\207" [defalias libelcouch--entity-create-children-from-json cl-generic-define (entity json) nil "Create and return children of ENTITY from a JSON object.\n\n(fn ENTITY JSON)" cl-generic-define-method ((instance libelcouch-instance) json) #[514 "\300\301\302\"\"\207" [mapcar make-closure #[257 "\301\302\300\303$\207" [V0 record libelcouch-database nil] 6 "\n\n(fn DATABASE-NAME)"]] 6 "Return the list of INSTANCE's databases as stored in JSON.\n\n(fn INSTANCE JSON)"] ((database libelcouch-database) json) #[514 "\300\301\"\302\303\304\"\"\207" [map-elt rows mapcar make-closure #[257 "\301\302\303\"\300\"\207" [V0 libelcouch--create-document map-elt id] 5 "\n\n(fn DOCUMENT-JSON)"]] 7 "Return the list of DATABASE's documents as stored in JSON.\n\n(fn DATABASE JSON)"] ((design-document libelcouch-design-document) json) #[514 "\300\301\"\302\303\304\"\"\207" [map-elt views mapcar make-closure #[257 "\301\302\303@!\300\304$\207" [V0 record libelcouch-view symbol-name nil] 6 "\n\n(fn VIEW-JSON)"]] 7 "Return the list of DESIGN-DOCUMENT's views as stored in JSON.\n\n(fn DESIGN-DOCUMENT JSON)"] ((view libelcouch-view) json) #[514 "\300\301\"\302\303\304\"\"\207" [map-elt rows mapcar make-closure #[257 "\301\302\303\304\"\305\300\306\303\307\"\310\303 \311\"&\207" [V0 libelcouch--view-row-create :name map-elt id :parent :key key :value value] 12 "\n\n(fn VIEW-JSON)"]] 7 "Return the list of VIEW's rows as stored in JSON.\n\n(fn VIEW JSON)"]] 6) #@224 Create either a normal document or a design document. NAME is the name of the new document. If it starts with "_design", a design document will be created. DATABASE is the parent of the new document. (fn NAME DATABASE) (defalias 'libelcouch--create-document #[514 "\300 \301\302\"\216\303\304\"\203\305\306\307\310\"\311$\202!\305\312\311$)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "^_design/\\(.*\\)$" record libelcouch-design-document match-string-no-properties 1 nil libelcouch-document] 8 (#$ . 43543)]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\210\306\301\304\310\304\311%\210\306\301\304\312\304\313%\207" [defalias libelcouch--entity-children-url cl-generic-define (entity) nil "Return the path to query all children of ENTITY.\n\n(fn ENTITY)" cl-generic-define-method #[257 "\300!\207" [libelcouch-entity-url] 3 "\n\n(fn ENTITY)"] ((instance libelcouch-instance)) #[257 "\300\301\302!\303#\207" [format "%s/%s" libelcouch-entity-url "_all_dbs"] 5 "Return the URL of INSTANCE's databases.\n\n(fn INSTANCE)"] ((database libelcouch-database)) #[257 "\300\301\302!\303#\207" [format "%s/%s" libelcouch-entity-url "_all_docs"] 5 "Return the URL of DATABASE's documents.\n\n(fn DATABASE)"]] 6) #@150 Report an error when communication with an instance fails. Displays ERROR-THROWN, ignore ARGS. (fn &rest ARGS &key ERROR-THROWN &allow-other-keys) (defalias 'libelcouch--request-error #[128 "\300\301\"A@\302\303\"\207" [plist-member :error-thrown message "Got error: %S"] 5 (#$ . 44854)]) #@134 Return (USER . PASSWORD) associated with INSTANCE. Return nil if no authentication information is found for INSTANCE. (fn INSTANCE) (defalias 'libelcouch--auth-search #[257 "\302\303!>\204\304\305\306D\"\210\307H!\211\205*\303! >\204'\304\305\310D\"\210\211\311H\211\205D\303! >\204=\304\305\310D\"\210\312H\206D\313\211\205S\314\315\316\317\320&@\211\205[\321\322\"\211\205c\321\323\"\211\205t;\203q\202s B\207" [cl-struct-libelcouch-instance-tags cl-struct-url-tags url-generic-parse-url type-of signal wrong-type-argument libelcouch-instance 3 url 4 5 5984 auth-source-search :max 1 :host :port map-elt :user :secret] 11 (#$ . 45154)]) #@67 Return a basic authentication header for INSTANCE. (fn INSTANCE) (defalias 'libelcouch--basic-auth-header #[257 "\300!\211\242\243\301\302\303\304Q!\"\207" [libelcouch--auth-search format "Basic %s" base64-encode-string ":"] 12 (#$ . 45832)]) #@79 Return a list of COUCHDB instances built from `libelcouch-couchdb-instances'. (defalias 'libelcouch-instances #[0 "\301\302\"\207" [libelcouch-couchdb-instances mapcar #[257 "\300\301@\302A@$\207" [record libelcouch-instance nil] 6 "\n\n(fn INSTANCE-DATA)"]] 3 (#$ . 46088)]) (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\303\304\307%\207" [defalias libelcouch-entity-list cl-generic-define (entity function) nil "Evaluate FUNCTION with the children of ENTITY as parameter.\n\n(fn ENTITY FUNCTION)" cl-generic-define-method #[514 "\301\302\303!!\304\305\306\307\310\311\312 !!BE\313\314\315\316\317\f\f#\320\321& \210\322\207" [libelcouch-timeout request url-encode-url libelcouch--entity-children-url :timeout :headers ("Content-Type" . "application/json") ("Accept" . "application/json") "Authorization" libelcouch--basic-auth-header libelcouch-entity-instance :parser json-read :success make-closure #[128 "\302\303\"A@\304\300\"\301!\207" [V0 V1 plist-member :data libelcouch--entity-create-children-from-json] 5 "\n\n(fn &key DATA &allow-other-keys)"] :error libelcouch--request-error nil] 15 "\n\n(fn ENTITY FUNCTION)"]] 6) #@86 Evaluate FUNCTION with the content of DOCUMENT as parameter. (fn DOCUMENT FUNCTION) (defalias 'libelcouch-document-content #[514 "\301\302\303!!\304\305\306\307\310\311\312\313\f!!BD\314\315\316 \"\317\320& \210\321\207" [libelcouch-timeout request url-encode-url libelcouch-entity-url :timeout :parser #[0 "\300\301`d\"\302\"\207" [decode-coding-string buffer-substring-no-properties utf-8] 4] :headers ("Accept" . "application/json") "Authorization" libelcouch--basic-auth-header libelcouch-entity-instance :success make-closure #[128 "\301\302\"A@\300!\207" [V0 plist-member :data] 4 "\n\n(fn &key DATA &allow-other-keys)"] :error libelcouch--request-error nil] 14 (#$ . 47248)]) #@100 Evaluate FUNCTION when CONTENT is saved as new value for DOCUMENT. (fn DOCUMENT CONTENT FUNCTION) (defalias 'libelcouch-document-save #[771 "\300\301\302!!\303\304\305\306\307\310\311 !!BD\312\206 \313\314ed\"\315\"\316\317\320 \"\321\322& \210\323\207" [request url-encode-url libelcouch-entity-url :type "PUT" :headers ("Content-Type" . "application/json") "Authorization" libelcouch--basic-auth-header libelcouch-entity-instance :data encode-coding-string buffer-substring-no-properties utf-8 :success make-closure #[128 "\300 \207" [V0] 2 "\n\n(fn &rest ARGS)"] :error libelcouch--request-error nil] 15 (#$ . 47945)]) #@68 Pass the revision of DOCUMENT to FUNCTION. (fn DOCUMENT FUNCTION) (defalias 'libelcouch-document-latest-revision #[514 "\300\301\302\"\"\207" [libelcouch-document-content make-closure #[257 "\301\302\303\"r\211q\210\304\305\"\216c\210eb\210\300\306\307 \310\"!*\207" [V0 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] map-elt json-read _rev] 6 "\n\n(fn CONTENT)"]] 7 (#$ . 48580)]) #@131 Delete DOCUMENT and evaluate FUNCTION. If REVISION is not the latest, signal an error. (fn DOCUMENT REVISION &optional FUNCTION) (defalias 'libelcouch-document-delete #[770 "\300\301\302!!\303\304\305\306BC\307\310\311\312\313\314!!BE\315\316\317 \"\320\321& \210\322\207" [request url-encode-url libelcouch-entity-url :type "DELETE" :params "rev" :headers ("Content-Type" . "application/json") ("Accept" . "application/json") "Authorization" libelcouch--basic-auth-header libelcouch-entity-instance :success make-closure #[128 "\300\205\300 \207" [V0] 2 "\n\n(fn &rest ARGS)"] :error libelcouch--request-error nil] 16 (#$ . 49039)]) #@74 Delete DOCUMENT and evaluate FUNCTION. (fn DOCUMENT &optional FUNCTION) (defalias 'libelcouch-document-delete-latest #[513 "\300\301\302#\"\207" [libelcouch-document-latest-revision make-closure #[257 "\302\300\301#\207" [V0 V1 libelcouch-document-delete] 5 "\n\n(fn REVISION)"]] 8 (#$ . 49688)]) (provide 'libelcouch)