;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\300\307!\207" [require cl-lib bui-button bui-core bui-entry bui-info bui-list bui-utils] 2) #@303 Define variables for ENTRY-TYPE. ARGS can be the same arguments as for `bui-define-interface'. The difference is: arguments for `bui-define-interface' define specific variables for different buffer types, while this macro defines general variables used for any buffer type. (fn ENTRY-TYPE &rest ARGS) (defalias 'bui-define-entry-type '(macro . #[385 "\302C\302C\203@:\203\242\243\211:\203;\211\242\243\303=\203, \240\210\2027\n\242BB\240\210\262\266\266\202\304\305\306\307\310 $\"\306\307\311\n# \"\"B\207" [bui-entry-symbol-specifications bui-symbol-specifications nil :reduced\? progn append bui-map-symbol-specifications make-closure #[771 "\303\302\242\"\211\204\304\301\242\"\205!\305\306\300\"\307\310\"\311\312\300&\207" [V0 V1 V2 plist-get bui-symbol-generate\? bui-inherit-defvar-clause bui-entry-symbol bui-make-symbol bui :value :group] 11 "\n\n(fn KEY SUFFIX GENERATE)"] #[771 "\302\301\242\"\211\205\303\304\300\"\305\306\"\307\310\300&\207" [V0 V1 plist-get bui-inherit-defvar-clause bui-entry-symbol bui-make-symbol bui :value :group] 11 "\n\n(fn KEY SUFFIX GENERATE)"]] 16 (#$ . 271)])) (byte-code "\300\301\302\303#\300\207" [function-put bui-define-entry-type lisp-indent-function 1] 4) #@806 Define BUFFER-TYPE interface for displaying ENTRY-TYPE entries. Remaining arguments ARGS should have a form [KEYWORD VALUE] ... They are used to generate variables specific for the defined interface. For more details and the available keywords, see `bui-symbol-specifications', `bui-entry-symbol-specifications' and `bui-BUFFER-TYPE-symbol-specifications'. `:get-entries-function' is the only required keyword (if the interface is reduced, all keywords become optional). To denote that the interface is reduced, a special `:reduced?' keyword may be specified. If it is non-nil, generate only customization group, faces group and specified variables. If it is nil, along with the mentioned groups and variables, `ENTRY-TYPE-BUFFER-TYPE-mode' will be generated. (fn ENTRY-TYPE BUFFER-TYPE &rest ARGS) (defalias 'bui-define-interface '(macro . #[642 "\303\304#\305 \306!\307!\310!! \311\"\n\312\" \307\"\313\314 !!\315C\f\315C\203t:\2034\242\243\211:\203o\211\242\243\316\267\202`\202k \240\210\202k\n\242BB\240\210\262\266\266\2024\317\320 \315\321\322#\323\324D\323\324D\257\320 \315\321\325#\323\324D\323\324\326\306\"D\323\324\306\"D\257\n\327\330\303\331\f & \"\330\303\332 %\n\"\330\303\333& J\" \242?\205\f\334 \324\335BD\321\336$\337\324D\324DE\257\340\324D\324DED$)BBB\207" [mode-name bui-symbol-specifications bui-entry-symbol-specifications make-closure #[128 "\302\303\300\301$\207" [V0 V1 apply bui-symbol] 6 "\n\n(fn &rest SYMBOLS)"] #[128 "\300\301\302#\207" [apply bui-make-symbol bui] 5 "\n\n(fn &rest SYMBOLS)"] faces mode mode-map symbol symbol-specifications capitalize symbol-name nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:mode-name 83 :reduced\? 88)) progn defgroup format "Displaying '%S' entries in '%S' buffer." :group quote "Faces for displaying '%S' entries in '%S' buffer." bui-entry-symbol append bui-map-symbol-specifications #[771 "\305\304\242\"\211\204\306\303\242\"\205\307\300!\301!\310\311\302&\207" [V0 V1 V2 V3 V4 plist-get bui-symbol-generate\? bui-inherit-defvar-clause :value :group] 11 "\n\n(fn KEY SUFFIX GENERATE)"] #[771 "\304\303\242\"\211\205\305\300!\301!\306\307\302&\207" [V0 V1 V2 V3 plist-get bui-inherit-defvar-clause :value :group] 11 "\n\n(fn KEY SUFFIX GENERATE)"] #[771 "\307\302\"\211\204\310\306\242\"\205 \311\305\300\"\303\301\"\312\313\304&\207" [V0 V1 V2 V3 V4 V5 V6 plist-get bui-symbol-generate\? bui-inherit-defvar-clause :value :group] 11 "\n\n(fn KEY SUFFIX GENERATE)"] define-derived-mode ((bui-active-filter-predicates bui-filter-mode-line-string)) "Major mode for displaying '%S' entries in '%S' buffer.\n\n\\{%S}" bui-mode-initialize bui-register-interface] 33 (#$ . 1540)])) (byte-code "\300\301\302\303#\304\305!\207" [function-put bui-define-interface lisp-indent-function 2 provide bui] 4)