;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require dash bui-utils] 2) #@68 Value returned by `bui-entry-value' if a parameter does not exist. (defvar bui-void-value 'VOID (#$ . 155)) #@59 Return non-nil, if VALUE is `bui-void-value'. (fn VALUE) (defalias 'bui-void-value\? #[257 "\211=\207" [bui-void-value] 3 (#$ . 269)]) #@114 Return value of the ENTRY PARAM. If ENTRY does not have PARAM at all, return `bui-void-value'. (fn ENTRY PARAM) (defalias 'bui-entry-value #[514 "\211\236\211\203\n\211A\207\207" [bui-void-value] 4 (#$ . 413)]) #@75 Like `bui-entry-value' but return nil if value is void. (fn ENTRY PARAM) (defalias 'bui-entry-non-void-value #[514 "\300\"\211\205\301!?\205\211\207" [bui-entry-value bui-void-value\?] 5 (#$ . 634)]) #@30 Return ENTRY ID. (fn ENTRY) (defalias 'bui-entry-id #[257 "\300\301\"\207" [bui-entry-value id] 4 (#$ . 848)]) #@58 Return an entry from ENTRIES by its ID. (fn ENTRIES ID) (defalias 'bui-entry-by-id #[514 "\300\301\300\211\211\2039\211A\262\242\262\262\211\262\2039\302!\232\203,\300\262\2039\262\262T\262\202\266\207" [nil 0 bui-entry-id] 10 (#$ . 967)]) #@81 Return entries with IDS (a list of identifiers) from ENTRIES. (fn ENTRIES IDS) (defalias 'bui-entries-by-ids #[514 "\300\301\300\211\203)\211A\262\242\262\262T\262\302!\235\203B\262\202\266\211\237\207" [nil 0 bui-entry-id] 9 (#$ . 1241)]) #@175 Return an entry from ENTRIES with PARAM's value equal VALUE. The values are compared using COMPARE function (`equal' by default). (fn ENTRIES PARAM VALUE &optional COMPARE) (defalias 'bui-entry-by-param #[1027 "\211\204\300\262\301\302\301\211\211\203D\211A\262\242\262\262\211\262\203D\303 \" \"\2037\301\262\203D\262\262T\262\202 \266\207" [equal nil 0 bui-entry-value] 14 (#$ . 1510)]) #@130 Replace an entry with ID from ENTRIES by NEW-ENTRY. Return a list of entries with the replaced entry. (fn ENTRIES ID NEW-ENTRY) (defalias 'bui-replace-entry #[771 "\300\301\302\"\301\303\"#\207" [-map-first make-closure #[257 "\300\301!\232\207" [V0 bui-entry-id] 4 "\n\n(fn IT)"] #[257 "\300\207" [V0] 2 "\n\n(fn IT)"]] 8 (#$ . 1938)]) (provide 'bui-entry)