unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
* [bug#43087] [PATCH] gnu: emacs: Strip double wrap.
@ 2020-08-28 13:34 Leo Prikler
  2020-08-29 11:24 ` bug#43087: " Mathieu Othacehe
  0 siblings, 1 reply; 6+ messages in thread
From: Leo Prikler @ 2020-08-28 13:34 UTC (permalink / raw)
  To: 43087

* gnu/packages/emacs.scm (emacs)[#:phases]: Add 'strip-double-wrap.
---
 gnu/packages/emacs.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index a338abc774..84c1889617 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -191,6 +191,17 @@
                            (rename-file real wrapper))
                          pdmp pdmp-real))
              #t))
+         (add-after 'glib-or-gtk-wrap 'strip-double-wrap
+           (lambda* (#:key outputs #:allow-other-keys)
+             ;; Directly copy emacs-X.Y to emacs, so that it is not wrapped
+             ;; twice.  This also fixes a minor issue, where WMs would not be
+             ;; able to track emacs back to emacs.desktop.
+             (with-directory-excursion (assoc-ref outputs "out")
+               (copy-file (string-append
+                           "bin/emacs-"
+                           ,(version-major+minor (package-version emacs)))
+                          "bin/emacs")
+               #t)))
          (add-before 'reset-gzip-timestamps 'make-compressed-files-writable
            ;; The 'reset-gzip-timestamps phase will throw a permission error
            ;; if gzip files aren't writable then.  This phase is needed when
-- 
2.28.0





^ permalink raw reply related	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2020-08-31  7:54 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2020-08-28 13:34 [bug#43087] [PATCH] gnu: emacs: Strip double wrap Leo Prikler
2020-08-29 11:24 ` bug#43087: " Mathieu Othacehe
2020-08-29 14:04   ` [bug#43087] " Mathieu Othacehe
2020-08-29 14:25     ` Leo Prikler
2020-08-29 15:42       ` Leo Prikler
2020-08-31  7:52         ` Mathieu Othacehe

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).