(use-modules (gschem selection))

; Default offset to move
(define offset 100)

; Get moving vector
(define (move-selection direction)
  (apply translate-objects!
    (case direction
      ((left ) (cons (- offset) 0))
      ((right) (cons (+ offset) 0))
      ((down ) (cons 0 (- offset)))
      ((up   ) (cons 0 (+ offset)))
      (else #f))
    (page-selection (active-page))))

; Define actions
(define (&move-selection-left ) (move-selection 'left ))
(define (&move-selection-right) (move-selection 'right))
(define (&move-selection-down ) (move-selection 'down ))
(define (&move-selection-up   ) (move-selection 'up   ))

; Define shortcuts
(global-set-key "<Shift>Left"  '&move-selection-left)
(global-set-key "<Shift>Right" '&move-selection-right)
(global-set-key "<Shift>Up"    '&move-selection-up)
(global-set-key "<Shift>Down"  '&move-selection-down)