Хотелось бы иметь скрипт, который временно переключал(aka toggle) шрифт в текущем буфере на другой, не моноширинный.

set-frame-font

Как вы относитесь к easy customize?

нормально, пользуюсь иногда, правда устоявшиеся вещи обычно разношу по отдельным конфигам

set-frame-font

Уже ближе? А для буфера можно?
Не понятно еще как проверить текущий шрифт, чтобы реализовать toggle. Хочу что-то вроде такого, только для шрифта:

(if (eq (frame-parameter (next-frame) 'background-mode) 'dark)
    (light-theme)
  (dark-theme)))

А для буфера можно?

повесить проверку к хуку на смену буфера

Не понятно еще как проверить текущий шрифт, чтобы реализовать toggle.

проще всего будет make-local-variable с флагом

также можно сделать minor-mode для этого дела

ну и вообще вот так:

                        
(set-frame-font (if (eq (face-attribute 'default :family) default-font)
                    alter-font
                    default-font))

Спасибо, а я уже написал кое-чего.

(setq font-list 
      '((monospaced . "Ubuntu Mono-12")
      (nice . "Ubuntu-12")))

(setq font-selected 'monospaced)

(defun font-select (font)
  (set-frame-font (cdr (assq font font-list)))
  (setq font-selected font))

(defun font-toggle ()
  (interactive)
  (if (eq font-selected 'monospaced)
      (font-select 'nice)
    (font-select 'monospaced)))

(global-set-key (kbd "M-<f9>") 'font-toggle)

Я так понимаю, с буфером только если костыль: при переключении на другой буфер, изменять шрифт во всех; так что вариант с set-frame-font меня устроит.

(setq font-selected 'monospaced)

ну, по-хорошему это должна быть локальная буферная переменная.

с буфером только если костыль: при переключении на другой буфер, изменять шрифт во всех

да вроде нет, текущий достаточно отслеживать

на window-configuration-change-hook попробуй повеситься

буферная

Она ведь на фрейм должна распространяться, а не на 1 буфер.

Она ведь на фрейм должна распространяться, а не на 1 буфер.

тебе виднее

Версия 2.0

(setq font-list 
      '((monospaced . "Ubuntu Mono-12")
      (nice . "Ubuntu-11")))

(setq font-selected 'monospaced)
(make-variable-buffer-local 'font-selected)

(defun font-reset ()
  (set-frame-font (cdr (assq font-selected font-list))))

(defun font-select (font)
  (setq font-selected font)
  (font-reset))

(defun font-toggle ()
  (interactive)
  (if (eq font-selected 'monospaced)
      (font-select 'nice)
    (font-select 'monospaced)))

(add-hook 'window-configuration-change-hook 'font-reset)
(global-set-key (kbd "C-x o") (lambda ()
				(interactive)
				(other-window 1)
				(font-reset)))

(global-set-key (kbd "M-<f9>") 'font-toggle)

(global-set-key (kbd «C-x o») (lambda ()

(interactive) (other-window 1) (font-reset)))

для этого можно просто использовать defadvice