GNU bug report logs - #27417
Add emacs-switch-window and emacs-exwm-x

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 27417 in the body.
You can then email your comments to 27417 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: "Feng Shu" <tumashu <at> 163.com>
To: guix-patches <guix-patches <at> gnu.org>
Cc: Feng Shu <tumashu <at> 163.com>
Subject: Add emacs-switch-window and emacs-exwm-x
Date: Sun, 18 Jun 2017 11:42:11 +0800

[0001-gnu-Add-emacs-switch-window.patch (text/x-patch, inline)]

From 15acb2ed8e4570a7fe44cb3350083209fe12ec03 Mon Sep 17 00:00:00 2001
From: Feng Shu <tumashu <at> 163.com>
Date: Sat, 17 Jun 2017 15:58:05 +0800
Subject: [PATCH 1/2] gnu: Add emacs-switch-window

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

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 99b9b0601..58688b9a8 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -4602,6 +4602,27 @@ It should enable you to implement low-level X11 applications.")
 built on top of XELB.")
     (license license:gpl3+)))
 
+(define-public emacs-switch-window
+  (package
+    (name "emacs-switch-window")
+    (version "1.5.0-1.8d37f56")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (commit "8d37f5660666516ab6c9e6ec1da748ea1669ed4b")
+                    (url "https://github.com/dimitri/switch-window.git")))
+              (file-name (string-append name "-" version "-checkout"))
+              (sha256
+               (base32
+                "19bszzslzz8rprch0z3h6xa6pjhrwik7j53i4kj33w306d58gi3f"))))
+    (build-system emacs-build-system)
+    (home-page "https://github.com/dimitri/switch-window")
+    (synopsis "Emacs window switch tool")
+    (description "Switch-window is an emacs window switch tool, which
+offer a visual way to choose a window to switch to, delete, split or
+other operations.")
+    (license license:wtfpl2)))
+
 (define-public emacs-gnuplot
   (package
     (name "emacs-gnuplot")
-- 
2.12.2

[0002-gnu-Add-emacs-exwm-x.patch (text/x-patch, inline)]

From ad804179af5f44a3ca0bf0cedc566954b7fa4acb Mon Sep 17 00:00:00 2001
From: Feng Shu <tumashu <at> 163.com>
Date: Sun, 18 Jun 2017 08:18:39 +0800
Subject: [PATCH 2/2] gnu: Add emacs-exwm-x

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

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 58688b9a8..b6867cd1e 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -4623,6 +4623,73 @@ offer a visual way to choose a window to switch to, delete, split or
 other operations.")
     (license license:wtfpl2)))
 
+(define-public emacs-exwm-x
+  (package
+    (name "emacs-exwm-x")
+    (version "1.0-2.2099138")
+    (synopsis "Derivative window manager based on EXWM")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (commit "20991380f4b62f7203348841f9bf36ad1ed5dfc5")
+                    (url "https://github.com/tumashu/exwm-x.git")))
+              (file-name (string-append name "-" version "-checkout"))
+              (sha256
+               (base32
+                "0yx2v9ms0l2pxjrcmlaqs41b4482zfsljdg5ml7yi3r0l6mkpwg8"))))
+    (build-system emacs-build-system)
+    (propagated-inputs
+     `(("emacs-exwm" ,emacs-exwm)
+       ("emacs-switch-window" ,emacs-switch-window)
+       ("emacs-ivy" ,emacs-ivy)))
+    (inputs
+     `(("xhost" ,xhost)
+       ("dbus" ,dbus)))
+    ;; Need emacs instead of emacs-minimal,
+    ;; for emacs's bin path will be inserted into bin/exwm-x file.
+    (arguments
+     `(#:emacs ,emacs
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'build 'install-xsession
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (xsessions (string-append out "/share/xsessions"))
+                    (bin (string-append out "/bin"))
+                    (exwm-executable (string-append bin "/exwm-x")))
+               ;; Add a .desktop file to xsessions
+               (mkdir-p xsessions)
+               (mkdir-p bin)
+               (with-output-to-file
+                   (string-append xsessions "/exwm-x.desktop")
+                 (lambda _
+                   (format #t "[Desktop Entry]~@
+                     Name=~a~@
+                     Comment=~a~@
+                     Exec=~a~@
+                     TryExec=~@*~a~@
+                     Type=Application~%" ,name ,synopsis exwm-executable)))
+               ;; Add a shell wrapper to bin
+               ;; Set DISPLAY variable to work around
+               ;; https://github.com/ch11ng/exwm/issues/213
+               (with-output-to-file exwm-executable
+                 (lambda _
+                   (format #t "#!~a ~@
+                     export DISPLAY=:0 ~@
+                     ~a +SI:localuser:$USER ~@
+                     exec ~a --exit-with-session ~a \"$@\" --eval '~s' ~%"
+                           (string-append (assoc-ref inputs "bash") "/bin/sh")
+                           (string-append (assoc-ref inputs "xhost") "/bin/xhost")
+                           (string-append (assoc-ref inputs "dbus") "/bin/dbus-launch")
+                           (string-append (assoc-ref inputs "emacs") "/bin/emacs")
+                           '(require 'exwmx-loader))))
+               (chmod exwm-executable #o555)
+               #t))))))
+    (home-page "https://github.com/tumashu/exwm-x")
+    (description "EXWM-X is a derivative window manager based on EXWM, which focus
+on mouse-control-people.")
+    (license license:gpl3+)))
+
 (define-public emacs-gnuplot
   (package
     (name "emacs-gnuplot")
-- 
2.12.2

[Message part 3 (text/plain, inline)]

-- 

Message #8 received at 27417 <at> debbugs.gnu.org (full text, mbox):

From: tumashu <tumashu <at> 163.com>
To: 27417 <at> debbugs.gnu.org
Subject: Update emacs-exwm-x and emacs-switch-window
Date: Wed, 21 Jun 2017 22:00:46 +0800 (CST)

[Message part 1 (text/plain, inline)]

Use url-method instead of git-method

[Message part 2 (text/html, inline)]

[0001-gnu-Add-emacs-switch-window.patch (application/octet-stream, attachment)]

[0002-gnu-Add-emacs-exwm-x.patch (application/octet-stream, attachment)]

Message #13 received at 27417-done <at> debbugs.gnu.org (full text, mbox):

From: Jan Nieuwenhuizen <janneke <at> gnu.org>
To: tumashu <tumashu <at> 163.com>
Cc: 27417-done <at> debbugs.gnu.org
Subject: Re: [bug#27417] Update emacs-exwm-x and emacs-switch-window
Date: Fri, 30 Jun 2017 23:36:02 +0200

tumashu writes:

> Use url-method instead of git-method

Nice, thanks!

> From e9c1eedb66548e6fc0f8e1e7efa2c81ca9fcf601 Mon Sep 17 00:00:00 2001
> From: Feng Shu <tumashu <at> 163.com>
> Date: Sat, 17 Jun 2017 15:58:05 +0800
> Subject: [PATCH 1/3] gnu: Add emacs-switch-window

I've added a `.'

    gnu: Add emacs-exwm-x.

> * gnu/packages/emacs.scm (emacs-switch-window): New variable.


Other than that looks good.  Compiles, runs.  Pushed to master as
58addd2b20d7ae41f30dc3b0e87b303c7a6f9aa2

> From 2cbe2a78ba34413f55daf78bdcef4195d7aae1c6 Mon Sep 17 00:00:00 2001
> From: Feng Shu <tumashu <at> 163.com>
> Date: Sun, 18 Jun 2017 08:18:39 +0800
> Subject: [PATCH 2/3] gnu: Add emacs-exwm-x

Here too

    gnu: Add emacs-exwm-x.

> +    (description "EXWM-X is a derivative window manager based on EXWM, which focus
> +on mouse-control-people.")

Changed to

    (description "EXWM-X is a derivative window manager based on EXWM, with focus
on mouse-control.")

Running it now, thank you!  Pushed to master as
f4ade9b6c8bfd840d718dd61a502c1b627f67fbb

Greetings,
janneke

-- 
Jan Nieuwenhuizen <janneke <at> gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.