unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
From: "Feng Shu" <tumashu@163.com>, Arun Isaac <arunisaac@systemreboot.net>
To: 26454@debbugs.gnu.org
Subject: bug#26454: [PATCH 2/2] gnu: add emacs-exwm
Date: Sun, 16 Apr 2017 16:04:59 +0800	[thread overview]
Message-ID: <87mvbg7p78.fsf@163.com> (raw)
In-Reply-To: <babd2486.AEUAJCbLnToAAAAAAAAAAAO0QTIAAAACwQwAAAAAAAW9WABY8xig@mailjet.com> (Arun Isaac's message of "Sun, 16 Apr 2017 12:39:07 +0530")

[-- Attachment #1: Type: text/plain, Size: 57 bytes --]

Arun Isaac <arunisaac@systemreboot.net> writes:

Fixed:


[-- Attachment #2: 0001-gnu-add-emacs-xelb.patch --]
[-- Type: text/x-patch, Size: 3229 bytes --]

From 7b0b3661de614a8d39ee904d08df5eefde5a14ac Mon Sep 17 00:00:00 2001
From: Feng Shu <tumashu@163.com>
Date: Fri, 14 Apr 2017 23:06:15 +0800
Subject: [PATCH 1/2] gnu: add emacs-xelb

* gnu/packages/emacs.scm (emacs-xelb): New variable.
---
 gnu/packages/emacs.scm | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 976ea31e0..53a9bec0b 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -24,6 +24,7 @@
 ;;; Copyright © 2017 Kyle Meyer <kyle@kyleam.com>
 ;;; Copyright © 2017 Kei Kebreau <kei@openmailbox.org>
 ;;; Copyright © 2017 George Clemmer <myglc2@gmail.com>
+;;; Copyright © 2017 Feng Shu <tumashu@163.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -4360,3 +4361,47 @@ commands are also offered as part of the AUCTeX package, but it is not
 the same - CDLaTeX focuses on speediness for inserting LaTeX
 constructs.")
     (license license:gpl3+)))
+
+(define-public emacs-xelb
+  (package
+    (name "emacs-xelb")
+    (version "0.12-3.d1d6b6c")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/ch11ng/xelb")
+                    (commit "d1d6b6cb48a6a9562252be20ab49f24708b34335")))
+              (file-name (string-append name "-" version "-checkout"))
+              (sha256
+               (base32
+                "0sxx2n3mi90dz66yi4xya89jrznyixfbmnj8b84l6qbkdp9iwd91"))))
+    (build-system emacs-build-system)
+    ;; The following functions and variables needed by emacs-xelb are
+    ;; not included in emacs-minimal:
+    ;; x-display-screens x-keysym-table x-alt-keysym x-meta-keysym
+    ;; x-hyper-keysym x-super-keysym libxml-parse-xml-region
+    ;; x-display-pixel-width x-display-pixel-height
+    (arguments
+     `(#:emacs ,emacs
+       #:phases
+       ;; Generate .el files from the XML description of the XCB bindings.
+       ;; This will be adjusted when xelb developer comment in issue page:
+       ;; https://github.com/ch11ng/xelb/issues/16
+       (modify-phases %standard-phases
+         (add-after 'unpack 'regenerate-el-files
+           (lambda* (#:key inputs #:allow-other-keys)
+             (zero? (system* "make"
+                             (string-append "PROTO_PATH="
+                                            (assoc-ref inputs "xcb-proto")
+                                            "/share/xcb")
+                             (string-append "EMACS_BIN="
+                                            (assoc-ref inputs "emacs")
+                                            "/bin/emacs -Q"))))))))
+    (native-inputs `(("xcb-proto" ,xcb-proto)))
+    (home-page "https://github.com/ch11ng/xelb")
+    (synopsis "X protocol Emacs Lisp Binding")
+    (description "@code{emacs-xelb} is a pure Emacs Lisp implementation
+of the X11 protocol based on the XML description files from the XCB
+project.  It features an object-oriented API and permits a certain degree
+of concurrency.  It should enable you to implement low-level X11 applications.")
+    (license license:gpl3+)))
-- 
2.12.2


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: 0002-gnu-add-emacs-exwm.patch --]
[-- Type: text/x-patch, Size: 4729 bytes --]

From fc6bdfdd8ca210f556d1f86ed354593902659e72 Mon Sep 17 00:00:00 2001
From: Feng Shu <tumashu@163.com>
Date: Sat, 15 Apr 2017 20:23:10 +0800
Subject: [PATCH 2/2] gnu: add emacs-exwm

* gnu/packages/emacs.scm (emacs-exwm): New variable
---
 gnu/packages/emacs.scm | 84 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 53a9bec0b..a9dcd2af6 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -4405,3 +4405,87 @@ of the X11 protocol based on the XML description files from the XCB
 project.  It features an object-oriented API and permits a certain degree
 of concurrency.  It should enable you to implement low-level X11 applications.")
     (license license:gpl3+)))
+
+(define-public emacs-exwm
+  (package
+    (name "emacs-exwm")
+    (version "0.13-3.7a5bb11")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/ch11ng/exwm")
+                    (commit "7a5bb1156d07848e465f55fd31f8ec755b52aa01")))
+              (file-name (string-append name "-" version "-checkout"))
+              (sha256
+               (base32
+                "0cbaq2ls8pivz4h8hwgn9ldvg16pwlisdf047civvilqiqczw31w"))))
+    (build-system emacs-build-system)
+    (propagated-inputs
+     `(("emacs-xelb" ,emacs-xelb)))
+    (inputs
+     `(("xhost" ,xhost)
+       ("dbus" ,dbus)))
+    ;; The following functions and variables needed by emacs-exwm are
+    ;; not included in emacs-minimal:
+    ;; scroll-bar-mode, fringe-mode
+    ;; x-display-pixel-width x-display-pixel-height
+    (arguments
+     `(#:emacs ,emacs
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'build 'install-xsession
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let* ((emacs-path (string-append (assoc-ref inputs "emacs")
+                                               "/bin/emacs"))
+                    (sh-path    (string-append (assoc-ref inputs "bash")
+                                               "/bin/sh"))
+                    (xhost-path (string-append (assoc-ref inputs "xhost")
+                                               "/bin/xhost"))
+                    (dbus-launch-path (string-append (assoc-ref inputs "dbus")
+                                                     "/bin/dbus-launch"))
+                    (output (assoc-ref outputs "out"))
+                    (xsessions-dir (string-append output "/share/xsessions"))
+                    (desktop-file (string-append xsessions-dir "/exwm.desktop"))
+                    (bin-dir (string-append output "/bin"))
+                    (exwm-default-session
+                     (string-append bin-dir "/exwm-default-session")))
+               ;; Add a .desktop file to xsessions.
+               (mkdir-p xsessions-dir)
+               (mkdir-p bin-dir)
+               (with-output-to-file desktop-file
+                 (lambda _
+                   (format #t
+                    "[Desktop Entry]~@
+                     Name=Exwm~@
+                     Comment=Emacs X Window Manager ~@
+                     Exec=~a/bin/exwm-default-session~@
+                     TryExec=~@*~a/bin/exwm-default-session~@
+                     Type=Application~%"
+                    output)))
+               ;; Add a shell wrap file to bin directory.
+               ;; Fixup: Set DISPLAY variable for the reason:
+               ;; https://github.com/ch11ng/exwm/issues/213
+               (with-output-to-file exwm-default-session
+                 (lambda _
+                   (format #t
+                    "#!~a ~@
+                     export DISPLAY=:0 ~@
+                     ~a +SI:localuser:$USER ~@
+                     exec ~a --exit-with-session ~a -q --eval \"~a\" ~%"
+                    sh-path xhost-path dbus-launch-path emacs-path
+                    (string-append
+                     "(if (file-exists-p \\\"~/.exwm.el\\\")"
+                     "(load \\\"~/.exwm.el\\\")"
+                     "(require 'exwm)"
+                     "(require 'exwm-config)"
+                     "(exwm-config-default)"
+                     "(message \\\"EXWM: ~/.exwm.el is not exist. "
+                     "use exwm fallback configure.\\\")"
+                     ")"))))
+               (chmod exwm-default-session #o555)
+               #t))))))
+    (home-page "https://github.com/ch11ng/exwm")
+    (synopsis "Emacs X Window Manager")
+    (description "EXWM (Emacs X Window Manager) is a full-featured
+tiling X window manager for Emacs built on top of XELB.")
+    (license license:gpl3+)))
-- 
2.12.2


[-- Attachment #4: Type: text/plain, Size: 3641 bytes --]




> Feng Shu writes:
>
>> Arun Isaac <arunisaac@systemreboot.net> writes:
>>
>>> You should be able to do this just using #:make-flags. See
>>> https://www.gnu.org/software/make/manual/html_node/Overriding.html>
>> emacs-build-system seem to have no #:make-flags, I just use
>> "make var1=var1 all" instead.
>
> Ah, yes. I forgot!
>
>> the rest have been fixed, thanks!
>>
>> the below is new patch:
>
> I'm not able to apply your patch. Could you send the patches made
> against the latest master? Thanks!
>
>> +    (arguments
>> +     `(#:emacs ,emacs
>> +       #:phases
>> +       ;; Generate .el files from the XML description of the XCB bindings.
>> +       ;; This will be adjusted when xelb developer comment in issue page:
>> +       ;; https://github.com/ch11ng/xelb/issues/16> +       (modify-phases %standard-phases
>> +         (add-after 'unpack 'regenerate-el-files
>> +           (lambda* (#:key inputs #:allow-other-keys)
>> +             (zero? (system* "make"
>> +                             (string-append "PROTO_PATH="
>> +                                            (assoc-ref inputs "xcb-proto")
>> +                                            "/share/xcb")
>> +                             (string-append "EMACS_BIN="
>> +                                            (assoc-ref inputs "emacs")
>> +                                            "/bin/emacs -Q")
>> +                             "all")))))))
>
> "all" is the default target, isn't it? In the interest of brevity, you
> can drop it.
>
>> +    (native-inputs `(("xcb-proto" ,xcb-proto)))
>> +    (home-page "https://github.com/ch11ng/xelb")> +    (synopsis "X protocol Emacs Lisp Binding")
>> +    (description "@code{emacs-xelb} is a pure Emacs Lisp implementation
>> +of the X11 protocol based on the XML description files from the XCB
>> +project. It features an object-oriented API and permits a certain degree
>> +of concurrency. It should enable you to implement low-level X11 applications.")
>
> There should be two spaces after the full stop '.' at the end of a
> sentence. Do run through 'guix lint'. It will warn you about this.
>
>> +(define-public emacs-exwm
>> +  (package
>> +    (name "emacs-exwm")
>> +    (version "0.13-3.7a5bb11")
>> +    (source (origin
>> +              (method git-fetch)
>> +              (uri (git-reference
>> +                    (url "https://github.com/ch11ng/exwm")> +                    (commit "7a5bb1156d07848e465f55fd31f8ec755b52aa01")))
>> +              (file-name (string-append name "-" version "-checkout"))
>> +              (sha256
>> +               (base32
>> +                "0cbaq2ls8pivz4h8hwgn9ldvg16pwlisdf047civvilqiqczw31w"))))
>> +    (build-system emacs-build-system)
>> +    (propagated-inputs
>> +     `(("emacs-xelb" ,emacs-xelb)))
>> +    (inputs
>> +     `(("xhost" ,xhost)
>> +       ("dbus" ,dbus)))
>> +    ;; The following functions and variables needed by emacs-exwm are
>> +    ;; not included in emacs-minimal:
>> +    ;; scroll-bar-mode, fringe-mode
>> +    ;; x-display-pixel-width x-display-pixel-height
>> +    (arguments
>> +     `(#:emacs ,emacs
>> +       #:phases
>> +       ;; Generate .el files from the XML description of the XCB bindings.
>> +       ;; This will be adjusted when xelb developer comment in issue page:
>> +       ;; https://github.com/ch11ng/xelb/issues/16
>
> This comment is only for emacs-xelb, and shouldn't be here, right?
>
> Everything else LGTM. Please send one last patch set. There may be a few
> more minor corrections. I'll make them and push. I'm eager to try out
> exwm. I didn't know about it before your patch. Thank you! :-)

-- 

  reply	other threads:[~2017-04-16  8:06 UTC|newest]

Thread overview: 43+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2017-04-11 22:58 bug#26453: [PATCH 1/2] gnu: add emacs-xelb Feng Shu
2017-04-11 22:58 ` bug#26454: [PATCH 2/2] gnu: add emacs-exwm Feng Shu
2017-04-12  9:35   ` Arun Isaac
2017-04-12 18:13     ` Alex Kost
2017-04-12 20:05       ` Arun Isaac
2017-04-13  1:14         ` tumashu
2017-04-13  5:21           ` Arun Isaac
2017-04-14 11:54             ` Feng Shu
2017-04-14 13:27               ` Arun Isaac
2017-04-14 15:13                 ` Feng Shu
2017-04-14 17:24                   ` Arun Isaac
2017-04-15  2:37                     ` tumashu
2017-04-15 12:29                       ` Feng Shu
2017-04-15 21:13                         ` Arun Isaac
     [not found]                         ` <e0ed6d82.AEAAJGDHDFkAAAAAAAAAAAO1LyIAAAACwQwAAAAAAAW9WABY8o0b@mailjet.com>
2017-04-15 23:41                           ` Feng Shu
2017-04-16  7:09                             ` Arun Isaac
2017-04-16  8:04                               ` Feng Shu, Arun Isaac [this message]
2017-04-16 20:53                                 ` Arun Isaac
2017-04-16 21:22                                   ` tumashu
2017-04-17  2:14                                     ` tumashu
2017-04-17 13:47                                       ` Arun Isaac
2017-04-18  8:20                                         ` Ludovic Courtès
2017-04-18 13:38                                           ` Arun Isaac
2017-04-18 20:39                                             ` Arun Isaac
2017-04-23  9:54                                         ` tumashu
2017-04-28 18:57                                           ` Arun Isaac
2017-04-14 21:47                   ` Ludovic Courtès
2017-04-16  9:32                 ` Ludovic Courtès
2017-04-16 11:06                   ` Arun Isaac
2017-04-16 21:09                     ` tumashu
2017-04-13  5:25           ` Arun Isaac
2017-04-13 21:04             ` Ludovic Courtès
2017-04-14  5:40               ` Arun Isaac
2017-04-16  9:03         ` Alex Kost
2017-04-16  9:29           ` Arun Isaac
2017-04-17 13:27   ` bug#26454: [PATCH 1/2] gnu: Add emacs-xelb Arun Isaac
2017-04-12  9:34 ` bug#26453: [PATCH 1/2] gnu: add emacs-xelb Arun Isaac
2017-04-12 10:12 ` Arun Isaac
     [not found] ` <cu7zifmezqp.fsf@systemreboot.net>
2017-04-13  5:26   ` Arun Isaac
     [not found] <20170417132743.5683-1-arunisaac@systemreboot.net>
2017-04-17 13:27 ` bug#26454: [PATCH 2/2] gnu: Add emacs-exwm Arun Isaac
     [not found] ` <c675c264.AEMAJSAD6iUAAAAAAAAAAAO1LyIAAAACwQwAAAAAAAW9WABY9MMd@mailjet.com>
2017-04-17 14:41   ` Feng Shu
2017-04-17 17:23     ` Arun Isaac
2017-04-17 21:51       ` Feng Shu

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://guix.gnu.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87mvbg7p78.fsf@163.com \
    --to=tumashu@163.com \
    --cc=26454@debbugs.gnu.org \
    --cc=arunisaac@systemreboot.net \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).