;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'subr-x) #@41 Prefix string of the vterm buffer name. (defvar vtm-prefix-string "*>" (#$ . 105)) #@42 Postfix string of the vterm buffer name. (defvar vtm-postfix-string "*" (#$ . 194)) #@33 Base directory of this package. (defconst vtm--base (file-name-directory load-file-name) (#$ . 284)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable vtm-edit-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Vtm-Edit mode is enabled.\nSee the `vtm-edit-mode' command\nfor a description of this minor mode." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10) #@597 Enable editing the vtm file. This is a minor mode. If called interactively, toggle the `Vtm-Edit mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'vtm-edit-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'vtm-edit-mode #[256 "\301 \302\303\304=\203\305\303!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\303\"\305\303!\2038\303B\313\314\305\303!\203D\315\202E\316\"\210\317\320!\203m\321\303!\210\301 \203]\211\301 \232\203m\322\323\305\303!\203i\324\202j\325\326#\210\210\327 \210\305\303!\207" [global-minor-modes current-message set-default vtm-edit-mode toggle default-value 1 nil t boundp delq run-hooks vtm-edit-mode-hook vtm-edit-mode-on-hook vtm-edit-mode-off-hook called-interactively-p any customize-mark-as-set message "Vtm-Edit mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 737) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar vtm-edit-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [vtm-edit-mode-map vtm-edit-mode-hook variable-documentation put "Hook run after entering or leaving `vtm-edit-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode vtm-edit-mode boundp] 6) #@34 Populate a buffer with scaffold. (defalias 'vtm--populate-buffer #[0 "\301\302\303\"\304\211\211\305%\210\306\307!\210\310\311!\207" [vtm--base insert-file-contents-literally expand-file-name "example.el" nil t search-forward "{CURSOR}" replace-match ""] 6 (#$ . 2576)]) #@65 Predicate of PROPERTY is missing in PLIST. (fn PLIST PROPERTY) (defalias 'vtm--property-missing-p #[514 "\300\"?\207" [plist-member] 5 (#$ . 2854)]) #@72 Predicate of PROPERTY is missing or nil in PLIST. (fn PLIST PROPERTY) (defalias 'vtm--property-missing-or-nil-p #[514 "\300\"?\207" [plist-get] 5 (#$ . 3012)]) #@72 Predicate of PROPERTY exists and is nil in PLIST. (fn PLIST PROPERTY) (defalias 'vtm--property-exist-and-nil-p #[514 "\300\"\205 \301\"\302=\207" [plist-member plist-get nil] 5 (#$ . 3181)]) #@63 Predicate of PROPERTY is blank in PLIST. (fn PLIST PROPERTY) (defalias 'vtm--property-blank-p #[514 "\301\"\211;\205\211\302\303\304\305#)\266\204\207" [inhibit-changing-match-data plist-get "\\`[ \n ]*\\'" nil t string-match] 11 (#$ . 3384)]) #@53 Open vterm with config from the current vtm buffer. (defalias 'vtm--open-vterm #[0 "p\303!\304\305\"\204\306\305\"\203\307\310 !\202\311\305\"\312\313 $\314!\311\315\"\2035\316!\210\202\227\317!\210\211\211\203\226\211@\311\320\"\311\321\"\322\323\"\204V\306\323\"\203Z\324\202^\311\323\"\250\203g\325!\210;\203\201\326\327\330\331#)\266\204\204\201\332!\210\211\203\215\333\312\334\"! \210\266A\266\202\202:\210\335!\207" [vtm-prefix-string vtm-postfix-string inhibit-changing-match-data read vtm--property-missing-or-nil-p :name vtm--property-blank-p file-name-base buffer-name plist-get format "%s%s%s" get-buffer :commands switch-to-buffer vterm :sleep :string vtm--property-missing-p :control "return" sleep-for "\\`[ \n ]*\\'" nil t string-match vterm-send-string intern "vterm-send-%s" kill-buffer] 19 (#$ . 3645)]) (defvar vtm-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [vtm-mode-hook variable-documentation put "Hook run after entering Elisp[vtm] mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp vtm-mode-map definition-name vtm-mode] 4) (defvar vtm-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [vtm-mode-abbrev-table vtm-mode-map variable-documentation put purecopy "Keymap for `vtm-mode'." boundp vtm-mode-syntax-table definition-name vtm-mode (lambda (def-tmp-var) (defvar vtm-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `vtm-mode'." (lambda (def-tmp-var) (defvar vtm-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `vtm-mode'." derived-mode-parent emacs-lisp-mode] 5) #@225 Elisp Mode starter for vtm files. In addition to any hooks its parent mode `emacs-lisp-mode' might have run, this mode runs the hook `vtm-mode-hook', as the final or penultimate step during initialization. \{vtm-mode-map} (defalias 'vtm-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R &=\204R\326 \325&C#\210\327 !\210\330\f!\210 &\331\332 !G\333U\203m\334 \210\202\216'\204\216\335\336!\204~\337\336\340\307#\210\335\336!\203\212\341 \210\202\216\342\343!\210)\344\345!\207" [delay-mode-hooks major-mode mode-name vtm-mode-map vtm-mode-syntax-table vtm-mode-abbrev-table make-local-variable t emacs-lisp-mode vtm-mode "Elisp[vtm]" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table string-trim buffer-string 0 vtm--populate-buffer featurep vterm require nil vtm--open-vterm message "The vterm feature is unavailable." run-mode-hooks vtm-mode-hook local-abbrev-table vtm-edit-mode] 5 (#$ . 5649) nil]) (byte-code "\301\302\"\303\304!\207" [auto-mode-alist append (("\\.vtm\\'" . vtm-mode)) provide vtm] 3)