local: Add wrapper-xclip.

* local/packages/xdisorg.scm: New file.

1 files changed, 53 insertions, 0 deletions

diff --git a/local/packages/xdisorg.scm b/local/packages/xdisorg.scm
new file mode 100644
index 0000000..e13be08
--- /dev/null
+++ b/local/packages/xdisorg.scm
@@ -0,0 +1,53 @@
+(define-module (local packages xdisorg)
+  #: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 (gnu packages bash)
+  #:use-module (gnu packages xdisorg)
+  #:use-module (guix build-system trivial)
+  #:use-module ((guix licenses) #:prefix license:))
+
+(define-public wrapper-xclip
+  (let ((commit "38c9971b8ea380d8eac6543a8ca5c487dcc413ee"))
+    (package
+      (name "wrapper-xclip")
+      (version (git-version "0.1" "1" commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "git://git.magnolia.local/wrapper-xclip")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32
+           "1yw6m47kajbzjlyspsihr6cydp3l9wj020gndkd2da9xb03c6vy8"))))
+      (build-system trivial-build-system)
+      (arguments
+       '(#:modules
+         ((guix build utils))
+         #:builder
+         (begin
+           (use-modules (guix build utils))
+           (setenv "PATH"
+                   (string-append
+                    (assoc-ref %build-inputs "bash") "/bin" ":"
+                    (assoc-ref %build-inputs "xclip") "/bin"))
+           (copy-recursively (assoc-ref %build-inputs "source") ".")
+           (for-each (lambda (file)
+                       (substitute* file
+                         (("/bin/sh") (which "bash"))
+                         (("@XCLIP_BIN@") (which "xclip")))
+                       (install-file file
+                                     (string-append %output "/bin")))
+                     '("xcopy" "xpaste")))))
+      (inputs
+       `(("bash" ,bash)
+         ("xclip" ,xclip)))
+      (synopsis "Wrapper for xclip")
+      (description "This package provides wrapper for @code{xclip}.")
+      (home-page #f)
+      (license license:gpl3+))))