.guix-channel - guix - Wojtek's customized Guix

about summary refs log tree commit diff

path: root/.guix-channel

blob: b852180cf2563ec7b74b93c954de38d77237f23f (about) (plain)

;; This is a Guix channel.

(channel
  (version 0)
  (news-file "etc/news.scm")
  (keyring-reference "keyring")
  (url "https://git.savannah.gnu.org/git/guix.git")) ;the primary URL

es (lambda (package lst) (match (package-replacement package) (#f (cons package lst)) (replacement (append (list replacement package) lst)))) '() #:select? (negate package-superseded))) (define (upstream-origin source) "Return SOURCE without any patches or snippet." (origin (inherit source) (snippet #f) (patches '()))) (define (all-origins) "Return the list of origins referred to by all the packages." (let loop ((packages (all-packages)) (origins '()) (visited vlist-null)) (match packages ((head . tail) (let ((new (remove (cut vhash-assq <> visited) (package-direct-sources head)))) (loop tail (append new origins) (fold (cut vhash-consq <> #t <>) visited new)))) (() origins)))) ;; Return a manifest containing all the origins. (manifest (map (lambda (origin) (manifest-entry (name (or (origin-actual-file-name origin) "origin")) (version "0") (item (upstream-origin origin)))) (all-origins)))