;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302\303\304#\207" [require evil-collection vterm nil t] 4) (defconst evil-collection-vterm-maps '(vterm-mode-map)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable evil-collection-vterm-move-cursor-back funcall function #[0 "\300\207" [nil] 1 ""] "Whether the cursor is moved backwards when exiting insert state." :type boolean :group vterm] 8)#@166 Go back to normal state but don't move cursor backwards. Moving cursor backwards is the default vim behavior but it is not appropriate in some cases like terminals. (defalias 'evil-collection-vterm-escape-stay #[0 "\302\301!\210\211\207" [evil-collection-vterm-move-cursor-back evil-move-cursor-back make-local-variable] 2 (#$ . 497)])#@57 Track whether or not we send ESC to `vterm' or `emacs'. (defvar evil-collection-vterm-send-escape-to-vterm-p nil (#$ . 840)) (make-variable-buffer-local 'evil-collection-vterm-send-escape-to-vterm-p)#@153 Toggle where ESC is sent between `vterm' and `emacs'. This is needed for programs that use ESC, e.g. vim or an ssh'd emacs that also uses `evil-mode'. (defalias 'evil-collection-vterm-toggle-send-escape #[0 "\203\302\303\304\305\306 \307\"$\210\202\302\303\304\310\311$\210?\312\313\314\203&\315\202'\316\"!\207" [evil-collection-vterm-send-escape-to-vterm-p evil-insert-state-map evil-collection-define-key insert vterm-mode-map [escape] lookup-key [escape] [escape] vterm--self-insert message format "Sending ESC to %s." "vterm" "emacs"] 7 (#$ . 1046) nil]) (eval-after-load 'eldoc #[0 "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-collection-vterm-first-non-blank] 2])#@68 Move the cursor to the first non-blank character after the prompt. (defalias 'evil-collection-vterm-first-non-blank #[0 "\300`!\203 \301 \207\302 \207" [vterm-cursor-in-command-buffer-p vterm-beginning-of-line evil-first-non-blank] 2 (#$ . 1751) nil]) (evil-set-command-properties 'evil-collection-vterm-first-non-blank :repeat 'motion :type 'exclusive :keep-visual t)#@33 Insert character before cursor. (defalias 'evil-collection-vterm-insert #[0 "\300`!\210\301\302!\207" [vterm-goto-char call-interactively evil-insert] 2 (#$ . 2126) nil])#@42 Insert character at beginning of prompt. (defalias 'evil-collection-vterm-insert-line #[0 "\300\301 !\210\302\303!\207" [vterm-goto-char vterm--get-prompt-point call-interactively evil-insert] 2 (#$ . 2302) nil])#@32 Append character after cursor. (defalias 'evil-collection-vterm-append #[0 "\300`T!\210\301\302!\207" [vterm-goto-char call-interactively evil-insert] 2 (#$ . 2520) nil])#@34 Append character at end-of-line. (defalias 'evil-collection-vterm-append-line #[0 "\300\301 !\210\302\303!\207" [vterm-goto-char vterm--get-end-of-line call-interactively evil-insert] 2 (#$ . 2696) nil])#@22 (fn &optional ARG) (defalias 'evil-collection-vterm-paste-after #[256 "\300`T!\210\301\302\"\207" [vterm-goto-char call-interactively vterm-yank] 4 (#$ . 2905) "P"])#@200 Modification of evil-delete to work in vterm buffer. Delete text from BEG to END with TYPE. Save in REGISTER or in the kill-ring with YANK-HANDLER. (fn BEG END &optional TYPE REGISTER YANK-HANDLER) (defalias 'evil-collection-vterm-delete #[1282 "\303\216\304 \211\305\223\210 \203\306\307!\204\265\206`\310 ]\206&\211\311 ^\204E\312\"\313\305\314\315$\266\203\204D\316\317\"\210\210\305\320   %)\210\321=\203d\322\323\305$\210\202\243\324=\203\236\211dU\203\236U\204\203\211\206|`Sf\325U\204\236eU\204\236\206\216`Sf\325U\203\236\323S\"\210\202\243\323\"\210\306\307!\203\263\324=\203\263\326 \210\266\327\330\206\275d\"\210\327\331\206\307d\332!\206\316dS]\"\210\211\305\211\223)\266\202)\207" [evil-inhibit-operator-value evil-inhibit-operator evil-was-yanked-without-register #[0 "\301\211\207" [evil-inhibit-operator-value nil] 2] make-marker nil called-interactively-p any vterm--get-prompt-point vterm--get-end-of-line filter-buffer-substring "\n" string-match t evil-set-register 45 evil-yank block evil-apply-on-block vterm-delete-region line 10 vterm-reset-cursor-point evil-set-marker 91 93 marker-position] 18 (#$ . 3080) (byte-code "\306\307!\310\311\"\211\205\211A@\206\312\262\313\314\"\315\211\315\211i\316\317\320!\321 D\"\f\320\322 \203D\323\324!\210\202R\313\325\"\203R\n\203R\nb\210-\207" [evil-operator-range-motion evil-operator-range-type evil-operator-range-beginning evil-operator-range-end evil-inhibit-operator evil-inhibit-operator-value evil-command-properties evil-collection-vterm-delete plist-member :motion undefined plist-get :type nil append evil-operator-range t evil-yank-handler evil-visual-state-p evil-visual-rotate upper-left :move-point this-command evil-this-operator evil-operator-start-col evil-this-register deactivate-mark] 6)]) (evil-set-command-properties 'evil-collection-vterm-delete :move-point t :keep-visual t :suppress-operator t)#@66 Delete previous character. (fn BEG END &optional TYPE REGISTER) (defalias 'evil-collection-vterm-delete-backward-char #[1026 "\302\216\303 \211\304\223\210 \203\305\306!\204!\307$\210\310\311\206)d\"\210\310\312\2063d\313!\206:dS]\"\210\211\304\211\223)\266\202)\207" [evil-inhibit-operator-value evil-inhibit-operator #[0 "\301\211\207" [evil-inhibit-operator-value nil] 2] make-marker nil called-interactively-p any evil-collection-vterm-delete evil-set-marker 91 93 marker-position] 11 (#$ . 5070) (byte-code "\306\307!\310\311\"\211\205\211A@\206\312\262\313\314\"\315\211\315\211i\316\317\320!C\"\f\320\321 \203B\322\323!\210\202P\313\324\"\203P\n\203P\nb\210-\207" [evil-operator-range-motion evil-operator-range-type evil-operator-range-beginning evil-operator-range-end evil-inhibit-operator evil-inhibit-operator-value evil-command-properties evil-collection-vterm-delete-backward-char plist-member :motion undefined plist-get :type nil append evil-operator-range t evil-visual-state-p evil-visual-rotate upper-left :move-point this-command evil-this-operator evil-operator-start-col evil-this-register deactivate-mark] 6)]) (evil-set-command-properties 'evil-collection-vterm-delete-backward-char :move-point t :motion 'evil-backward-char :keep-visual t :suppress-operator t)#@65 Delete current character. (fn BEG END &optional TYPE REGISTER) (defalias 'evil-collection-vterm-delete-char #[1026 "\302\216\303 \211\304\223\210 \203\305\306!\204!\307$\210\310\311\206)d\"\210\310\312\2063d\313!\206:dS]\"\210\211\304\211\223)\266\202)\207" [evil-inhibit-operator-value evil-inhibit-operator #[0 "\301\211\207" [evil-inhibit-operator-value nil] 2] make-marker nil called-interactively-p any evil-collection-vterm-delete evil-set-marker 91 93 marker-position] 11 (#$ . 6415) (byte-code "\306\307!\310\311\"\211\205\211A@\206\312\262\313\314\"\315\211\315\211i\316\317\320!C\"\f\320\321 \203B\322\323!\210\202P\313\324\"\203P\n\203P\nb\210-\207" [evil-operator-range-motion evil-operator-range-type evil-operator-range-beginning evil-operator-range-end evil-inhibit-operator evil-inhibit-operator-value evil-command-properties evil-collection-vterm-delete-char plist-member :motion undefined plist-get :type nil append evil-operator-range t evil-visual-state-p evil-visual-rotate upper-left :move-point this-command evil-this-operator evil-operator-start-col evil-this-register deactivate-mark] 6)]) (evil-set-command-properties 'evil-collection-vterm-delete-char :move-point t :motion 'evil-forward-char :keep-visual t :suppress-operator t)#@132 Modification of evil-delete line to work in vterm bufer. Delete to end of line. (fn BEG END &optional TYPE REGISTER YANK-HANDLER) (defalias 'evil-collection-vterm-delete-line #[1282 "\306\216\307 \211\310\223\210 \203\311\312!\204\232\206`\206#\211\n\205( \211\2036\212\313 \210`)\2028\314 \315 \203d\316>\204a\317 \203O\320\202P\321#\322!\262\323!\262\324!\262 \210\325 \210\326\267\202\214\f\327\330\331\n\n%*\210\202\227\330\n\n\n%\210\202\227\330\n\n\n%\210)\266\332\333\206\242d\"\210\332\334\206\254d\335!\206\263dS]\"\210\211\310\211\223)\266\202)\207" [evil-inhibit-operator-value evil-inhibit-operator evil-respect-visual-line-mode visual-line-mode most-positive-fixnum last-command #[0 "\301\211\207" [evil-inhibit-operator-value nil] 2] make-marker nil called-interactively-p any end-of-visual-line line-end-position evil-visual-state-p (line screen-line block) evil-expand screen-line line evil-range-beginning evil-range-end evil-type evil-exit-visual-state #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (block 107 line 126 screen-line 126)) next-line evil-collection-vterm-delete block evil-set-marker 91 93 marker-position temporary-goal-column] 17 (#$ . 7732) (byte-code "\306\307!\310\311\"\211\205\211A@\206\312\262\313\314\"\315\211\315\211i\316\317\320!C\"\f\321 \203;\322 \210\321 \203G\323\324!\210\202U\313\325\"\203U\n\203U\nb\210-\207" [evil-operator-range-motion evil-operator-range-type evil-operator-range-beginning evil-operator-range-end evil-inhibit-operator evil-inhibit-operator-value evil-command-properties evil-collection-vterm-delete-line plist-member :motion undefined plist-get :type nil append evil-operator-range t evil-visual-state-p evil-visual-expand-region evil-visual-rotate upper-left :move-point this-command evil-this-operator evil-operator-start-col evil-this-register] 6)]) (evil-set-command-properties 'evil-collection-vterm-delete-line :move-point t :motion nil :keep-visual t :suppress-operator t)#@53 (fn BEG END &optional TYPE REGISTER YANK-HANDLER) (defalias 'evil-collection-vterm-replace #[1282 "\302\216\303 \211\304\223\210 \203\305\306!\2048\307Z\310 \"\311%\210\312!\210\313S!\266\314\315\206@d\"\210\314\316\206Jd\317!\206QdS]\"\210\211\304\211\223)\266\202)\207" [evil-inhibit-operator-value evil-inhibit-operator #[0 "\301\211\207" [evil-inhibit-operator-value nil] 2] make-marker nil called-interactively-p any make-string read-char evil-collection-vterm-delete vterm-insert vterm-goto-char evil-set-marker 91 93 marker-position] 14 (#$ . 9821) (byte-code "\306\307!\310\311\"\211\205\211A@\206\312\262\313\314\"\315\211\315\211i\316\317!\f\317\320 \203=\321\322!\210\202K\313\323\"\203K\n\203K\nb\210-\207" [evil-operator-range-motion evil-operator-range-type evil-operator-range-beginning evil-operator-range-end evil-inhibit-operator evil-inhibit-operator-value evil-command-properties evil-collection-vterm-replace plist-member :motion undefined plist-get :type nil evil-operator-range t evil-visual-state-p evil-visual-rotate upper-left :move-point this-command evil-this-operator evil-operator-start-col deactivate-mark] 6)]) (evil-set-command-properties 'evil-collection-vterm-replace :move-point t :motion 'evil-forward-char :keep-visual t :suppress-operator t)#@53 (fn BEG END &optional TYPE REGISTER YANK-HANDLER) (defalias 'evil-collection-vterm-change #[1282 "\302\216\303 \211\304\223\210 \203\305\306!\204'\307%\210\310 \210\311\312\206/d\"\210\311\313\2069d\314!\206@dS]\"\210\211\304\211\223)\266\202)\207" [evil-inhibit-operator-value evil-inhibit-operator #[0 "\301\211\207" [evil-inhibit-operator-value nil] 2] make-marker nil called-interactively-p any evil-collection-vterm-delete evil-collection-vterm-insert evil-set-marker 91 93 marker-position] 13 (#$ . 11171) (byte-code "\306\307!\310\311\"\211\205\211A@\206\312\262\313\314\"\315\211\315\211i\316\317!\f\317\320 \203=\321\322!\210\202K\313\323\"\203K\n\203K\nb\210-\207" [evil-operator-range-motion evil-operator-range-type evil-operator-range-beginning evil-operator-range-end evil-inhibit-operator evil-inhibit-operator-value evil-command-properties evil-collection-vterm-change plist-member :motion undefined plist-get :type nil evil-operator-range t evil-visual-state-p evil-visual-rotate upper-left :move-point this-command evil-this-operator evil-operator-start-col deactivate-mark] 6)]) (evil-set-command-properties 'evil-collection-vterm-change :move-point t :keep-visual t :suppress-operator t)#@53 (fn BEG END &optional TYPE REGISTER YANK-HANDLER) (defalias 'evil-collection-vterm-change-line #[1282 "\302\216\303 \211\304\223\210 \203\305\306!\204'\307%\210\310 \210\311\312\206/d\"\210\311\313\2069d\314!\206@dS]\"\210\211\304\211\223)\266\202)\207" [evil-inhibit-operator-value evil-inhibit-operator #[0 "\301\211\207" [evil-inhibit-operator-value nil] 2] make-marker nil called-interactively-p any evil-collection-vterm-delete-line evil-collection-vterm-insert evil-set-marker 91 93 marker-position] 13 (#$ . 12440) (byte-code "\306\307!\310\311\"\211\205\211A@\206\312\262\313\314\"\315\211\315\211i\316\317!\f\317\320 \203=\321\322!\210\202K\313\323\"\203K\n\203K\nb\210-\207" [evil-operator-range-motion evil-operator-range-type evil-operator-range-beginning evil-operator-range-end evil-inhibit-operator evil-inhibit-operator-value evil-command-properties evil-collection-vterm-change-line plist-member :motion undefined plist-get :type nil evil-operator-range t evil-visual-state-p evil-visual-rotate upper-left :move-point this-command evil-this-operator evil-operator-start-col deactivate-mark] 6)]) (evil-set-command-properties 'evil-collection-vterm-change-line :move-point t :motion 'evil-end-of-line-or-visual-line :keep-visual t :suppress-operator t)#@40 (fn BEG END &optional TYPE REGISTER) (defalias 'evil-collection-vterm-substitute #[1026 "\302\216\303 \211\304\223\210 \203\305\306!\204!\307$\210\310\311\206)d\"\210\310\312\2063d\313!\206:dS]\"\210\211\304\211\223)\266\202)\207" [evil-inhibit-operator-value evil-inhibit-operator #[0 "\301\211\207" [evil-inhibit-operator-value nil] 2] make-marker nil called-interactively-p any evil-collection-vterm-change evil-set-marker 91 93 marker-position] 11 (#$ . 13770) (byte-code "\306\307!\310\311\"\211\205\211A@\206\312\262\313\314\"\315\211\315\211i\316\317\320!C\"\f\320\321 \203B\322\323!\210\202P\313\324\"\203P\n\203P\nb\210-\207" [evil-operator-range-motion evil-operator-range-type evil-operator-range-beginning evil-operator-range-end evil-inhibit-operator evil-inhibit-operator-value evil-command-properties evil-collection-vterm-substitute plist-member :motion undefined plist-get :type nil append evil-operator-range t evil-visual-state-p evil-visual-rotate upper-left :move-point this-command evil-this-operator evil-operator-start-col evil-this-register deactivate-mark] 6)]) (evil-set-command-properties 'evil-collection-vterm-substitute :move-point t :motion 'evil-forward-char :keep-visual t :suppress-operator t)#@48 (fn BEG END &optional REGISTER YANK-HANDLER) (defalias 'evil-collection-vterm-substitute-line #[1026 "\302\216\303 \211\304\223\210 \203\305\306!\204\"\307\310%\210\311\312\206*d\"\210\311\313\2064d\314!\206;dS]\"\210\211\304\211\223)\266\202)\207" [evil-inhibit-operator-value evil-inhibit-operator #[0 "\301\211\207" [evil-inhibit-operator-value nil] 2] make-marker nil called-interactively-p any evil-collection-vterm-change line evil-set-marker 91 93 marker-position] 12 (#$ . 15059) (byte-code "\306\307!\310\311\"\211\205\211A@\206\312\262\313\314\"\315\211\315\211i\316\317 C\"\f\320\321 \203A\322\323!\210\202O\313\324\"\203O\n\203O\nb\210-\207" [evil-operator-range-motion evil-operator-range-type evil-operator-range-beginning evil-operator-range-end evil-inhibit-operator evil-inhibit-operator-value evil-command-properties evil-collection-vterm-substitute-line plist-member :motion undefined plist-get :type nil append evil-operator-range t evil-visual-state-p evil-visual-rotate upper-left :move-point this-command evil-this-operator evil-operator-start-col evil-this-register deactivate-mark] 6)]) (byte-code "\300\301\302\303\304\305\306\307\310\303\311\303& \210\312\313\314\"\207" [evil-set-command-properties evil-collection-vterm-substitute-line :move-point t :motion evil-line-or-visual-line :type line :keep-visual :suppress-operator eval-after-load eldoc #[0 "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-collection-vterm-next-line] 2]] 12)#@121 Move the cursor COUNT lines down. But don't allow the cursor to move bellow the last prompt line. (fn &optional COUNT) (defalias 'evil-collection-vterm-next-line #[256 "\300`d\"\301V\205\f\302!\207" [count-words 0 evil-next-line] 4 (#$ . 16600) (byte-code "\205\301!C\207" [current-prefix-arg prefix-numeric-value] 2)]) (evil-set-command-properties 'evil-collection-vterm-next-line :repeat 'motion :type 'line :keep-visual t)#@37 Set up `evil' bindings for `vterm'. (defalias 'evil-collection-vterm-setup #[0 "\300\301\302\"\210\303\304\305\"\210\306\307\310\311#\210\312\302\307\313\314\315\314\316\314\317\314\320\314\321\314\322\314\323\314\324\314\325\314\326\314\327\314\330\314\331\314\332\314\333\314\334\314\335\314\336\314\337\340&*\210\306\307\341\342\343\344\345\346\347\344\350\346& \210\312\351\307\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377\201@\201A\201B\201C\201D\201E\201F\201G\201H\201I\201J\201K\201L\201M\201N\201O&(\210\312\201P\307\362\363\366\371&\207" [evil-set-initial-state vterm-mode insert add-hook vterm-mode-hook evil-collection-vterm-escape-stay evil-collection-bind vterm-mode-map term-toggle-escape evil-collection-vterm-toggle-send-escape evil-collection-define-key "" vterm--self-insert "" "" "" "" " " "\f" "" "" "" "" "" "" "" "" "" "" "" "" [delete] vterm-send-delete repl-submit vterm-send-return next-item vterm-next-prompt prev-item vterm-previous-prompt next-section prev-section normal "p" evil-collection-vterm-paste-after "P" vterm-yank "a" evil-collection-vterm-append "A" evil-collection-vterm-append-line "d" evil-collection-vterm-delete "D" evil-collection-vterm-delete-line "x" evil-collection-vterm-delete-char "X" evil-collection-vterm-delete-backward-char "^" evil-collection-vterm-first-non-blank "i" evil-collection-vterm-insert "I" evil-collection-vterm-insert-line "u" vterm-undo "r" evil-collection-vterm-replace "c" evil-collection-vterm-change "C" evil-collection-vterm-change-line "s" evil-collection-vterm-substitute "S" evil-collection-vterm-substitute-line "j" evil-collection-vterm-next-line "G" vterm-reset-cursor-point visual] 43 (#$ . 17038)]) (provide 'evil-collection-vterm)