~whereiseveryone/guixrus

5d40a832f5fd4720e3cac8b987e67723460dbd0f — Charles 1 year, 5 months ago fd71526
Add guixrus-scripts
1 files changed, 49 insertions(+), 5 deletions(-)

M guixrus/packages/guix.scm
M guixrus/packages/guix.scm => guixrus/packages/guix.scm +49 -5
@@ 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+)))