From 583c6b16b08c93a991bfc0ece7002a147c9264db Mon Sep 17 00:00:00 2001
From: ng0 <address@hidden>
Date: Wed, 26 Apr 2017 11:10:01 +0000
Subject: [PATCH] gnu: Add fish-guix.

* gnu/packages/shells.scm (fish-guix): New variable.
---
 gnu/packages/shells.scm | 33 ++++++++++++++++++++++++++++++++-
 1 file changed, 32 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/shells.scm b/gnu/packages/shells.scm
index 012f272ca..1f749f5ce 100644
--- a/gnu/packages/shells.scm
+++ b/gnu/packages/shells.scm
@@ -6,7 +6,7 @@
 ;;; Copyright © 2016 Tobias Geerinckx-Rice <address@hidden>
 ;;; Copyright © 2016 Stefan Reichör <address@hidden>
 ;;; Copyright © 2017 Ricardo Wurmus <address@hidden>
-;;; Copyright © 2017 ng0 <address@hidden>
+;;; Copyright © 2017 ng0 <address@hidden>
 ;;; Copyright © 2017 Leo Famulari <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -147,6 +147,37 @@ highlighting.")
     (home-page "https://fishshell.com/")
     (license gpl2)))
 
+(define-public fish-guix
+  (package
+    (name "fish-guix")
+    (version "0.1.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://dist.pragmatique.xyz/fish-guix/"
+                           name "-" version ".tar.xz"))
+       (sha256
+        (base32
+         "1nyylj8yq0c9wx4q7ak4ygygg5hsrqlgscbw9iip2mmyfiz0v8d7"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f ; No checks.
+       #:phases
+       (modify-phases %standard-phases
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (func (string-append out "/share/fish/functions")))
+               (install-file "guix.fish" func))
+             #t))
+         (delete 'build)
+         (delete 'configure))))
+    (home-page "https://pragmatique.noblogs.org/software/fish-guix/downloads/")
+    (synopsis "Fish completions for Guix")
+    (description
+     "Fish-guix provides completions for Guix for users of the fish shell.")
+    (license public-domain)))
+
 (define-public rc
   (package
     (name "rc")
-- 
2.12.2