;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\320\321\310\303&\210\312\322\314\315\323DD\324\320\321\310\303&\210\312\325\314\315\326DD\327\320\321\310\303&\207" [require popwin custom-declare-group terminal-toggle nil "Group for setting terminal options" :prefix "terminal-toggle-" :group emacs custom-declare-variable terminal-toggle--term-title funcall function #[0 "\300\207" [#1="myterm"] 1 #1#] "Name of buffer to hide/show." :type string terminal-toggle--term-command #[0 "\300\207" [#2="ansi-term"] 1 #2#] "Terminal command to launch." terminal-toggle--term-shell #[0 "\300\207" [#3="/usr/bin/zsh"] 1 #3#] "Terminal shell to launch."] 8) #@38 Internal buffer name with asterisks. (defconst terminal-toggle--term-name (byte-code "\301\302O\303\230\203\304\305O\303\230\203\207\303\303Q\207" [terminal-toggle--term-title 0 1 "*" -1 nil] 3) (#$ . 780)) #@18 Terminal exists. (defalias 'terminal-toggle-is-open #[0 "\301!\207" [terminal-toggle--term-name get-buffer] 2 (#$ . 1001)]) #@38 Terminal state (whether is visible). (defalias 'terminal-toggle-is-showing #[0 "\301!\207" [terminal-toggle--term-name get-buffer-window] 2 (#$ . 1132)]) #@23 Launch ansi terminal. (defalias 'terminal-toggle-launch #[0 "\303! \n\304\305O\"\210\306\307p\304\"!\207" [terminal-toggle--term-command terminal-toggle--term-shell terminal-toggle--term-name intern 1 -1 switch-to-buffer other-buffer] 5 (#$ . 1293)]) #@34 Show an already opened terminal. (defalias 'terminal-toggle-set-visible #[0 "\301!\207" [terminal-toggle--term-name popwin:popup-buffer] 2 (#$ . 1551)]) #@20 Hide the terminal. (defalias 'terminal-toggle-set-hidden #[0 "\301\302!!\207" [terminal-toggle--term-name delete-window get-buffer-window] 3 (#$ . 1711)]) #@31 Show/launch or hide terminal. (defalias 'terminal-toggle #[0 "\300 \203\301 \203 \302 \207\303 \207\304 \210\303 \207" [terminal-toggle-is-open terminal-toggle-is-showing terminal-toggle-set-hidden terminal-toggle-set-visible terminal-toggle-launch] 1 (#$ . 1873) nil]) (provide 'terminal-toggle)