;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require ess-mode ess-inf comint] 2) #@35 Keymap for `ess-transcript-mode'. (defvar ess-transcript-mode-map nil (#$ . 177)) (byte-code "\204\273\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\322#\210\302\324\325#\210\302\326\327#\210\302\330\331#\210\302\332\333#\210\302\334\335#\210\302\336\337#\210\302\340\341#\210\302\342\343#\210\302\311\344#\210\302\345\346#\210\302\347\346#\210\302\350\351#\210\302\352\353#\210\302\354\355#\210\302\356\357#\210\302\360\361#\210\302\362\320#\210\302\363\316#\210\302\364\365#\210\302\366\367#\210\302\370\371#\210\301\207" [ess-transcript-mode-map make-sparse-keymap define-key "" ess-switch-process "" ess-eval-region "\362" ess-eval-region-and-go " " ess-force-buffer-current "" ess-quit "\n" ess-transcript-send-command "\352" ess-transcript-send-command-and-move "\201" ess-goto-end-of-function-or-para "\205" "" ess-switch-to-ESS "" ess-switch-to-end-of-ESS "" ess-display-help-on-object "" ess-dump-object-into-edit-buffer " " ess-complete-object-name-deprecated "" comint-bol "\211" comint-replace-by-expanded-filename "\277" comint-dynamic-list-completions ess-request-a-process "{" skeleton-pair-insert-maybe "}" "" ess-mark-function "" ess-indent-exp " " ess-indent-command "" comint-previous-prompt "" comint-next-prompt " " "\215" " " ess-transcript-copy-command "" ess-transcript-DO-clean-region "\343" ess-transcript-clean-buffer] 4) #@36 Menu for use in S transcript mode. (defvar ess-transcript-mode-menu nil (#$ . 1700)) (byte-code "\302\301\303\304$\210\305\306!\203\307\310\311 B#\210\202\312\311\313\"\210\302\207" [ess-transcript-mode-map ess-transcript-mode-menu easy-menu-do-define "Menu for use in S transcript mode." ("ESS-trans" ["What is this? (beta)" ess-mouse-me t] ["Describe" describe-mode t] ["About" (ess-goto-info "Transcript Mode") t] ["Send bug report" ess-submit-bug-report t] "------" ["Mark cmd group" mark-paragraph t] ["Previous prompt" comint-previous-prompt t] ["Next prompt" comint-next-prompt t] "------" ["Send and move" ess-transcript-send-command-and-move t] ["Copy command" ess-transcript-copy-command t] ["Send command" ess-transcript-send-command t] ["Clean Region" ess-transcript-DO-clean-region t] ["Clean Whole Buffer" ess-transcript-clean-buffer t] ["Switch S process" ess-switch-process t]) featurep ess-trans define-key [menu-bar ess-trans] "ess-trans" eval-after-load #[nil "\302\303\304 B#\207" [ess-transcript-mode-map ess-transcript-mode-menu define-key [menu-bar ess-trans] "ess-trans"] 5]] 5) #@447 Major mode for manipulating {ESS} transcript files. Type \[ess-transcript-send-command] to send a command in the transcript to the current S process. \[ess-transcript-copy-command] copies the command but does not execute it, allowing you to edit it in the process buffer first. Type \[ess-transcript-clean-region] to delete all outputs and prompts in the region, leaving only the S commands. Other keybindings are: \{ess-transcript-mode-map} (defalias 'ess-transcript-mode #[(alist &optional proc) "\306 \210\307\310 !\210\311\312\313\f!\210\314 \206 !\210\315!\316\317!\210\320\"\2044\321#\322$\323\260\"\316\324!\210\325\"\326Q\316\327!\210\330\316\331!\210\307\316\332!\210\325\"P\333%\334&\316\335!\210\320\336\337!\207" [buffer-read-only alist major-mode mode-name ess-transcript-mode-map inferior-ess-mode-syntax-table kill-all-local-variables t ess-setq-vars-local ess-transcript-mode "ESS Transcript" use-local-map set-syntax-table (" [" ess-local-process-name "]") make-local-variable ess-local-process-name nil "\\(" "\\|" "\\)" paragraph-start "^" "\\|^\f" paragraph-separate "^\f" comint-use-prompt-regexp comint-prompt-regexp inferior-ess-r-font-lock-keywords (ess-build-font-lock-keywords nil nil ((46 . "w") (95 . "w") (39 . "."))) indent-tabs-mode run-mode-hooks ess-transcript-mode-hook ess-mode-syntax-table mode-line-process inferior-ess-prompt inferior-ess-primary-prompt inferior-ess-secondary-prompt inferior-ess-font-lock-keywords font-lock-defaults] 5 (#$ . 2817)]) #@161 Send the command at point in the transcript to the ESS process. The line should begin with a prompt. The ESS process buffer is displayed if it is not already. (defalias 'ess-transcript-send-command #[nil "\206\304\305\306\"\307 ! \310\n!\204\311\n\306\"\210\312 r\nq\210db\210\313 !,\207" [ess-local-process-name proc ess-buf input ess-request-a-process "Evaluate into which process? " t ess-get-process-buffer get-buffer-window display-buffer inferior-ess-get-old-input ess-eval-linewise] 3 (#$ . 4347) nil]) #@68 Send the command on this line, and move point to the next command. (defalias 'ess-transcript-send-command-and-move #[nil "\206\305\306\307\"\310 ! \311\n!\204\312\n\307\"\210\313 r\nq\210db\210\314 \315\211\211\316%\210,\fb\210\317\316!\207" [ess-local-process-name proc ess-buf input ess-temp-point ess-request-a-process "Evaluate into which process? " t ess-get-process-buffer get-buffer-window display-buffer inferior-ess-get-old-input ess-eval-linewise nil 1 comint-next-prompt] 6 (#$ . 4873) nil]) #@67 Copy the command at point to the command line of the ESS process. (defalias 'ess-transcript-copy-command #[nil "\206\304\305\306\"\307\310 !!\311  \312\n!\204\313\n\306\"\210r\nq\210db\210 c\210,\314 \207" [ess-local-process-name proc ess-buf input ess-request-a-process "Evaluate into which process? " t process-buffer get-process inferior-ess-get-old-input get-buffer-window display-buffer ess-switch-to-end-of-ESS] 3 (#$ . 5391) nil]) #@246 Strip the transcript in the region, leaving only (R/S/Lsp/..) commands. Deletes any lines not beginning with a prompt, and then removes the prompt from those lines that remain. Prefix argument means to clean even if the buffer is \[read-only]. (defalias 'ess-transcript-clean-region #[(beg end even-if-read-only) "\204\306\307!\210 \205 \n \203\310\311 \312\260\202\313P\212 \203'\314\214\315 \210}\210eb\210\316\f!\210eb\210\317\f\314\320#\203L\321\322\314\211#\210\202;) \205T\320\211+\207" [inferior-ess-prompt buffer-read-only even-if-read-only inferior-ess-secondary-prompt ess-prompt-rx do-toggle error "Cannot clean ESS transcript region in this mode!\n That only works in ess-transcript-mode or inferior-ess-mode ('*R*' etc)." "^\\(\\(" "\\)\\|\\(" "\\)\\)" "^" nil deactivate-mark delete-non-matching-lines re-search-forward t replace-match "" beg end] 6 (#$ . 5845) "r\nP"]) #@87 Clean the current via \[ess-transcript-clean-region] even if the buffer is read-only. (defalias 'ess-transcript-DO-clean-region #[(beg end) "\302 \303#\207" [beg end ess-transcript-clean-region In-ANY-case] 4 (#$ . 6760) "r"]) #@73 Cleanup the whole buffer. Use point-min/max to obey `narrow-to-region'. (defalias 'ess-transcript-clean-buffer #[nil "\300ed\301#\207" [ess-transcript-clean-region In-ANY-case] 4 (#$ . 6994) nil]) (provide 'ess-trns)