rework zoom.el and how it sizes windows for golden ratio and similar

This commit is contained in:
KemoNine 2024-07-16 14:20:02 -04:00
parent 2086d8b9d2
commit 41ecbc30d4

View file

@ -505,13 +505,30 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; zoom (replaces golden-ratio) ; zoom (replaces golden-ratio)
(require 'zoom) (require 'zoom)
(setq zoom-size '(0.618 . 0.618))
(zoom-mode t) ; sizing
(global-set-key (kbd "C-x +") 'zoom) ;(setq zoom-size '(0.618 . 0.618))
; zoom-mode can be bound to a key for toggle purposes (defun kmn-zoom-size-callback ()
(cond
((equal major-mode 'dired-mode) '(0.20 . 0.20))
((equal major-mode 'eww-mode) '(0.75 . 0.75))
((equal major-mode 'eshell-mode) '(0.75 . 0.75))
((string-equal (window-dedicated-p) "side") '(0.15 . 0.15))
(t '(0.618 . 0.618))
))
; tuning
(custom-set-variables (custom-set-variables
'(zoom-ignored-major-modes '(dired-mode eshell-mode)) '(zoom-size 'kmn-zoom-size-callback)
'(temp-buffer-resize-mode t)) '(temp-buffer-resize-mode t)
; '(zoom-ignored-major-modes '(dired-mode))
; '(zoom-ignore-predicates '((lambda ()
; (if (string-equal (window-dedicated-p) "side") 'Y' nil)
; )))
)
(global-set-key (kbd "C-x +") 'zoom)
(zoom-mode t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; popup windows ; popup windows