From 551a544eab8f4295581ace79a5c8b5b2a9c3b581 Mon Sep 17 00:00:00 2001
From: ng0 <address@hidden>
Date: Mon, 8 May 2017 18:08:24 +0000
Subject: [PATCH] gnu: Add wily.

* gnu/packages/text-editors.scm (wily): New variable.
---
 gnu/packages/text-editors.scm | 50 ++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 49 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/text-editors.scm b/gnu/packages/text-editors.scm
index 98df48119..b87114d37 100644
--- a/gnu/packages/text-editors.scm
+++ b/gnu/packages/text-editors.scm
@@ -39,7 +39,8 @@
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages ruby)
   #:use-module (gnu packages terminals)
-  #:use-module (gnu packages xml))
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages xorg))
 
 (define-public vis
   (package
@@ -227,3 +228,50 @@ Wordstar-, EMACS-, Pico, Nedit or vi-like key bindings.  e3 can be used on
 16, 32, and 64-bit CPUs.")
     (supported-systems '("x86_64-linux" "i686-linux"))
     (license license:gpl2+)))
+
+(define-public wily
+  (package
+    (name "wily")
+    (version "0.13.42")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://sourceforge.net/projects/wily/files/"
+                           "baseline/" version "/wily-" version ".tar.gz"))
+       (sha256
+        (base32
+         "1jy4czk39sh365b0mjpj4d5wmymj98x163vmwzyx3j183jqrhm2z"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:tests? #f ;No tests.
+       #:phases
+       (modify-phases %standard-phases
+         (replace 'configure
+           (lambda* (#:key outputs #:allow-other-keys)
+             ;; The included configure script does not
+             ;; understand flags such as '--host'
+             (let ((out (assoc-ref outputs "out")))
+               ;; 'configure' does not understand '--host'.
+               ,@(if (%current-target-system)
+                     `((setenv "CHOST" ,(%current-target-system)))
+                     '())
+               (setenv "CONFIG_SHELL" (which "bash"))
+               (setenv "SHELL" (which "bash"))
+               (zero?
+                (system* "./configure"
+                         (string-append "--prefix=" out))))))
+         (add-before 'install 'mkdir
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (mkdir-p (string-append out "/bin"))))))))
+    (inputs
+     `(("libx11" ,libx11)
+       ("libxt" ,libxt)))
+    (home-page "http://www.cse.yorku.ca/~oz/wily/")
+    (synopsis "Implementation of ACME")
+    (description
+     "Wily is a mouse-oriented, text-based environment for programmers.
+It lets you interact with files, directories and programs through mouse and keyboard
+operations on plain text.  Most of Wily's design (but none of its code) comes
+from Rob Pike's acme.")
+    (license license:gpl3+)))
-- 
2.13.0