;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\300\306!\210\307\310\311\312\313\314%\207" [require libbcel-util libbcel-oauth libbcel-client libbcel-structs libbcel-nav libbcel-actions custom-declare-group libbcel nil "Configure libbcel to integrate Basecamp." :group external] 6) #@177 PROMPT user to select one entity among ENTITIES. Transform each entity to a string with TRANSFORMER, `libbcel-entity-name' if nil. (fn PROMPT ENTITIES &optional TRANSFORMER) (defalias 'libbcel-completing-read #[770 "\211\206\300\301\302\303\304G$\305\306\307\"\"\310\306\311\"#\210\312\313\314$\315\"\207" [libbcel-entity-name make-hash-table :test equal :size mapcar make-closure #[257 "\300!\207" [V0] 3 "\n\n(fn ENTITY)"] cl-mapcar #[514 "\301\300#\207" [V0 puthash] 6 "\n\n(fn ENTITY ENTITY-STRING)"] completing-read nil t gethash] 11 (#$ . 400)]) #@188 Call FUNCTION after prompting for a child of ENTITY. Pass PROMPT, the elements of ENTITY and TRANSFORMER to `libbcel-completing-read'. (fn FUNCTION PROMPT ENTITY &optional TRANSFORMER) (defalias 'libbcel-completing-read-entity #[1027 "\300\301\302$\"\207" [libbcel-nav-children make-closure #[257 "\300\303\301\302#!\207" [V0 V1 V2 libbcel-completing-read] 6 "\n\n(fn ENTITIES)"]] 11 (#$ . 979)]) (byte-code "\300\301\302\303\302\304%\210\305\306!\207" [cl-generic-define-method libbcel-nav-children nil ((entities list) callback) #[514 "\300\301#\207" [libbcel-util-async-mapcar libbcel-nav-children] 6 "Execute CALLBACK with the children of all ENTITIES as parameter.\n\n(fn ENTITIES CALLBACK)"] provide libbcel] 6)