(define home (getenv "HOME"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Shift selection to pasted objects:
;

( use-modules ( gschem selection ) )
( use-modules ( gschem window    ) )
( use-modules ( gschem hook      ) )

( define ( on_paste objs )

    ( for-each
    ( lambda( obj )
        ( deselect-object! obj )
    )
    ( page-selection (active-page) )
    )

    ( for-each
    ( lambda( obj )
        ( select-object! obj )
    )
    objs
    )

) ; on_paste()

( add-hook! paste-objects-hook on_paste )

(primitive-load (build-path home "git/openhw/config/colour_scheme_dark"))