majordomo.scm 1.1 KB

1234567891011121314151617181920212223242526272829303132333435
  1. (use-modules (guix channels)
  2. (guix inferior)
  3. (guix profiles)
  4. (guix store)
  5. (srfi srfi-1))
  6. (define channels
  7. (list (channel
  8. (name 'guix)
  9. (url "https://cgit.wugi.info/git/guix/guix")
  10. (branch "master")
  11. (commit
  12. "1f734a6f0a7db5b0e12091a0c869c5c4810ac80e")
  13. (introduction
  14. (make-channel-introduction
  15. "9edb3f66fd807b096b48283debdcddccfea34bad"
  16. (openpgp-fingerprint
  17. "BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA"))))
  18. (channel
  19. (name 'guix-majordomo)
  20. (url "https://github.com/6d6a/package-management-guix-majordomo.git"))))
  21. (define cached
  22. (with-store store
  23. (cached-channel-instance store
  24. channels
  25. #:authenticate? #t
  26. #:cache-directory (%inferior-cache-directory)
  27. #:ttl (* 3600 24 30))))
  28. (define inferior
  29. (open-inferior cached))
  30. (packages->manifest (list (first (lookup-inferior-packages inferior "guile-ihs"))))