(use-modules (gschem selection)) (define (replace-selected-attribs-prefix! prefix) (for-each (lambda (object) (and (attribute? object) (set-attrib-value! object (string-append prefix (string-copy (attrib-value object) 1))))) (page-selection (active-page))))