;; List of modifier:
;;   Release, Control, Shift, Mod1 (Alt), Mod2 (NumLock),
;;   Mod3 (CapsLock), Mod4, Mod5 (Scroll).

(define (first-binding)
  "First binding"
  (xbindkey '(Mod4 r) "gmrun")

; scr, area-scr, delay-scr
  (xbindkey '(Print) "scrot -q 85 '%Y-%m-%d_%H:%M:%S.png' -e 'mv $f ~/Pictures/screenshot'")
  (xbindkey '(Control Print) "scrot -s -q 85 '%Y-%m-%d_%H:%M:%S.png' -e 'mv $f ~/Pictures/screenshot'")
  (xbindkey '(Mod1 Print) "scrot -d 5 -q 85 '%Y-%m-%d_%H:%M:%S.png' -e 'mv $f ~/Pictures/screenshot'")

  (xbindkey '(XF86AudioMute) "amixer -q sset Headphone toggle")
  (xbindkey '(Mod4 equal) "amixer -q sset Headphone 2+ unmute")
  (xbindkey '(Mod4 minus) "amixer -q sset Headphone 2- unmute")

  (xbindkey-function '(Mod4 x) second-binding))

; win+x
(define (reset-to-first-binding)
  "reset to first binding"
  (ungrab-all-keys)
  (remove-all-keys)
  (first-binding)
  (grab-all-keys))
(define (second-binding)
 "Second binding"
 (ungrab-all-keys)
 (remove-all-keys)
; chains
 (xbindkey-function 'c third-binding) ; ch, cl
 (xbindkey-function 'f third-binding) ; fm, fx
; launchers
 (xbindkey-function 'm
     (lambda ()
         (run-command "gnome-terminal --window-with-profile=Mcabber")
         (reset-to-first-binding)))
 (xbindkey-function 'g
     (lambda ()
         (run-command "gcalctool")
         (reset-to-first-binding)))

 (xbindkey-function '(control g) reset-to-first-binding)
 (grab-all-keys))

; chains от win+x
(define (reset-to-second-binding)
  "reset to second binding"
  (ungrab-all-keys)
  (remove-all-keys)
  (second-binding)
  (grab-all-keys))
(define (third-binding)
 "Second binding"
 (ungrab-all-keys)
 (remove-all-keys)
; C
(xbindkey-function 'h
(lambda ()
         (run-command "chromium-browser")
(reset-to-first-binding)))
(xbindkey-function 'l
(lambda ()
         (run-command "clementine")
(reset-to-first-binding)))
; F
(xbindkey-function 'm
(lambda ()
         (run-command "pcmanfm")
(reset-to-first-binding)))
(xbindkey-function 'x
(lambda ()
         (run-command "firefox")
(reset-to-first-binding)))

 (xbindkey-function '(control g) reset-to-second-binding)
 (grab-all-keys))

(first-binding)