mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 13:58:15 -05:00
gnu: Add doctl.
* gnu/packages/admin.scm (doctl): New variable. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
3fb3bd3da5
commit
5bf34e36b1
1 changed files with 50 additions and 0 deletions
|
@ -54,6 +54,7 @@
|
|||
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
|
||||
;;; Copyright © 2022 Andreas Rammhold <andreas@rammhold.de>
|
||||
;;; Copyright © 2022 ( <paren@disroot.org>
|
||||
;;; Copyright © 2022 Matthew James Kraai <kraai@ftbfs.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
@ -5596,3 +5597,52 @@ (define-public rex
|
|||
several hosts in succession or in parallel. It can also be used to copy a
|
||||
file or files to several hosts.")
|
||||
(license license:gpl3+)))
|
||||
|
||||
(define-public doctl
|
||||
(package
|
||||
(name "doctl")
|
||||
(version "1.84.1")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/digitalocean/doctl")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"1jmqvz1rdqrsr4l0bv3ik1jla0xnbdvcmnw9892acvfs3wsmliyc"))))
|
||||
(build-system go-build-system)
|
||||
(arguments
|
||||
(list #:import-path "github.com/digitalocean/doctl/cmd/doctl"
|
||||
#:unpack-path "github.com/digitalocean/doctl"
|
||||
#:go go-1.19
|
||||
#:build-flags
|
||||
#~(list (string-append "-ldflags=-X github.com/digitalocean/doctl.Label=release"
|
||||
" -X github.com/digitalocean/doctl.Major="
|
||||
(car (string-split #$version #\.))
|
||||
" -X github.com/digitalocean/doctl.Minor="
|
||||
(cadr (string-split #$version #\.))
|
||||
" -X github.com/digitalocean/doctl.Patch="
|
||||
(caddr (string-split #$version #\.))))
|
||||
#:install-source? #f
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'install 'install-completions
|
||||
(lambda _
|
||||
(define (install-completion shell file)
|
||||
(let ((file (string-append #$output file)))
|
||||
(mkdir-p (dirname file))
|
||||
(with-output-to-file file
|
||||
(lambda _
|
||||
(invoke (string-append #$output "/bin/doctl")
|
||||
"completion" shell)))))
|
||||
(install-completion "bash" "/etc/bash_completion.d/doctl")
|
||||
(install-completion "fish"
|
||||
"/etc/fish/completions/doctl.fish")
|
||||
(install-completion "zsh"
|
||||
"/etc/zsh/site-functions/_doctl"))))))
|
||||
(home-page "https://github.com/digitalocean/doctl")
|
||||
(synopsis "Command line client for DigitalOcean")
|
||||
(description
|
||||
"@code{doctl} provides a unified command line interface to the DigitalOcean API.")
|
||||
(license license:asl2.0)))
|
||||
|
|
Loading…
Reference in a new issue