| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | #@32 The golden ratio value itself. | |
| 16 | (defconst golden-ratio--value 1.618 (#$ . 408)) | |
| 17 | (byte-code "\300\301\302\303\304\305%\210\306\307\302\310\311\312\304\301&\210\306\313\302\314\311\315\304\301&\210\306\316\302\317\304\301\311\320&\210\306\321\322\323\304\301\311\324&\210\306\325\302\326\304\301\311\327&\210\306\330\331\332\304\301\311\333&\210\306\334\335\336\304\301\311\337&\210\306\340\302\341\304\301\311\327&\210\306\342\302\343\311\344\304\301&\210\345\346!\204v \347\346\350\"\210\302\207" [custom-declare-group golden-ratio nil "Resize windows to golden ratio." :group windows custom-declare-variable golden-ratio-exclude-modes "A list of symbols or strings naming major modes.\nSwitching to a buffer whose major mode is a member of this list\nwill not cause the window to be resized to the golden ratio." :type (repeat (choice symbol string)) golden-ratio-exclude-buffer-names "An array of strings containing buffer names.\nSwitching to a buffer whose name is a member of this list\nwill not cause the window to be resized to the golden ratio." (repeat string) golden-ratio-inhibit-functions "List of functions to call with no arguments.\nSwitching to a buffer, if any of these functions returns non-nil\nwill not cause the window to be resized to the golden ratio." (repeat symbol) golden-ratio-extra-commands '(windmove-left windmove-right windmove-down windmove-up) "List of extra commands used to jump to other window." (repeat symbol) golden-ratio-recenter "Recenter window vertically and scroll right when non--nil." boolean golden-ratio-adjust-factor 1.0 "Adjust the width sizing by some factor. 1 is no adjustment.\n For very wide screens/frames, ie. 3400px, .4 may work well." integer golden-ratio-wide-adjust-factor 0.8 "Width adjustment factor for widescreens. Used when\n toggling between widescreen and regular modes." float golden-ratio-auto-scale "Automatic width adjustment factoring. Scales the width\n of the screens to be smaller as the frame gets bigger." golden-ratio-exclude-buffer-regexp "A list of regexp's used to match buffer names.\nSwitching to a buffer whose name matches one of these regexps\nwill prevent the window to be resized to the golden ratio." (repeat string) fboundp window-resizable-p defalias window--resizable-p] 8) | |
| 18 | (defalias 'golden-ratio-toggle-widescreen #[nil "\302U\203 \202 \302\303 \207" [golden-ratio-adjust-factor golden-ratio-wide-adjust-factor 1 golden-ratio] 2 nil nil]) | |
| 19 | #@38 set the adjustment of window widths. | |
| 20 | (defalias 'golden-ratio-adjust #[(a) "\302 \207" [a golden-ratio-adjust-factor golden-ratio] 1 (#$ . 2869) (list (read-number "Screeen width adjustment factor: " golden-ratio-adjust-factor))]) | |
| 21 | (defalias 'golden-ratio--scale-factor #[nil "\203 \302\303 \304Z\305\245\306_Z\207 \207" [golden-ratio-auto-scale golden-ratio-adjust-factor 1.0 frame-width 100.0 1000.0 1.8] 3]) | |
| 22 | (defalias 'golden-ratio--dimensions #[nil "\301\302 \245!\301\303 \245\304 _!D\207" [golden-ratio--value floor frame-height frame-width golden-ratio--scale-factor] 4]) | |
| 23 | (defalias 'golden-ratio--resize-window #[(dimensions &optional window) "\305\206 \306 !r\307\216\310 @\311\"\210\312\n@\313 Z!\312\nA@\314 Z! \315\306 \f\"\203/ \316\f!\210\315\306 \317#\205< \316 \317\"-\207" [window save-selected-window--state dimensions ncol nrow internal--before-with-selected-window selected-window #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord floor window-height window-width window-resizable-p enlarge-window t] 4]) | |
| 24 | #@62 Returns non-nil if `major-mode' should not use golden-ratio. | |
| 25 | (defalias 'golden-ratio-exclude-major-mode-p #[nil " >\206 \302! \235\207" [major-mode golden-ratio-exclude-modes symbol-name] 2 (#$ . 3970)]) | |
| 26 | #@58 Resizes current window to the golden-ratio's size specs. | |
| 27 | (defalias 'golden-ratio #[(&optional arg) "\204 ?\206\206 \306 \206\206 \307 \206\206 \310 \206\206 \311 \n\235\206\206 \203Q \312 \313 \312 \f:\203K \f@\314 \311 \"\211?\211\203K \fA\211\202. ,\206\206 \205\206 \312 \313 \312 :\203\203 @\211 \211?\211\203\203 A\211\202e ,?\205\243 \315 \312 \316 \210\317!\210\205\242 \320 \210\321 *\207" [golden-ratio-mode arg golden-ratio-exclude-buffer-names golden-ratio-exclude-buffer-regexp #1=#:--cl-var-- r window-minibuffer-p one-window-p golden-ratio-exclude-major-mode-p buffer-name nil t string-match golden-ratio--dimensions balance-windows golden-ratio--resize-window scroll-right recenter #2=#:--cl-flag-- #3=#:--cl-var-- golden-ratio-inhibit-functions #4=#:--cl-var-- fun #5=#:--cl-flag-- #6=#:--cl-var-- dims golden-ratio-recenter] 4 (#$ . 4183) "p"]) | |
| 28 | (byte-code "\300\301\302\303\304$\210\300\305\306\307\304$\207" [ad-add-advice other-window (golden-ratio-resize-window nil t (advice lambda nil (golden-ratio) nil)) after nil pop-to-buffer (golden-ratio-resize-window nil t (advice lambda nil (prog1 ad-do-it (golden-ratio)))) around] 5) | |
| 29 | (defalias 'golden-ratio--post-command-hook #[nil " >\2049 :\205> \306\307 \306 \n:\2034 \n@\211>\206% \242>\211?\211\2034 \nA\211\202 ,\205> \310\311\306\312#\207" [this-command golden-ratio-extra-commands #1=#:--cl-var-- com #2=#:--cl-flag-- #3=#:--cl-var-- nil t run-with-idle-timer 0.01 #[nil "\300 \207" [golden-ratio] 1]] 5]) | |
| 30 | (defalias 'golden-ratio--mouse-leave-buffer-hook #[nil "\300\301\302\303#\207" [run-at-time 0.1 nil #[nil "\300 \207" [golden-ratio] 1]] 4]) | |
| 31 | #@272 Non-nil if Golden-Ratio mode is enabled. | |
| 32 | See the `golden-ratio-mode' command | |
| 33 | for a description of this minor mode. | |
| 34 | Setting this variable directly does not take effect; | |
| 35 | either customize it (see the info node `Easy Customization') | |
| 36 | or call the function `golden-ratio-mode'. | |
| 37 | (custom-declare-variable 'golden-ratio-mode nil '(#$ . 5873) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'golden-ratio :type 'boolean) | |
| 38 | #@53 Enable automatic window resizing with golden ratio. | |
| 39 | (defalias 'golden-ratio-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\2037 \312\313\314\"\210\312\315\316\"\210\312\317\320\"\210\321\322!\210\321\323!\210\202N \324\313\314\"\210\324\315\316\"\210\324\317\320\"\210\325\322!\210\325\323!\210\326\327\307\302!\203Z \330\202[ \331\"\210\332\333!\203\206 \334\302!\210\304 \203s \304 \232\203\206 \335\336\337\307\302!\203\201 \340\202\202 \341 #\210))\342 \210\307\302!\207" [#1=#:last-message arg golden-ratio-mode local current-message set-default toggle default-value prefix-numeric-value 0 add-hook window-configuration-change-hook golden-ratio post-command-hook golden-ratio--post-command-hook mouse-leave-buffer-hook golden-ratio--mouse-leave-buffer-hook ad-activate other-window pop-to-buffer remove-hook ad-deactivate run-hooks golden-ratio-mode-hook golden-ratio-mode-on-hook golden-ratio-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Golden-Ratio mode %sabled%s" "en" "dis" force-mode-line-update] 4 (#$ . 6315) (list (or current-prefix-arg 'toggle))]) | |
| 40 | (defvar golden-ratio-mode-hook nil) | |
| 41 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\210\312\313!\207" [golden-ratio-mode-map golden-ratio-mode-hook variable-documentation put "Hook run after entering or leaving `golden-ratio-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode golden-ratio-mode " Golden" boundp nil provide golden-ratio] 6) | |
