* [bug#34295] [PATCH] pull: Specify channels via command-line.
@ 2019-02-03 11:37 Oleg Pykhalov
2019-02-16 16:10 ` Ludovic Courtès
2022-02-01 14:46 ` Ricardo Wurmus
0 siblings, 2 replies; 4+ messages in thread
From: Oleg Pykhalov @ 2019-02-03 11:37 UTC (permalink / raw)
To: 34295
* guix/scripts/pull.scm (show-help, %options): Add 'channel'.
(channel-list): Use this.
* doc/guix.texi (Invoking guix pull): Document this.
---
doc/guix.texi | 10 +++++++++-
guix/scripts/pull.scm | 45 ++++++++++++++++++++++++++++++++++++++++++-
2 files changed, 53 insertions(+), 2 deletions(-)
diff --git a/doc/guix.texi b/doc/guix.texi
index 868f1959e8..ee854072e1 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -50,7 +50,7 @@ Copyright @copyright{} 2017 Andy Wingo@*
Copyright @copyright{} 2017, 2018 Arun Isaac@*
Copyright @copyright{} 2017 nee@*
Copyright @copyright{} 2018 Rutger Helling@*
-Copyright @copyright{} 2018 Oleg Pykhalov@*
+Copyright @copyright{} 2018, 2019 Oleg Pykhalov@*
Copyright @copyright{} 2018 Mike Gerwitz@*
Copyright @copyright{} 2018 Pierre-Antoine Rouby@*
Copyright @copyright{} 2018 Gábor Boskovits@*
@@ -3564,6 +3564,14 @@ but it supports the following options:
Download code from the specified @var{url}, at the given @var{commit} (a valid
Git commit ID represented as a hexadecimal string), or @var{branch}.
+@item --channel=@var{name},@var{url}[,@var{branch}][,@var{commit}]
+Specify channels via command-line arguments ignoring @file{channels.scm}.
+
+@example
+guix pull --channel=guix,https://git.savannah.gnu.org/git/guix.git,branch=staging \
+ --channel=my-personal-packages,https://example.org/personal-packages.git
+@end example
+
@cindex @file{channels.scm}, configuration file
@cindex configuration file for channels
These options are provided for convenience, but you can also specify your
diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm
index 683ab3f059..36c4967596 100644
--- a/guix/scripts/pull.scm
+++ b/guix/scripts/pull.scm
@@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
+;;; Copyright © 2019 Oleg Pykhalov <go.wigust@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -76,6 +77,9 @@
Download and deploy the latest version of Guix.\n"))
(display (G_ "
--verbose produce verbose output"))
+ (display (G_ "
+ --channel=CHANNEL,URL[,branch][,commit]
+ deploy the CHANNEL at URL"))
(display (G_ "
-C, --channels=FILE deploy the channels defined in FILE"))
(display (G_ "
@@ -128,6 +132,20 @@ Download and deploy the latest version of Guix.\n"))
(option '("branch") #t #f
(lambda (opt name arg result)
(alist-cons 'ref `(branch . ,arg) result)))
+ (option '("channel") #t #f
+ (lambda (opt name arg result . rest)
+ (let ((list->alist (match-lambda
+ ((key value)
+ (cons key value)))))
+ (alist-cons 'channel
+ (match (map (cut string-split <> #\=)
+ (string-split arg #\,))
+ (((name) (url) args ...)
+ (map list->alist
+ `(("name" ,name)
+ ("url" ,url)
+ ,@args))))
+ result))))
(option '(#\p "profile") #t #f
(lambda (opt name arg result)
(alist-cons 'profile (canonicalize-profile arg)
@@ -477,8 +495,33 @@ transformations specified in OPTS (resulting from '--url', '--commit', or
result
(leave (G_ "'~a' did not return a list of channels~%") file))))
+ (define alist->channel
+ (match-lambda
+ ((_ meta ...)
+ (channel
+ (name (string->symbol (assoc-ref meta "name")))
+ (url (assoc-ref meta "url"))
+ (branch (or (assoc-ref meta "branch") "master"))
+ (commit (assoc-ref meta "commit"))))))
+
+ (define (guix-channel? channel)
+ (case (channel-name channel)
+ ((guix) #t)
+ (else #f)))
+
+ (define channel-options
+ (filter (match-lambda
+ (('channel args ...) #t)
+ (_ #f))
+ opts))
+
(define channels
- (cond (file
+ (cond (channel-options
+ (let ((channels (map alist->channel channel-options)))
+ (if (null? (filter guix-channel? channels))
+ (append channels %default-channels)
+ channels)))
+ (file
(load-channels file))
((file-exists? default-file)
(load-channels default-file))
--
2.20.1
^ permalink raw reply related [flat|nested] 4+ messages in thread
* [bug#34295] [PATCH] pull: Specify channels via command-line.
2019-02-03 11:37 [bug#34295] [PATCH] pull: Specify channels via command-line Oleg Pykhalov
@ 2019-02-16 16:10 ` Ludovic Courtès
2022-02-01 14:46 ` Ricardo Wurmus
1 sibling, 0 replies; 4+ messages in thread
From: Ludovic Courtès @ 2019-02-16 16:10 UTC (permalink / raw)
To: Oleg Pykhalov; +Cc: 34295
Hi Oleg,
Oleg Pykhalov <go.wigust@gmail.com> skribis:
> * guix/scripts/pull.scm (show-help, %options): Add 'channel'.
> (channel-list): Use this.
> * doc/guix.texi (Invoking guix pull): Document this.
Why not, but I wonder if we really want to do this much on the command
line? Do you personally find it more convenient than having a
channels.scm file?
What do people think?
> + (cond (channel-options
> + (let ((channels (map alist->channel channel-options)))
> + (if (null? (filter guix-channel? channels))
> + (append channels %default-channels)
> + channels)))
(null? (filter …)) → (not (any guix-channel? channels))
But note that %DEFAULT-CHANNELS possibly contains more than the 'guix
channel so this test is not quite accurate.
Thanks,
Ludo’.
^ permalink raw reply [flat|nested] 4+ messages in thread
* [bug#34295] [PATCH] pull: Specify channels via command-line.
2019-02-03 11:37 [bug#34295] [PATCH] pull: Specify channels via command-line Oleg Pykhalov
2019-02-16 16:10 ` Ludovic Courtès
@ 2022-02-01 14:46 ` Ricardo Wurmus
2022-02-01 16:27 ` bug#34295: " Oleg Pykhalov
1 sibling, 1 reply; 4+ messages in thread
From: Ricardo Wurmus @ 2022-02-01 14:46 UTC (permalink / raw)
To: 34295; +Cc: Oleg Pykhalov, Ludovic Courtès
Hi Oleg,
are you still interested in this patch?
I think it’s going just a little beyond what a command line option
should do, especially considering that with Bash an ad-hoc file handle
could be passed to the channels option.
--
Ricardo
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2022-02-01 18:06 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2019-02-03 11:37 [bug#34295] [PATCH] pull: Specify channels via command-line Oleg Pykhalov
2019-02-16 16:10 ` Ludovic Courtès
2022-02-01 14:46 ` Ricardo Wurmus
2022-02-01 16:27 ` bug#34295: " Oleg Pykhalov
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).