(define (translate-profile options)
  (let* ((pkg (cond-plistq 'translation options "alterator-install2"))
         (lang (cond-plistq 'language options))
         (_ (make-translator pkg lang)))
    (lambda(port)
      (let ((data (read port)))
        (and (pair? data)
             (map (lambda(item)
                    (cons* (car item)
                           'summary (_ (cond-plistq 'summary (cdr item)))
                           (cdr item)))
                  data))))))

(define (read-profile name options)
  (catch #t
    (thunk
     (call-with-input-file (string-append "/etc/alterator/apt.d/" name) (translate-profile options)))
      (lambda args '())))

(object #f ((list self objects options) (read-profile (car objects) options)))
