[racket] doing a setup of all PLaneT development links

From: Neil Van Dyke (neil at neilvandyke.org)
Date: Fri Dec 23 17:12:40 EST 2011

If I want to do a "setup" of all current PLaneT development link 
packages, is there a better way than the following?


#lang racket/base

(require planet/planet-archives)

(define (planet-development-links-setup-args lst)
   (let loop ((lst lst))
     (if (null? lst)
         '()
         (apply (lambda (path owner pkg unknown major minor)
                  `("-P"
                    ,owner
                    ,pkg
                    ,(number->string major)
                    ,(number->string minor)
                    ,@(loop (cdr lst))))
                (car lst)))))

(define (setup-planet-development-links lst
                                         #:prefix-arguments 
(prefix-arguments '()))
   (parameterize ((current-command-line-arguments
                   (list->vector `(, at prefix-arguments
                                   
,@(planet-development-links-setup-args lst)))))
     (dynamic-require 'setup/main #f)))

(setup-planet-development-links (get-hard-linked-packages))


-- 
http://www.neilvandyke.org/



Posted on the users mailing list.