local: Add guix-browse.

* local/packages/guix.scm (guix-browse): New variable.

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))))