;;;; -*- coding: utf-8; mode: lisp -*-
;;
;; 2button.mprc -- setting for 2-button device
;;
;; include "2button.mprc" after "default.mprc"
;;

(global
 (initial-mode . normal-2btn)
 )

(normal-mode
 ;; normal mode (for 2-button device)
 ;;   button 1...5 => each button click
 ;;   button 1+2   => change to scroll mode (for 2-button device)
 ;;   wheel        => post wheel message to under pointer window
 (normal-2btn
  (button-u-1+2 . (scroll-mode scroll-2btn))
  (wheel        . (post-wheel-message))
  )
 )

(scroll-mode
 ;; scroll mode (both horizontal and vertical, for 2-button device)
 ;;   button 1     => return to normal mode
 ;;   button 1+2   => increase scroll speed
 ;;   button 2     => reduce scroll speed
 ;;   wheel        => post wheel message to under pointer window
 (scroll-2btn
  (scroll-ratio 1.0 1.0)
  (button-u-1   . (normal-mode))
  (button-u-1+2 . (mul-scroll-ratio 2.0 2.0))
  (button-u-2   . (mul-scroll-ratio 0.5 0.5))
  (wheel        . (post-wheel-message))
  )
 )