fix: zoom cursor visibility + translate all comments/messages to English
This commit is contained in:
17
config.el
17
config.el
@@ -37,10 +37,10 @@
|
|||||||
;; (NOT "Follow keyboard focus" — that causes viewport jumping)
|
;; (NOT "Follow keyboard focus" — that causes viewport jumping)
|
||||||
(use-package! centered-cursor-mode
|
(use-package! centered-cursor-mode
|
||||||
:config
|
:config
|
||||||
(setq ccm-vpos-init 0.5 ; cursor uprostřed obrazovky
|
(setq ccm-vpos-init 0.5 ; cursor centered on screen
|
||||||
ccm-step-size 2 ; plynulejší scroll
|
ccm-step-size 2 ; smoother scrolling
|
||||||
ccm-recenter-at-end-of-file t)
|
ccm-recenter-at-end-of-file t)
|
||||||
;; Vypnout v terminálu a speciálních módech
|
;; Disable in terminal and special modes
|
||||||
(define-globalized-minor-mode my/global-ccm
|
(define-globalized-minor-mode my/global-ccm
|
||||||
centered-cursor-mode
|
centered-cursor-mode
|
||||||
(lambda ()
|
(lambda ()
|
||||||
@@ -768,7 +768,11 @@ Keeps the status bar and tab bar fully visible at any zoom level.")
|
|||||||
(when (fboundp 'corfu--popup-hide)
|
(when (fboundp 'corfu--popup-hide)
|
||||||
(ignore-errors (corfu--popup-hide)))
|
(ignore-errors (corfu--popup-hide)))
|
||||||
(message "Zoom %+d ×%.2f ≈%dpt"
|
(message "Zoom %+d ×%.2f ≈%dpt"
|
||||||
steps (expt 1.5 steps) (/ new-h 10))))
|
steps (expt 1.5 steps) (/ new-h 10))
|
||||||
|
;; Ensure cursor stays visible after zoom change.
|
||||||
|
(when (and (not (minibufferp)) (window-live-p (selected-window)))
|
||||||
|
(scroll-right (window-hscroll)) ; reset horizontal scroll
|
||||||
|
(recenter nil))))
|
||||||
|
|
||||||
;; Capture base height once Doom finishes font setup.
|
;; Capture base height once Doom finishes font setup.
|
||||||
(add-hook 'doom-after-init-hook
|
(add-hook 'doom-after-init-hook
|
||||||
@@ -813,6 +817,11 @@ Keeps the status bar and tab bar fully visible at any zoom level.")
|
|||||||
(setq my/zoom-steps my/zoom-saved-steps
|
(setq my/zoom-steps my/zoom-saved-steps
|
||||||
my/zoom-saved-steps nil)))
|
my/zoom-saved-steps nil)))
|
||||||
|
|
||||||
|
;; Keep cursor visible while scrolling at any zoom level.
|
||||||
|
(setq hscroll-margin 3
|
||||||
|
hscroll-step 1
|
||||||
|
scroll-conservatively 101
|
||||||
|
scroll-margin 2)
|
||||||
|
|
||||||
|
|
||||||
;;; ============================================================
|
;;; ============================================================
|
||||||
|
|||||||
Reference in New Issue
Block a user