A very simple "guix install" implementation, by Mark H. Weaver. "Just stick it in $DIR/guix/scripts/install.scm, where $DIR is in your guile load path"

install.scm

(define-module (guix scripts install)
  #:use-module (guix scripts package)
  #:use-module (srfi srfi-1)
  #:export (guix-install))

(define (guix-install . args)
  (apply guix-package
         (fold-right (lambda (arg seed)
                       (if (string-prefix? "-" arg)
                           (cons arg seed)
                           (cons* "-i" arg seed)))
                     '()
                     args)))