From b5a4de0b0bd8caaa3b5f5050296c2b9c73789cd5 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Wed, 18 Jul 2018 23:04:02 +0300 Subject: Factorize defining system types * build-farm-url.el (build-farm-url-package-manager): New function. * build-farm.el (build-farm-system-types): Use it. --- build-farm-url.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'build-farm-url.el') diff --git a/build-farm-url.el b/build-farm-url.el index 1c566df..6a5e62e 100644 --- a/build-farm-url.el +++ b/build-farm-url.el @@ -77,6 +77,18 @@ Arbitrarily choosing `%S' type for this URL." url type) type))) +(defun build-farm-url-package-manager (&optional url) + "Return a package manager for the build farm URL. +The returned value is either `nix' or `guix' symbols or nil, if +the package manager cannot be determined. +If URL is nil, use `build-farm-url'." + (or url (setq url build-farm-url)) + (cond ((or (string-match-p (regexp-opt '("gnu" "guix")) url) + (eq 'cuirass (build-farm-url-type url))) + 'guix) + ((string-match-p "nix" url) + 'nix))) + (defun build-farm-url (&optional root-url &rest url-parts) "Return build farm ROOT-URL with URL-PARTS concatenated to it. If ROOT-URL is nil, `build-farm-url' variable is used." -- cgit v1.2.3