.emacs.d.git - Gitblit

;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
 
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
#@32 The golden ratio value itself.
(defconst golden-ratio--value 1.618 (#$ . 408))
(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)
(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])
#@38 set the adjustment of window widths.
(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))])
(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])
(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])
(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])
#@62 Returns non-nil if `major-mode' should not use golden-ratio.
(defalias 'golden-ratio-exclude-major-mode-p #[nil "    >\206\302!    \235\207" [major-mode golden-ratio-exclude-modes symbol-name] 2 (#$ . 3970)])
#@58 Resizes current window to the golden-ratio's size specs.
(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\203A\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"])
(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)
(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])
(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])
#@272 Non-nil if Golden-Ratio mode is enabled.
See the `golden-ratio-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `golden-ratio-mode'.
(custom-declare-variable 'golden-ratio-mode nil '(#$ . 5873) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'golden-ratio :type 'boolean)
#@53 Enable automatic window resizing with golden ratio.
(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))])
(defvar golden-ratio-mode-hook nil)
(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)