Размер шрифта Emacs с помощью клавиши Ctrl и мыши

notepad ++ позволяет увеличить размер шрифта, когда я держу клавишу Ctrl и поворачиваю среднюю кнопку прокрутки мыши для пересылки.

Таким же образом, когда я держу Ctrl и поворачиваю кнопку средней прокрутки мыши назад, размер элемента уменьшается.

Как я могу получить то же самое с Emacs?

Ответ 1

код для ответ 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))))

Ответ 2

с emacs23 вы можете добавить следующие строки в ваш .emacs.el:

(global-set-key (kbd "<C-mouse-4>") 'text-scale-decrease)
(global-set-key (kbd "<C-mouse-5>") 'text-scale-increase)

Ответ 3

Теоретически я могу дать вам ответ на этот вопрос, но кто-то более опытный, чем мне, придется писать lisp. Я просто немного занят, чтобы понять это для себя.

Если никто не ответит завтра, я ударил книги и выясню это.

Что нужно сделать: Напишите функцию (font-big), которая делает это:

font-default-size = font-default-size + 1`
Затем переоцените все открытые буферы.

Затем привяжите функцию к ключу (карта ключа определения [C-wheel-up] "font-large)

Затем сделайте то же самое для (font-small).

Надеюсь, я получу хотя бы частичные кредиты для этой идеи:)

Ответ 4

Попробуйте следующее:

(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)))

Ответ 5

Масштаб - это то, что вы хотите. Я делаю то, что вы все время описываете. После загрузки zoom-frm.el добавьте некоторые привязки, такие как:

    (global-set-key [S-mouse-1]   'zoom-in)
    (global-set-key [C-S-mouse-1] 'zoom-out)
    (global-set-key (vector (list 'control mouse-wheel-down-event)) 'zoom-in)
    (global-set-key (vector (list 'control mouse-wheel-up-event))   'zoom-out)

Смотрите также: http://www.emacswiki.org/emacs/SetFonts#ChangingFontSize