From: Leo Prikler <leo.prikler@student.tugraz.at>
To: 43087@debbugs.gnu.org
Subject: [bug#43087] [PATCH] gnu: emacs: Strip double wrap.
Date: Fri, 28 Aug 2020 15:34:00 +0200 [thread overview]
Message-ID: <20200828133359.10904-1-leo.prikler@student.tugraz.at> (raw)
* 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
next reply other threads:[~2020-08-28 13:35 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-08-28 13:34 Leo Prikler [this message]
2020-08-29 11:24 ` bug#43087: [PATCH] gnu: emacs: Strip double wrap 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
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=20200828133359.10904-1-leo.prikler@student.tugraz.at \
--to=leo.prikler@student.tugraz.at \
--cc=43087@debbugs.gnu.org \
/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).