futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: emacs: Strip double wrap.

Browse Source 
* gnu/packages/emacs.scm (emacs)[#:phases]: Add 'strip-double-wrap.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Leo Prikler 2020-08-28 15:34:00 +02:00 committed by Mathieu Othacehe
parent 62a68b7382
commit 0ec6b8afd7
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gnu/packages/emacs.scm
View File

@ -191,6 +191,17 @@
(rename-file real wrapper)) (rename-file real wrapper))
pdmp pdmp-real)) pdmp pdmp-real))
#t)) #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 (add-before 'reset-gzip-timestamps 'make-compressed-files-writable
;; The 'reset-gzip-timestamps phase will throw a permission error ;; The 'reset-gzip-timestamps phase will throw a permission error
;; if gzip files aren't writable then. This phase is needed when ;; if gzip files aren't writable then. This phase is needed when