Emacs two finger gestures to scroll back and forth

gestures.el

(defun debounce (time fn)
  (let ((ready t))
    (lambda ()
      (interactive)
      (when ready
        (funcall fn)
        (setq ready nil)
        (run-at-time time nil (lambda () (setq ready t)))))))

(global-set-key (kbd "<triple-wheel-right>") (debounce "0.25 sec" #'previous-buffer))
(global-set-key (kbd "<triple-wheel-left>") (debounce "0.25 sec" #'next-buffer))