;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\202C\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)