;ELC���
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311%\210\304\312\313\314\310\311%\210\304\315\316\317\310\311%\210\304\320\321\322\310\311%\210\304\323\324\325\310\311%\207" [require cus-edit dash bui-utils custom-declare-face bui-time ((t :inherit font-lock-constant-face)) "Face used for timestamps." :group bui-faces bui-file-name ((t :inherit link)) "Face used for file name buttons." bui-url ((t :inherit link)) "Face used for URL buttons." bui-action-button ((t :inherit custom-button)) "Face used for action buttons." bui-action-button-mouse ((t :inherit custom-button-mouse)) "Mouse face used for action buttons."] 6)
#@25 Keymap for BUI buttons.
(defvar bui-button-map (byte-code "\301 \302
\"\210\303
\304\305#\210\207" [button-map make-sparse-keymap set-keymap-parent define-key "c" bui-button-copy-label] 5) (#$ . 737))
(byte-code "\301\302\303\304\305%\210\301\306\307\302\310\311\312\313&\210\301\314\307\302\310\315\316\317\320\321&	\210\301\322\307\302\310\322\316\323\320\324&	\207" [bui-button-map define-button-type bui keymap follow-link t bui-action :supertype face bui-action-button mouse-face bui-action-button-mouse bui-file bui-file-name help-echo "Find file" action #[257 "\300\301\302\"\206�\303!!\207" [bui-find-file button-get file button-label] 5 "\n\n(fn BTN)"] bui-url "Browse URL" #[257 "\300\301\302\"\206�\303!!\207" [browse-url button-get url button-label] 5 "\n\n(fn BTN)"]] 10)
#@133 Copy a label of the button at POSITION into kill ring.
If POSITION is nil, use the current point position.

(fn &optional POSITION)
(defalias 'bui-button-copy-label #[256 "\300
\206�`!\211\205�\301\302!!\207" [button-at bui-copy-as-kill button-label] 5 (#$ . 1538) nil])
#@58 Return non-nil, if SYMBOL is a button type.

(fn SYMBOL)
(defalias 'bui-button-type\? #[257 "\211\205�\211\300N\207" [button-category-symbol] 3 (#$ . 1818)])
#@156 Make button of TYPE with LABEL and insert it at point.
See `insert-text-button' for the meaning of PROPERTIES.

(fn LABEL &optional TYPE &rest PROPERTIES)
(defalias 'bui-insert-button #[641 "\300\301\302\206	�\303%\207" [apply insert-text-button :type button] 9 (#$ . 1984)])
#@292 Make action button with LABEL and insert it at point.
ACTION is a function called when the button is pressed.  It
should accept button as the argument.
MESSAGE is a button message.
See `insert-text-button' for the meaning of PROPERTIES.

(fn LABEL ACTION &optional MESSAGE &rest PROPERTIES)
(defalias 'bui-insert-action-button #[898 "\300\301\302\303\304&\207" [apply bui-insert-button bui-action action help-echo] 13 (#$ . 2270)])
#@312 Make BUTTON-TYPE button(s) from VALUE.
Return a string with button(s).

VALUE can be nil, a button name (string or symbol) or a list of
button names.  If it is a list, buttons are separated with
SEPARATOR string.

PROPERTIES are passed to `bui-insert-button'.

(fn VALUE BUTTON-TYPE SEPARATOR &rest PROPERTIES)
(defalias 'bui-buttonize #[899 "\204�\207\301\302\303\"r\211q\210\304\305\"\216<\203�\202�C\306\304\307##\266ed{*\207" [bui-empty-string generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	�\302\300!\207" [V0 buffer-name kill-buffer] 2] bui-mapinsert #[257 "\302\3039\203
�\304!\202�\300\301$\207" [V0 V1 apply bui-insert-button symbol-name] 6 "\n\n(fn LABEL)"]] 11 (#$ . 2717)])
(provide 'bui-button)