.emacs.d.git - Gitblit

;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
 
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(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)
#@60 Store the current active window where the menu is invoked.
(defvar srefactor-ui--current-active-window nil (#$ . 638))
#@63 Store the start of an active region of current window if any.
(defvar srefactor-ui--current-active-region-start nil (#$ . 763))
#@61 Store the end of an active region of current window if any.
(defvar srefactor-ui--current-active-region-end nil (#$ . 897))
#@33 Current menu object biing used.
(defvar srefactor-ui--current-active-menu nil (#$ . 1027))
#@38 What type of refactoring to perform.
(defvar srefactor-ui--func-type nil (#$ . 1124))
#@56 Overlay of tag in srefactor-ui--current-active-window.
(defvar srefactor-ui--current-active-tag-overlay nil (#$ . 1216))
#@27 Turn on/off help message.
(custom-declare-variable 'srefactor-ui-menu-show-help t '(#$ . 1343) :group 'srefactor-ui :type 'boolean)
(defalias 'srefactor-ui--menu-label #[(e) "@\207" [e] 1])
(put 'srefactor-ui--menu-label 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'srefactor-ui--menu-value-item #[(e) "A\207" [e] 1])
(put 'srefactor-ui--menu-value-item 'byte-optimizer 'byte-compile-inline-expand)
#@111 Return a command name to open the Nth most recent file.
See also the command `recentf-open-most-recent-file'.
(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)])
(put 'srefactor-ui--digit-shortcut-command-name 'byte-optimizer 'byte-compile-inline-expand)
#@211 Create a new menu-element.
A menu element is a pair (MENU-ITEM . MENU-VALUE), where MENU-ITEM is
the menu item string displayed.  MENU-VALUE is the file to be open
when the corresponding MENU-ITEM is selected.
(defalias 'srefactor-ui--make-menu-element #[(menu-item menu-value) "    B\207" [menu-item menu-value] 2 (#$ . 2135)])
(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)
#@56 Create a new object of class type `srefactor-ui-menu'.
(defalias 'srefactor-ui-menu #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srefactor-ui-menu] 4 (#$ . 7324)])
(byte-code "\300\301\302\303#\300\207" [function-put srefactor-ui-menu compiler-macro srefactor-ui-menu--anon-cmacro] 4)
(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])
#@51 Show a dialog buffer with NAME, setup with FORMS.
(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)]))
(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)
(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\337B\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\201Np!\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])
(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])
#@63 Return a list of widgets to display FILES in a dialog buffer.
(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)])
#@61 Filter the list of menu-elements L to show digit shortcuts.
(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\210A\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)])
(defalias 'srefactor-ui--make-default-menu-element #[(command) "\211@)\211A)\211\n*B\207" [command e menu-value menu-item] 3])
#@61 Return a widget to display MENU-ELEMENT in a dialog buffer.
(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)])
(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!\210b\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])
#@80 Open the file stored in WIDGET's value when notified.
-IGNORE other arguments.
(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])
(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])
(defalias 'srefactor-ui--menu-quit #[(&rest ignored) "\300\301!\207" [srefactor-ui--clean-up-menu-window t] 2 nil nil])
#@25 Digit shortcuts keymap.
(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))
(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])
(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])
(defalias 'srefactor-ui--cycle-option #[(direction current-option options) "\305    \306\307$G\f\310=\203%\nSW\203 \nT8\2026@\2026\n\311V\2032\nS8\2026S8+\207" [options current-option pos l direction position :test string-equal next 0] 5])
(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])
(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])
#@33 Keymap used in recentf dialogs.
(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))
(defvar srefactor-ui-menu-mode-hook nil)
(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)
(defvar srefactor-ui-menu-mode-map (make-sparse-keymap))
(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)
#@177 Major mode of recentf dialogs.
 
 
This mode runs the hook `srefactor-ui-menu-mode-hook', as the final or penultimate step
during initialization.
 
\{srefactor-ui-menu-mode-map}
(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])
(provide 'srefactor-ui)