Калибровка шрифта Emacs с клавишей Ctrl и прокруткой мыши
блокнот ++ позволяет мне увеличивать размер шрифта, когда я держу клавишу Ctrl и поворачиваю кнопку прокрутки середины мыши для передачи.
Таким же образом, когда я держу Ctrl и поворачиваю кнопку прокрутки середины мыши назад, любящий размер уменьшает.
Как я могу получить то же с Emacs?
4 ответа
код для Ответ AlexCombas :
(defun font-big () (interactive) (set-face-attribute 'default nil :height (+ (face-attribute 'default :height) 10))) (defun font-small () (interactive) (set-face-attribute 'default nil :height (- (face-attribute 'default :height) 10))) (global-set-key (kbd "<C-wheel-down>") 'font-small) (global-set-key (kbd "<C-wheel-up>") 'font-big)
Редактировать: для минимального и максимального использования
(defun font-big () (interactive) (set-face-attribute 'default nil :height (min 720 (+ (face-attribute 'default :height) 10)))) (defun font-small () (interactive) (set-face-attribute 'default nil :height (max 80 (- (face-attribute 'default :height) 10))))
с Emacs23 вы можете добавить следующие строки к вашему .emacs.el:
(global-set-key (kbd "<C-mouse-4>") 'text-scale-decrease)
(global-set-key (kbd "<C-mouse-5>") 'text-scale-increase)
Теоретически я могу дать вам ответ на это, но кто-то более опытный, чем мне придется написать Лискус, я просто немного занятым банкоматом, чтобы понять это для меня.
Если завтра никто не отвечает завтра, я ударю книги и выяснишься.
Что нужно сделать: Напишите функцию (Bont-Big), которая делает это:
Shont-default-size = Smont-size = 1`
затем повторно оценивает все открытые буферы.
Затем связывайте функцию к ключу (определяют карту ключей [C-CLOD-UP] 'font-Big)
, затем сделайте то же самое для (шрифт-маленький).
Надеюсь, я получаю по крайней мере частичные кредиты для этой идеи :)
Попробуйте это:
(global-set-key (kbd "<C-mouse-4>") (lambda () (interactive) (text-scale-decrease 1)))
(global-set-key (kbd "<C-mouse-5>") (lambda () (interactive) (text-scale-increase 1)))