Ctrl押しながらホイール操作でテキストフォントサイズを拡大縮小 #xyzzy

ctrl-wheel-font.l

;;; Ctrl押しながらホイール操作でテキストフォントサイズを拡大縮小

(eval-when (:compile-toplevel :load-toplevel :execute)
  (require "foreign"))

(defpackage :ctrl-wheel-font
  (:use :lisp :editor))

(in-package :ctrl-wheel-font)

(c:define-dll-entry c:short get-key-state
  (c:int) "user32" "GetKeyState")

(defvar *default-mouse-wheel-handler* mouse-wheel-handler)

(defun ctrl-wheel-font-handler (window n lines)
  (if (< (get-key-state #x11) 0) ; VK_CONTROL
      (if (> n 0)
          (increase-text-font-size)
        (decrease-text-font-size))
    (funcall *default-mouse-wheel-handler* window n lines)))

(setq mouse-wheel-handler #'ctrl-wheel-font-handler)

(provide "ctrl-wheel-font")