R.A.T.9 - binda tumscrollen till volymjustering

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; xbindkeys mouse shortcuts for Logitech 700

;; Button_______Location___________
;; 1,2,3        standard three keys
;; 4, 5         scroll: up, down
;; 6, 7         undefined
;; 8,9,10,11    thumb buttons: low back, low front, high back, high front
;; 12,13,14     top side buttons: back, middle, front
;; 15           undefined
;; 16,17        scroll: left, right

;; 9 primary shortcuts are always active
;; 20 secondary shortcuts gets activated when the modifier keys are held down

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (display-n str)
  "Display a string then newline"
  (display str)
  (newline))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (primary-8)
  "Circulate windows by Alt + Tab keyboard shortcut"
  (run-command "xte 'keydown Alt_L' 'key Tab' 'keyup Alt_L'"))

(define (primary-9) ;; Also used with modifier (secondary)
  "Browser back by Alt + Left keyboard shortcut"
  (run-command "xte 'keydown Alt_L' 'key Left' 'keyup Alt_L'"))

(define (primary-10)
  "Next chapter in mplayer by ALT_GR + 2 shortcut"
  (run-command "xte 'keydown ISO_Level3_Shift' 'key 2' 'keyup ISO_Level3_Shift'"))

(define (primary-11) ;; Also used with modifier (tertiary)
  "Enter / Return"
  (run-command "xte 'key Return'"))

(define (primary-12)
  "Lower Volume"
  (run-command "/home/emaku/voldown"))

(define (primary-13)
  "Raise Volume"
  (run-command "/home/emaku/volup"))

(define (primary-14)
  "Spawn edict search script"
  (run-command "/home/emaku/Programmering/work/glossy/editc_no_dialog.pl"))

(define (primary-16)
  "Play / Pause media player"
  (run-command "clementine --play-pause"))

(define (primary-17)
  "Next track on media player"
  (run-command "clementine --next"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (secondary-1)
  "Toggle fullscreen in mplayer by f key"
  (run-command "xte 'key f'"))

(define (secondary-2)
  "Minimize active window by Win + g keyboard shortcut"
  (run-command "xte 'keydown Super_L' 'key g' 'keyup Super_L'"))

(define (secondary-3)
  "Pause / Frame step in mplayer by . key"
  (run-command "xte 'key period'"))

(define (secondary-4)
  "Page Up"
  (run-command "xte 'key Page_Up'"))

(define (secondary-5)
  "Page Down"
  (run-command "xte 'key Page_Down'"))

(define (secondary-12) ;;UNASSIGNED
  (display-n "Code Me"))

(define (secondary-13) ;;UNASSIGNED
  (display-n "Code Me"))

(define (secondary-14) ;;UNASSIGNED
  (display-n "Code Me"))

(define (secondary-16)
  "Previous klipper history item by Ctrl + Alt + Up keyboard shortcut"
  (run-command "xte 'keydown Control_L' 'keydown Alt_L' 'key Up' 'keyup Alt_L' 'keyup Control_L'"))

(define (secondary-17)
  "Next klipper history item by Ctrl + Alt + Down keyboard shortcut"
  (run-command "xte 'keydown Control_L' 'keydown Alt_L' 'key Down' 'keyup Alt_L' 'keyup Control_L'"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (tertiary-1)
  "Mark all posts as read in Akregator by Ctrl + r keyboard shortcut"
  (run-command "xte 'keydown Control_L' 'key r' 'keyup Control_L'"))

(define (tertiary-2) ;;UNASSIGNED
  (display-n "Code Me"))

(define (tertiary-3)
  "Queue next track in Clementine by Ctrl + d keyboard shortcut"
  (run-command "xte 'keydown Control_L' 'key d' 'keyup Control_L'"))

(define (tertiary-4)
  "Up key"
  (run-command "xte 'key Up'"))

(define (tertiary-5)
  "Down key"
  (run-command "xte 'key Down'"))

(define (tertiary-12) ;;UNASSIGNED
  (display-n "Code Me"))

(define (tertiary-13) ;;UNASSIGNED
  (display-n "Code Me"))

(define (tertiary-14) ;;UNASSIGNED
  (display-n "Code Me"))

(define (tertiary-16)
  "Browser back by Alt + Left keyboard shortcut"
  (run-command "xte 'keydown Alt_L' 'key Left' 'keyup Alt_L'"))

(define (tertiary-17)
  "Browser forward by Alt + Right keyboard shortcut"
  (run-command "xte 'keydown Alt_L' 'key Right' 'keyup Alt_L'"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (primary-binding)
  "Bind all primary bindings"
  ;; 1 - 5 use the default action
  (xbindkey-function  '("b:8") primary-8)
  (xbindkey-function  '("b:9") second-binding)  
  (xbindkey-function '("b:10") primary-10)
  (xbindkey-function '("b:11") tertiary-binding)
  (xbindkey-function '("b:12") primary-12)
  (xbindkey-function '("b:13") primary-13)
  (xbindkey-function '("b:14") primary-14)
  (xbindkey-function '("b:16") primary-16)
  (xbindkey-function '("b:17") primary-17))

(define (reset-to-primary-binding)
  "reset primary binding"
  (ungrab-all-keys)
  (remove-all-keys)
  (primary-binding)
  (grab-all-keys))

(define (second-binding) ;;bindings for the 9th button
  "Bind all secondary binding"
  (let ((modkey-used #f))
    (ungrab-all-keys)
    (remove-all-keys)
    (xbindkey-function '("b:1")
                       (lambda () (secondary-1) 
                               (set! modkey-used #t)))
    (xbindkey-function '("b:2")
                       (lambda () (secondary-2)
                               (set! modkey-used #t)))
    (xbindkey-function '("b:3")
                       (lambda () (secondary-3)
                               (set! modkey-used #t)))
    (xbindkey-function '("b:4")
                       (lambda () (secondary-4)
                               (set! modkey-used #t)))
    (xbindkey-function '("b:5")
                       (lambda () (secondary-5)
                               (set! modkey-used #t)))
    ;; 8,10,11 with 9 as modify key requires rubber fingers
    (xbindkey-function '("b:12")
                       (lambda () (secondary-12)
                               (set! modkey-used #t)))
    (xbindkey-function '("b:13")
                       (lambda () (secondary-13)
                               (set! modkey-used #t)))
    (xbindkey-function '("b:14")
                       (lambda () (secondary-14)
                               (set! modkey-used #t)))
    (xbindkey-function '("b:16")
                       (lambda () (secondary-16)
                               (set! modkey-used #t)))
    (xbindkey-function '("b:17")
                       (lambda () (secondary-17)
                               (set! modkey-used #t)))
    (xbindkey-function '(release "b:9")
                       (lambda ()
                         (if (not modkey-used)
                             (primary-9))
                         (set! modkey-used #f)
                         (reset-to-primary-binding)))
    (grab-all-keys)))

(define (tertiary-binding) ;;bindings for the 11th button
  "Bind all tertiary binding"
  (let ((modkey-used #f))
    (ungrab-all-keys)
    (remove-all-keys)
    (xbindkey-function '("b:1")
                       (lambda () (tertiary-1) 
                               (set! modkey-used #t)))
    (xbindkey-function '("b:2")
                       (lambda () (tertiary-2)
                               (set! modkey-used #t)))
    (xbindkey-function '("b:3")
                       (lambda () (tertiary-3)
                               (set! modkey-used #t)))
    (xbindkey-function '("b:4")
                       (lambda () (tertiary-4)
                               (set! modkey-used #t)))
    (xbindkey-function '("b:5")
                       (lambda () (tertiary-5)
                               (set! modkey-used #t)))
    ;; 8,9,10 with 11 as modify key requires rubber fingers
    (xbindkey-function '("b:12")
                       (lambda () (tertiary-12)
                               (set! modkey-used #t)))
    (xbindkey-function '("b:13")
                       (lambda () (tertiary-13)
                               (set! modkey-used #t)))
    (xbindkey-function '("b:14")
                       (lambda () (tertiary-14)
                               (set! modkey-used #t)))
    (xbindkey-function '("b:16")
                       (lambda () (tertiary-16)
                               (set! modkey-used #t)))
    (xbindkey-function '("b:17")
                       (lambda () (tertiary-17)
                               (set! modkey-used #t)))
    (xbindkey-function '(release "b:11")
                       (lambda ()
                         (if (not modkey-used)
                             (primary-11))
                         (set! modkey-used #f)
                         (reset-to-primary-binding)))
    (grab-all-keys)))


(debug)
(grab-all-keys)
(primary-binding)