From 5d40a832f5fd4720e3cac8b987e67723460dbd0f Mon Sep 17 00:00:00 2001
From: Charles <charles.b.jackson@protonmail.com>
Date: Fri, 20 Jan 2023 22:22:11 -0600
Subject: [PATCH] Add guixrus-scripts

---
 guixrus/packages/guix.scm | 54 +++++++++++++++++++++++++++++++++++----
 1 file changed, 49 insertions(+), 5 deletions(-)

diff --git a/guixrus/packages/guix.scm b/guixrus/packages/guix.scm
index cb265bc..e379d61 100644
--- a/guixrus/packages/guix.scm
+++ b/guixrus/packages/guix.scm
@@ -20,14 +20,15 @@
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (guixrus packages guix)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages guile)
+  #:use-module (gnu packages package-management)
+  #:use-module (gnu packages)
   #:use-module (guix build-system guile)
   #:use-module (guix git-download)
-  #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
-  #:use-module (guix utils)
-  #:use-module (gnu packages)
-  #:use-module (gnu packages guile)
-  #:use-module (gnu packages package-management))
+  #:use-module (guix search-paths)
+  #:use-module (guix utils))
 
 (define-public guix-easy
   (let ((commit "8c3f052a7090612b72d697467f5b2847cf23ed09")
@@ -75,3 +76,46 @@
       (description "@code{doug} provides utilities to serialize a Guix channel.")
       (license license:gpl3+))))
 
+(define-public guixrus-scripts
+  (package
+    (name "guixrus-scripts")
+    (version "0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri
+        (git-reference
+         (url "https://git.sr.ht/~whereiseveryone/guixrus-scripts")
+         (commit (string-append "v" version))))
+       (sha256
+        (base32
+         "1gdryd37cpq7697jysnlf1h6fkc5islbfc8vphqrff7sb75dq84l"))))
+    (build-system guile-build-system)
+    (arguments
+     '(#:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'move-to-extension-directory
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (extensions (list "rus-environment.scm"
+                                     "rus-provides.scm"
+                                     "rus-shell.scm")))
+               (map (lambda (extension)
+                      (let ((target (string-append
+                                     out
+                                     "/share/guix/extensions/"
+                                     extension)))
+                        (mkdir-p (dirname target))
+                        (copy-file (car (find-files out extension))
+                                   target)))
+                    extensions)))))))
+    (native-inputs (list (lookup-package-input guix "guile") guix))
+    (native-search-paths
+     (list (search-path-specification
+            (variable "GUILE_LOAD_PATH")
+            (files '("share/guile/site/3.0")))))
+    (synopsis "Testing ground for guix command line extensions.")
+    (description "Extensions for guix command line that should be upstreamed
+once proven they are good.")
+    (home-page "https://git.sr.ht/~whereiseveryone/guixrus-scripts")
+    (license license:gpl3+)))
-- 
2.38.5