Initial commit.

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

1 files changed, 47 insertions, 0 deletions

diff --git a/local/packages/emacs.scm b/local/packages/emacs.scm
new file mode 100644
index 0000000..4f16366
--- /dev/null
+++ b/local/packages/emacs.scm
@@ -0,0 +1,47 @@
+(define-module (local packages emacs)
+  #: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 emacs)
+  #:use-module (gnu packages xdisorg)
+  #:use-module (guix build-system emacs)
+  #:use-module ((guix licenses) #:prefix license:))
+
+(define-public emacs-anywhere-mode
+  (let ((commit "b11d305325ea6c366d56b0928d84b96fca6d1c26"))
+    (package
+      (name "emacs-anywhere-mode")
+      (version (git-version "0.1" "1" commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "git://git.magnolia.local/emacs-anywhere-mode")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32
+           "0fpv1vys6syyxrh4kz0sqynh46cyf375qw1k5k5j5nr29shi9si0"))))
+      (build-system emacs-build-system)
+      (arguments
+       '(#:phases
+         (modify-phases %standard-phases
+           (add-after 'unpack 'patch-paths
+             (lambda _
+               (substitute* "emacs-anywhere"
+                 (("@XDOTOOL_BIN@") (which "xdotool")))))
+           (add-before 'install 'install-shell-script
+             (lambda* (#:key outputs #:allow-other-keys)
+               (install-file "emacs-anywhere"
+                             (string-append (assoc-ref outputs "out")
+                                            "/bin")))))))
+      (inputs
+       `(("xdotool" ,xdotool)))
+      (synopsis "Emacs Anywhere mode")
+      (description "This package provides an Emacs minor-mode for
+capturing user input and paste it with @kbd{C-v} after exit.")
+      (home-page #f)
+      (license license:gpl3+))))