;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\302%\207" [require button sx sx-question custom-declare-face sx-custom-button ((((type x w32 ns) (class color)) :box (:line-width 3 :style released-button) :height 0.9 :background "lightgrey" :foreground "black")) "Face used on buttons such as \"Write an Answer\"." :group] 6) #@25 Keymap used on buttons. (defvar sx-button-map (byte-code "\301!\302\303\304#\210\207" [button-map copy-keymap define-key "w" sx-button-copy] 5) (#$ . 436)) #@99 Copy the content of thing at point. This is usually a link's URL, or the content of a code block. (defalias 'sx-button-copy #[0 "\300`\301\"\211\204\f\302\303!\207\304!\210\302\305\300`\306\"\206\"\207" [get-text-property sx-button-copy sx-message "Nothing to copy here." kill-new "Copied %s to kill ring." sx-button-copy-type] 6 (#$ . 600) nil]) #@274 Open a temp buffer populated with the string TEXT-OR-MARKER using MAJORMODE. When given a marker (or interactively), use the 'sx-button-copy and the 'sx-mode text-properties under the marker. These are usually part of a code-block. (fn TEXT-OR-MARKER &optional MAJORMODE) (defalias 'sx-button-edit-this #[513 "\300!\203\301\302\"\262\301\303\"\211\262\204\304\305!\210r\306\307\310!!q\210c\210\211\205+\211 )\207" [markerp get-text-property sx-mode sx-button-copy sx-message "Nothing of interest here." pop-to-buffer generate-new-buffer "*sx temp buffer*"] 5 (#$ . 959) (byte-code "\300 C\207" [point-marker] 1)]) #@70 Follow link at POS. If POS is nil, use `point'. (fn &optional POS) (defalias 'sx-button-follow-link #[256 "\300\206`\301\"\206\302\303\206`\"\3041\305!0\207\210\306!\207" [get-text-property sx-button-url sx-user-error "No url under point: %s" (error) sx-open-link browse-url] 4 (#$ . 1591) nil]) #@48 Base help-echo on which others can be written. (defconst sx-button--help-echo (byte-code "\300\301\302\303\304#\305\301\306\303\304#R\207" ["mouse-1, RET" propertize ": %s -- " face minibuffer-prompt "w" ": copy %s"] 7) (#$ . 1907)) #@56 Help echoed in the minibuffer when point is on a user. (defconst sx-button--user-help-echo (format sx-button--help-echo "visit user page" "link") (#$ . 2146)) #@55 Help echoed in the minibuffer when point is on a tag. (defconst sx-button--tag-help-echo (format sx-button--help-echo "Tag search" "tag") (#$ . 2311)) #@59 Help echoed in the minibuffer when point is on a section. (defconst sx-button--question-title-help-echo (format sx-button--help-echo "hide content" "link") (#$ . 2468)) #@59 Help echoed in the minibuffer when point is on a section. (defconst sx-button--link-help-echo (format sx-button--help-echo "visit %s" "URL") (#$ . 2643)) (byte-code "\304\305\306\307\310%\210\304\311\312\311\313\314\315 \316\317\320\305& \210\304\321\313\322\312\323\320\305&\210\304\324\313\325\320\305%\210\304\326\313\325\315\n\312\327\320\305& \210\304\330\313\331\315 \312\332\320\305& \210\304\333\315\334\335\336\312\337#P\312\340\313\341\320\305& \210\304\342\315\334\335\343\312\337#P\312\340\313\344\320\305& \210\304\345\315\334\335\346\312\337#P\312\340\313\347\320\305& \210\350\305!\207" [sx-button-map sx-button--question-title-help-echo sx-button--user-help-echo sx-button--tag-help-echo define-button-type sx-button follow-link t keymap sx-question-mode-title face action sx-question-mode-hide-show-section help-echo sx-button-copy-type "Share Link" :supertype sx-question-mode-code-block sx-button-edit-this nil sx-button-link sx-button-follow-link sx-button-user sx-user-name sx-button-tag sx-search-tag-at-point sx-tag sx-button-comment "mouse-1, RET" propertize ": write a comment" minibuffer-prompt sx-custom-button sx-comment sx-button-accept ": accept answer" sx-accept sx-button-answer ": write an answer" sx-answer provide] 12)