;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\314DD\315\316\317\306\303&\210\310\320\312\313\321DD\322\316\317\306\303&\207" [require cl-lib custom-declare-group zoom-window nil "zoom window like tmux" :group windows custom-declare-variable zoom-window-use-elscreen funcall function #[0 "\300\207" [nil] 1] "Non-nil means using elscreen." :type boolean zoom-window-use-persp #[0 "\300\207" [nil] 1] "Non-nil means using persp-mode."] 8) #@47 Association list for working with persp-mode. (defvar zoom-window-persp-alist nil (#$ . 551)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable zoom-window-mode-line-color funcall function #[0 "\300\207" [#1="green"] 1 #1#] "Color of mode-line when zoom-window is enabled." :type string :group zoom-window] 8) (defvar zoom-window--window-configuration (make-hash-table :test 'equal)) (defvar zoom-window--orig-color nil) #@39 Not documented. (fn KEY VALUE ALIST) (defalias 'zoom-window--put-alist #[771 "\300\"\211\203\211\241\210\207BB\207" [assoc] 6 (#$ . 1015)]) #@17 Not documented. (defalias 'zoom-window--elscreen-current-property #[0 "\300\301 !\207" [elscreen-get-screen-property elscreen-get-current-screen] 2 (#$ . 1171)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put zoom-window--elscreen-current-property speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@28 Not documented. (fn PROP) (defalias 'zoom-window--elscreen-current-tab-property #[257 "\300\301 !\302\"\207" [elscreen-get-screen-property elscreen-get-current-screen assoc-default] 5 (#$ . 1503)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put zoom-window--elscreen-current-tab-property speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@17 Not documented. (defalias 'zoom-window--elscreen-update #[0 "\301\302 !\303\304\"\303\305\"\306\307!\203\310\311#\210\202&\203&\310\311#\210\312 \207" [zoom-window-mode-line-color elscreen-get-screen-property elscreen-get-current-screen assoc-default zoom-window-saved-color zoom-window-is-zoomed window-frame nil set-face-background mode-line force-mode-line-update] 8 (#$ . 1878)]) #@17 Not documented. (defalias 'zoom-window--elscreen-set-zoomed #[0 "\300 \301!\302\303!\304\305#\262\306\"\207" [elscreen-get-current-screen elscreen-get-screen-property face-background mode-line zoom-window--put-alist zoom-window-saved-color elscreen-set-screen-property] 7 (#$ . 2280)]) #@17 Not documented. (defalias 'zoom-window--elscreen-set-default #[0 "\301\302!\303!@\304!\305\306\307#\262\305\310#\262\311\"\207" [zoom-window--orig-color elscreen-get-conf-list screen-history last elscreen-get-screen-property zoom-window--put-alist zoom-window-is-zoomed nil zoom-window-saved-color elscreen-set-screen-property] 7 (#$ . 2578)]) #@190 Hook to run when do persp switching. PERSP-NAME: name of a perspective to switch. FRAME-OR-WINDOW: a frame or a window for which the switching takes place. (fn PERSP-NAME FRAME-OR-WINDOW) (defalias 'zoom-window--persp-before-switch-hook #[514 "\303\"\303\304\"\303\305\"\306\307!\203\310\311 #\210\202/\203)\310\311#\210\202/\310\311\n#\210\2059\2059\312 \207" [zoom-window-persp-alist zoom-window-mode-line-color zoom-window--orig-color assoc-default zoom-window-saved-color zoom-window-is-zoomed window-frame nil set-face-background mode-line force-mode-line-update] 10 (#$ . 2938)]) #@85 Hook to run when do persp killing. PERSP: the perspective to be killed. (fn PERSP) (defalias 'zoom-window--persp-before-kill-hook #[257 "\301!\302\303\"\"\211\207" [zoom-window-persp-alist safe-persp-name delq assoc] 6 (#$ . 3550)]) #@38 To work with elscreen or persp-mode. (defalias 'zoom-window-setup #[0 "\203\303\304!\305\306\307\"\210\305\310\311\"\210\307 \207\n\203'\303\304!\305\312\313\"\210\305\314\315\"\207\316\207" [zoom-window-use-elscreen zoom-window--orig-color zoom-window-use-persp face-background mode-line add-hook elscreen-create-hook zoom-window--elscreen-set-default elscreen-screen-update-hook zoom-window--elscreen-update persp-before-switch-functions zoom-window--persp-before-switch-hook persp-before-kill-functions zoom-window--persp-before-kill-hook nil] 3 (#$ . 3795)]) #@82 Initialize property of PERSP-NAME in `zoom-window-persp-alist'. (fn PERSP-NAME) (defalias 'zoom-window--init-persp-property #[257 "\301\302#\207" [zoom-window-persp-alist (('zoom-window-is-zoomed nil) ('zoom-window-saved-color zoom-window--orig-color)) zoom-window--put-alist] 6 (#$ . 4370)]) #@17 Not documented. (defalias 'zoom-window--save-mode-line-color #[0 "\203\304 \207 \203*\305\306 !\307\n\"\206\310!\311\312\313\314!#\262\311\n#\211\207\313\314!\211\207" [zoom-window-use-elscreen zoom-window-use-persp zoom-window-persp-alist zoom-window--orig-color zoom-window--elscreen-set-zoomed safe-persp-name get-frame-persp assoc-default zoom-window--init-persp-property zoom-window--put-alist zoom-window-saved-color face-background mode-line] 6 (#$ . 4674)]) #@17 Not documented. (defalias 'zoom-window--save-buffers #[0 "\303 \304\211:\203@\262\305!B\262A\262\202\211\237\266\203\2032\306\307 !\310\311#\312\307 \"\207 \203S\313\314 !\315\n\"\206D\316!\310\311#\262\310\n#\211\207\317\320\304!\311#\207" [zoom-window-use-elscreen zoom-window-use-persp zoom-window-persp-alist window-list nil window-buffer elscreen-get-screen-property elscreen-get-current-screen zoom-window--put-alist zoom-window-buffers elscreen-set-screen-property safe-persp-name get-frame-persp assoc-default zoom-window--init-persp-property set-frame-parameter window-frame] 7 (#$ . 5160)]) (defalias 'zoom-window--get-buffers #[0 "\203 \303\304 !\305\306\"\207 \203\307\310 !\305\n\"\305\306\"\207\311\312\313!\306\"\207" [zoom-window-use-elscreen zoom-window-use-persp zoom-window-persp-alist elscreen-get-screen-property elscreen-get-current-screen assoc-default zoom-window-buffers safe-persp-name get-frame-persp frame-parameter window-frame nil] 5]) #@17 Not documented. (defalias 'zoom-window--restore-mode-line-face #[0 "\203\304\305\306 !\307\"\266\202\202( \203'\310\311 !\307\n\"\307\304\"\266\202\202( \312\313\314\315!#\207" [zoom-window-use-elscreen zoom-window-use-persp zoom-window-persp-alist zoom-window--orig-color zoom-window-saved-color elscreen-get-screen-property elscreen-get-current-screen assoc-default safe-persp-name get-frame-persp set-face-background mode-line window-frame nil] 6 (#$ . 6167)]) #@17 Not documented. (defalias 'zoom-window--configuration-key #[0 "\203\n\302\303\304 \"\207 \203\305\306 !\302\307\"\207\310\311\312!\313\"\211\204#\314\207\302\315\"\207" [zoom-window-use-elscreen zoom-window-use-persp format "zoom-window-%d" elscreen-get-current-screen safe-persp-name get-frame-persp "perspective-%s" frame-parameter window-frame nil parent-id :zoom-window ":zoom-window-%d"] 4 (#$ . 6648)]) #@17 Not documented. (defalias 'zoom-window--save-window-configuration #[0 "\301 \302 \303 D\304#\207" [zoom-window--window-configuration zoom-window--configuration-key current-window-configuration point-marker puthash] 6 (#$ . 7070)]) #@17 Not documented. (defalias 'zoom-window--restore-window-configuration #[0 "\301 \302\303#\211\303=\203\304\305!\210\211@A@\306!\210\307!\203#\211b\210\310\"\207" [zoom-window--window-configuration zoom-window--configuration-key gethash not-found error "window configuration is not found" set-window-configuration marker-buffer remhash] 7 (#$ . 7310)]) #@17 Not documented. (defalias 'zoom-window--toggle-enabled #[0 "\203\303 \304!\305\306\"\307\306?#\262\310\"\207 \203@\311\312 !\305\n\"\206,\313!\305\306\"\307\306?#\262\307\n#\211\207\314\315!\316\317\"\320\317?#\207" [zoom-window-use-elscreen zoom-window-use-persp zoom-window-persp-alist elscreen-get-current-screen elscreen-get-screen-property assoc-default zoom-window-is-zoomed zoom-window--put-alist elscreen-set-screen-property safe-persp-name get-frame-persp zoom-window--init-persp-property window-frame nil frame-parameter zoom-window-enabled set-frame-parameter] 7 (#$ . 7677)]) #@17 Not documented. (defalias 'zoom-window--enable-p #[0 "\203\303\304\305 !\306\"\207 \203#\307\310 !\306\n\"\211\205\"\306\303\"\207\311\312\313!\314\"\207" [zoom-window-use-elscreen zoom-window-use-persp zoom-window-persp-alist zoom-window-is-zoomed elscreen-get-screen-property elscreen-get-current-screen assoc-default safe-persp-name get-frame-persp frame-parameter window-frame nil zoom-window-enabled] 5 (#$ . 8295)]) #@28 Not documented. (fn LINE) (defalias 'zoom-window--goto-line #[257 "eb\210\211Sy\207" [] 2 (#$ . 8732)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put zoom-window--goto-line speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@17 Not documented. (defalias 'zoom-window--do-unzoom #[0 "\300 ip\301 \210\302 \210\303!\303 \230\204\304!\210eb\210\211Sy\266\305!\207" [line-number-at-pos zoom-window--restore-mode-line-face zoom-window--restore-window-configuration buffer-name switch-to-buffer move-to-column] 5 (#$ . 8991)]) #@26 Zoom the current window. (defalias 'zoom-window-zoom #[0 "\301 \302\303!\304 \203\204\305\306!\207\203*\3071!\310 0\210\202<\305\311\"\266\202<\312 \210\313 \210\314 \210\315 \210\316\317#\210\320 \210\321 \207" [zoom-window-mode-line-color zoom-window--enable-p window-frame nil one-window-p message "There is only one window!!" (debug error) zoom-window--do-unzoom "Warning: %S" zoom-window--save-mode-line-color zoom-window--save-buffers zoom-window--save-window-configuration delete-other-windows set-face-background mode-line force-mode-line-update zoom-window--toggle-enabled] 6 (#$ . 9297) nil]) #@68 Switch to next buffer which is in zoomed frame/screen/perspective. (defalias 'zoom-window-next #[0 "\300 p\235\211\203\211A\203\301A@!\207\301@!\207\301@!\207" [zoom-window--get-buffers switch-to-buffer] 4 (#$ . 9920) nil]) (provide 'zoom-window)