diff options
| -rw-r--r-- | local/packages/guix.scm | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/local/packages/guix.scm b/local/packages/guix.scm new file mode 100644 index 0000000..451851b --- /dev/null +++ b/local/packages/guix.scm @@ -0,0 +1,49 @@ +(define-module (local packages guix) + #:use-module (ice-9 popen) + #:use-module (ice-9 rdelim) + #:use-module (guix build utils) + #:use-module (guix gexp) + #:use-module (guix git-download) + #:use-module (guix packages) + #:use-module (guix utils) + #:use-module (gnu packages autotools) + #:use-module (gnu packages emacs) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages texinfo) + #:use-module (gnu packages xdisorg) + #:use-module (wigust packages emacs) + #:use-module (guix build-system emacs) + #:use-module (guix build-system trivial) + #:use-module ((guix licenses) #:prefix license:)) + +(define-public guix-browse + (let ((commit "83022c91f16141514282e53ec94373d9c9cc1dca")) + (package + (name "guix-browse") + (version (git-version "0.1" "1" commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "git://git.magnolia.local/guix-browse") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1rxsjalb86lkw0qimqmr3yz65pc817yma2pynd9cn1a0nni138ll")))) + (build-system trivial-build-system) + (arguments + `(#:modules + ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + (copy-recursively (assoc-ref %build-inputs "source") ".") + (let ((directory "guix/scripts")) + (install-file (string-append directory "/browse.scm") + (string-append %output "/share/guile/site/2.2/" + directory))) + #t))) + (home-page #f) + (synopsis #f) + (description #f) + (license #f)))) |