| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\"\210\305\310\307\"\207" [require cl recentf eieio semantic/format autoload srefactor--refactor-based-on-tag-class "srefactor" srefactor--insert-tag] 3) | |
| 16 | #@60 Store the current active window where the menu is invoked. | |
| 17 | (defvar srefactor-ui--current-active-window nil (#$ . 638)) | |
| 18 | #@63 Store the start of an active region of current window if any. | |
| 19 | (defvar srefactor-ui--current-active-region-start nil (#$ . 763)) | |
| 20 | #@61 Store the end of an active region of current window if any. | |
| 21 | (defvar srefactor-ui--current-active-region-end nil (#$ . 897)) | |
| 22 | #@33 Current menu object biing used. | |
| 23 | (defvar srefactor-ui--current-active-menu nil (#$ . 1027)) | |
| 24 | #@38 What type of refactoring to perform. | |
| 25 | (defvar srefactor-ui--func-type nil (#$ . 1124)) | |
| 26 | #@56 Overlay of tag in srefactor-ui--current-active-window. | |
| 27 | (defvar srefactor-ui--current-active-tag-overlay nil (#$ . 1216)) | |
| 28 | #@27 Turn on/off help message. | |
| 29 | (custom-declare-variable 'srefactor-ui-menu-show-help t '(#$ . 1343) :group 'srefactor-ui :type 'boolean) | |
| 30 | (defalias 'srefactor-ui--menu-label #[(e) "@\207" [e] 1]) | |
| 31 | (put 'srefactor-ui--menu-label 'byte-optimizer 'byte-compile-inline-expand) | |
| 32 | (defalias 'srefactor-ui--menu-value-item #[(e) "A\207" [e] 1]) | |
| 33 | (put 'srefactor-ui--menu-value-item 'byte-optimizer 'byte-compile-inline-expand) | |
| 34 | #@111 Return a command name to open the Nth most recent file. | |
| 35 | See also the command `recentf-open-most-recent-file'. | |
| 36 | (defalias 'srefactor-ui--digit-shortcut-command-name #[(n) "\301\302\303\"!\207" [n intern format "srefactor-ui--refactor-based-on-tag-class-%d"] 4 (#$ . 1762)]) | |
| 37 | (put 'srefactor-ui--digit-shortcut-command-name 'byte-optimizer 'byte-compile-inline-expand) | |
| 38 | #@211 Create a new menu-element. | |
| 39 | A menu element is a pair (MENU-ITEM . MENU-VALUE), where MENU-ITEM is | |
| 40 | the menu item string displayed. MENU-VALUE is the file to be open | |
| 41 | when the corresponding MENU-ITEM is selected. | |
| 42 | (defalias 'srefactor-ui--make-menu-element #[(menu-item menu-value) " B\207" [menu-item menu-value] 2 (#$ . 2135)]) | |
| 43 | (byte-code "\300\301\302\303#\210\304\305\306\307!\"\210\304\310\311\307!\"\210\304\312\310\"\210\313\312\314\315#\210\316\307\317\310#\320\307\321\322\323$\210\324\325\321\326\321\327%\210\324\330\321\331\321\332%\210\324\333\321\334\321\335%\210\324\336\321\337\321\340%\210\324\341\321\342\321\343%\210\324\344\321\345\321\346%\210\324\347\321\350\321\351%\210\324\352\321\353\321\354%\210\324\355\321\356\321\357%\210\324\360\321\361\321\362%\210\324\363\321\364\321\365%\210\324\366\321\367\321\370%\210\324\371\321\372\321\373%\210\324\374\321\375\321\376%\210\324\377\321\201@ \321\201A %\210\324\201B \321\201C \321\201D %\207" [put srefactor-ui--make-menu-element byte-optimizer byte-compile-inline-expand defalias srefactor-ui-menu-p eieio-make-class-predicate srefactor-ui-menu srefactor-ui-menu--eieio-childp eieio-make-child-predicate srefactor-ui-menu-child-p make-obsolete "use (cl-typep ... \\='srefactor-ui-menu) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((name :initarg :name :initform "*Srefactor Menu*" :accessor name :type string :documentation "Name of the menu to be displayed in the modeline.") (items :initarg :items :initform nil :accessor items :type list :documentation "Item list to be displayed in a menu. Item is a list\n '(DISPLAY REAL OPTIONS).") (action :initarg :action :initform nil :accessor action :documentation "An action to run when a menu item is selected.") (context :initarg :context :initform nil :accessor context :documentation "Current Semantic tag in scope, used as context to\n select appropriate refactor actions.") (shortcut-p :initarg :shortcut-p :initform nil :accessor shortcut-p :type boolean :documentation "If t, first 9 actions can be executed by digit keys 1-9.") (persistent-action :initarg :persistent-action :initform nil :accessor persistent-action :documentation "An action to execute without exiting the menu.") (keymap :initarg :keymap :initform nil :accessor keymap :documentation "A function that set define keys in srefactor-ui-menu-mode-map.") (post-handler :initarg :post-handler :initform nil :accessor post-handler :documentation "A function to be executed after the menu is created.")) (:documentation "Class srefactor-ui-menu ") cl-generic-define-method post-handler ((this srefactor-ui-menu)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp post-handler eieio-oref] 3 "Retrieve the slot `post-handler' from an object of class `srefactor-ui-menu'."] \(setf\ post-handler\) (value (this srefactor-ui-menu)) #[(value this) "\302\303 #\207" [this value eieio-oset post-handler] 4] keymap ((this srefactor-ui-menu)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp keymap eieio-oref] 3 "Retrieve the slot `keymap' from an object of class `srefactor-ui-menu'."] \(setf\ keymap\) (value (this srefactor-ui-menu)) #[(value this) "\302\303 #\207" [this value eieio-oset keymap] 4] persistent-action ((this srefactor-ui-menu)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp persistent-action eieio-oref] 3 "Retrieve the slot `persistent-action' from an object of class `srefactor-ui-menu'."] \(setf\ persistent-action\) (value (this srefactor-ui-menu)) #[(value this) "\302\303 #\207" [this value eieio-oset persistent-action] 4] shortcut-p ((this srefactor-ui-menu)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp shortcut-p eieio-oref] 3 "Retrieve the slot `shortcut-p' from an object of class `srefactor-ui-menu'."] \(setf\ shortcut-p\) (value (this srefactor-ui-menu)) #[(value this) "\302\303 #\207" [this value eieio-oset shortcut-p] 4] context ((this srefactor-ui-menu)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp context eieio-oref] 3 "Retrieve the slot `context' from an object of class `srefactor-ui-menu'."] \(setf\ context\) (value (this srefactor-ui-menu)) #[(value this) "\302\303 #\207" [this value eieio-oset context] 4] action ((this srefactor-ui-menu)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp action eieio-oref] 3 "Retrieve the slot `action' from an object of class `srefactor-ui-menu'."] \(setf\ action\) (value (this srefactor-ui-menu)) #[(value this) "\302\303 #\207" [this value eieio-oset action] 4] items ((this srefactor-ui-menu)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp items eieio-oref] 3 "Retrieve the slot `items' from an object of class `srefactor-ui-menu'."] \(setf\ items\) (value (this srefactor-ui-menu)) #[(value this) "\302\303 #\207" [this value eieio-oset items] 4] name ((this srefactor-ui-menu)) #[(this) "\301\302\"\205 \303\302\"\207" [this slot-boundp name eieio-oref] 3 "Retrieve the slot `name' from an object of class `srefactor-ui-menu'."] \(setf\ name\) (value (this srefactor-ui-menu)) #[(value this) "\302\303 #\207" [this value eieio-oset name] 4]] 7) | |
| 44 | #@56 Create a new object of class type `srefactor-ui-menu'. | |
| 45 | (defalias 'srefactor-ui-menu #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srefactor-ui-menu] 4 (#$ . 7324)]) | |
| 46 | (byte-code "\300\301\302\303#\300\207" [function-put srefactor-ui-menu compiler-macro srefactor-ui-menu--anon-cmacro] 4) | |
| 47 | (defalias 'srefactor-ui-menu--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5]) | |
| 48 | #@51 Show a dialog buffer with NAME, setup with FORMS. | |
| 49 | (defalias 'srefactor-ui--menu '(macro . #[(name &rest forms) "\302\303D\304\305\306 \307\"BBBB\207" [name forms with-current-buffer get-buffer-create (let ((inhibit-read-only t) (ol (overlay-lists))) (mapc 'delete-overlay (car ol)) (mapc 'delete-overlay (cdr ol)) (erase-buffer)) (srefactor-ui-menu-mode) append ((widget-setup) (switch-to-buffer (current-buffer)) (hl-line-mode 1))] 7 (#$ . 7852)])) | |
| 50 | (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put srefactor-ui--menu lisp-indent-function 1 put edebug-form-spec t] 5) | |
| 51 | (defalias 'srefactor-ui-create-menu #[(menu) "\306!\204\n \307\310!\210\311 @\312 \203 \313 \314 \202\" \315\211\3161O\317\320\321 !! r\322\216\320 @\323\"\210r\324\325\n!\206B \326\327\330\"!q\210\331\332 @ A\333\334@@\"\210\333\334@A\"\210\335 \210*\336 \210\337 B\340\341\n!\203w \342\341\n!\315\331#\343P\202x \344C\203\257 \345\n!\203\216 \346\347\350\351\352#\353Q\202\217 \354\346\347\355\351\356#\357\347\360\351\356#\361\343\362\347\363\351\356#\364\347\365\351\356#\366\260\f\202\260 \344\"\210)\367\370\371\372\373\374\375\376\306\n!\377\n!\345\n!#BBBBB\"\210\370\201E \201F \201G \347\201H \351\356#$\210\201I \201J !\210\201K !\203\366 \201K ! \210\201L !\203\201L ! \210\201M \210\201N p!\210\201O \201P !\210)\201Q \311 @\201R \201S _\201T \245\201R \201U _\201T \245#\210\201V \201D !\205LD\205L\201W +0\207\210\201X \210\201Y \201Z !\207" [menu srefactor-ui--current-active-window srefactor-ui--current-active-menu srefactor-ui--current-active-region-start srefactor-ui--current-active-region-end save-selected-window--state items error "No available action." window-list region-active-p region-beginning region-end nil (error) internal--before-with-selected-window select-window split-window-below #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] norecord get-buffer-create name format "*%s*" "*Srefactor Menu*" t overlay-lists mapc delete-overlay erase-buffer srefactor-ui-menu-mode c++-mode widget-insert context semantic-format-tag-summarize "\n" "" shortcut-p "Press " propertize "1-9" face font-lock-preprocessor-face " or click on an action to execute.\n" "Click on an action to execute.\n" "o" bold " or " "O" " to switch to next/previous option." "Click on " "[Cancel]" " or press " "q" " to quit.\n" apply widget-create group :indent 2 :format "\n%v\n" srefactor-ui--generate-items action ol inhibit-read-only major-mode srefactor-ui-menu-show-help evil-mode push-button :notify srefactor-ui--menu-quit "Cancel" recentf-dialog-goto-first link post-handler keymap widget-setup switch-to-buffer hl-line-mode 1 fit-window-to-buffer frame-height 50 100 10 fboundp evil-local-mode srefactor-ui--clean-up-menu-window message "Error when creating menu."] 17 nil nil]) | |
| 52 | (defalias 'srefactor-ui--return-option-list #[(type) "\302 \303\267\202& \304B\305B\306\307!\203 \310B\311B\211\202' \312\202' \313)\207" [options type nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (file 8 tag 34)) "(Current file)" "(Other file)" featurep projectile "(Project file)" "(File)" ("(Before)" "(Inside)" "(After)") t] 2]) | |
| 53 | #@63 Return a list of widgets to display FILES in a dialog buffer. | |
| 54 | (defalias 'srefactor-ui--generate-items #[(commands action &optional add-shortcut) "\302\303\203 \304\302\305 \"!\202 \302\305 \"\"\207" [add-shortcut commands mapcar #[(w) "\302 \"\207" [w action srefactor-ui--create-menu-widget] 3] srefactor-ui--show-digit-shortcut srefactor-ui--make-default-menu-element] 6 (#$ . 11087)]) | |
| 55 | #@61 Filter the list of menu-elements L to show digit shortcuts. | |
| 56 | (defalias 'srefactor-ui--show-digit-shortcut #[(l) "\304 \305\211\203A @T\n\306\307W\203 \310\202 \311\307W\2031 \312\313\307\246!\314\315\316\317%\2022 \320\n\211@)#\240\210 A\211\204\n * )\207" [i l e --dolist-tail-- 0 nil format 10 "[%s] %s" " %s %s" propertize number-to-string face font-lock-preprocessor-face mouse-face italic " "] 10 (#$ . 11485)]) | |
| 57 | (defalias 'srefactor-ui--make-default-menu-element #[(command) "\211@)\211A)\211\n*B\207" [command e menu-value menu-item] 3]) | |
| 58 | #@61 Return a widget to display MENU-ELEMENT in a dialog buffer. | |
| 59 | (defalias 'srefactor-ui--create-menu-widget #[(menu-element action) "\303\304\211@)\305\306\307\306\310\311\312\313\314\306\315\n\211A)\257\207" [menu-element e action link :tag :button-prefix "" :button-suffix :button-face nil :format "%[%t\n%]" :help-echo :action] 17 (#$ . 12055)]) | |
| 60 | (defalias 'srefactor-ui--clean-up-menu-window #[(&optional kill-buffer) "\203 \300p!\210\306\307 @!\210\310 !\210\n\203& \203& \nb\210\311\312!\210 b\210\312 \205- \313 !\207" [kill-buffer srefactor-ui--current-active-window srefactor-ui--current-active-region-start srefactor-ui--current-active-region-end deactivate-mark srefactor-ui--current-active-tag-overlay delete-window window-list select-window set-mark-command nil delete-overlay] 2 nil nil]) | |
| 61 | #@80 Open the file stored in WIDGET's value when notified. | |
| 62 | -IGNORE other arguments. | |
| 63 | (defalias 'srefactor-ui--refactor-action #[(widget &rest _ignore) "\301\302!\210\303\304!@\305\306\307\"!\"\207" [widget srefactor-ui--clean-up-menu-window t srefactor--refactor-based-on-tag-class widget-value srefactor-ui--get-current-menu-option widget-get :tag] 6 (#$ . 12868) nil]) | |
| 64 | (defalias 'srefactor-ui--tag-action #[(widget &rest _ignore) "\303\304!\210\305\306!\307 !@\n\310\311 \312\"!$\207" [srefactor-ui--current-active-menu widget srefactor-ui--func-type srefactor-ui--clean-up-menu-window t srefactor--insert-tag context widget-value srefactor-ui--get-current-menu-option widget-get :tag] 8 nil nil]) | |
| 65 | (defalias 'srefactor-ui--menu-quit #[(&rest ignored) "\300\301!\207" [srefactor-ui--clean-up-menu-window t] 2 nil nil]) | |
| 66 | #@25 Digit shortcuts keymap. | |
| 67 | (defvar srefactor-ui--shortcuts-keymap (byte-code "\305 \306\307\211\203G \n@\211\310\311\312 \"!) \313\f\314\307\315\316\317\320 D\321BB\322\320 DD\323BBB\324BBBB\"\210\325\326 \327\\!\f#\210)\nA\211\204 *)\207" [km k --dolist-tail-- n cmd make-sparse-keymap (9 8 7 6 5 4 3 2 1) nil intern format "srefactor-ui--refactor-based-on-tag-class-%d" defalias lambda (interactive) unless search-forward number-to-string (nil t) search-backward (nil t) ((srefactor-ui--refactor-action (get-char-property (point) 'button))) define-key vector 48] 11) (#$ . 13691)) | |
| 68 | (defalias 'srefactor-ui--previous-page-target-window #[nil "\302 @\303 !\210\3041 \305 0\202 \210\202 \210\303!)\207" [menu-window srefactor-ui--current-active-window window-list select-window (error) scroll-down] 2 nil nil]) | |
| 69 | (defalias 'srefactor-ui--next-page-target-window #[nil "\302 @\303 !\210\3041 \305 0\202 \210\202 \210\303!)\207" [menu-window srefactor-ui--current-active-window window-list select-window (error) scroll-up] 2 nil nil]) | |
| 70 | (defalias 'srefactor-ui--cycle-option #[(direction current-option options) "\305 \306\307$G\f\310=\203% \n SW\203 \nT8\2026 @\2026 \n\311V\2032 \nS8\2026 S8+\207" [options current-option pos l direction position :test string-equal next 0] 5]) | |
| 71 | (defalias 'srefactor-ui--get-current-menu-option #[(menu-string) "\3011 \302\303\"\210\304\305\"0\207\210\306\207" [menu-string (error) string-match "(\\(.*\\))" match-string 0 nil] 3]) | |
| 72 | (defalias 'srefactor-ui--cycle #[(direction) "`\306\307\"\310\311 \312\"!\313 !A@\n?\205 \314\315\316\" \317 \n # \320\321\322\311 \312\"# \205N \323 \312P#\210\324\306\307\"!\210\325 !\210\326y\210\327\330!.\207" [pos link current-opt options check direction get-char-property button srefactor-ui--get-current-menu-option widget-get :tag widget-value-value-get throw option-not-available "No option is available for this tag." srefactor-ui--cycle-option replace-regexp-in-string "(\\(.*\\))" "" widget-put widget-delete widget-create -1 widget-forward 1 next-opt next-tag] 6]) | |
| 73 | #@33 Keymap used in recentf dialogs. | |
| 74 | (defvar srefactor-ui-menu-mode-map (byte-code "\303!\304 \n\"\210\305 \306\307#\210\305 \310\311#\210\305 \312\313#\210\305 \314\311#\210\305 \315\313#\210\305 \316\317#\210\305 \320\321#\210\305 \322\323#\210\305 \324\325#\210\305 \326\327#\210\330\331!\203W \305 \332\333#\210\305 \334\335#\210\305 \336\307#\210\305 \337\340#\210 )\207" [srefactor-ui--shortcuts-keymap km widget-keymap copy-keymap set-keymap-parent define-key "q" srefactor-ui--menu-quit "n" widget-forward "p" widget-backward "j" "k" " " #[nil "\301!\205\n \301! \207" [srefactor-ui--current-active-menu persistent-action] 2 nil nil] "o" #[nil "\300\301\3022\n \303\304!0\"\207" [message "%s" option-not-available srefactor-ui--cycle next] 4 nil nil] "O" #[nil "\300\301\3022\n \303\304!0\"\207" [message "%s" option-not-available srefactor-ui--cycle prev] 4 nil nil] [M-next] srefactor-ui--next-page-target-window [M-prior] srefactor-ui--previous-page-target-window featurep evil "/" evil-search-forward "?" evil-search-backward "" [follow-link] " "] 4) (#$ . 15779)) | |
| 75 | (defvar srefactor-ui-menu-mode-hook nil) | |
| 76 | (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [srefactor-ui-menu-mode-hook variable-documentation put "Hook run after entering srefactor-ui-menu mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp srefactor-ui-menu-mode-map definition-name srefactor-ui-menu-mode] 4) | |
| 77 | (defvar srefactor-ui-menu-mode-map (make-sparse-keymap)) | |
| 78 | (byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [srefactor-ui-menu-mode-map variable-documentation put purecopy "Keymap for `srefactor-ui-menu-mode'." srefactor-ui-menu-mode derived-mode-parent nil] 5) | |
| 79 | #@177 Major mode of recentf dialogs. | |
| 80 | ||
| 81 | ||
| 82 | This mode runs the hook `srefactor-ui-menu-mode-hook', as the final or penultimate step | |
| 83 | during initialization. | |
| 84 | ||
| 85 | \{srefactor-ui-menu-mode-map} | |
| 86 | (defalias 'srefactor-ui-menu-mode #[nil "\305\300!\210\306\307 \210\310\311\312 !\210\306)\313\314!\207" [delay-mode-hooks major-mode mode-name srefactor-ui-menu-mode-map truncate-lines make-local-variable t kill-all-local-variables srefactor-ui-menu-mode "srefactor-ui-menu" use-local-map run-mode-hooks srefactor-ui-menu-mode-hook] 2 (#$ . 17596) nil]) | |
| 87 | (provide 'srefactor-ui) | |
