diff mbox series

[bug#45661] Install TeXmac's desktop file

Message ID 43baad2e1a3e2298cff1e296247d7a1a2fd98b24.camel@telenet.be
State Accepted
Headers show
Series [bug#45661] Install TeXmac's desktop file | expand

Checks

Context Check Description
cbaines/submitting builds success
cbaines/comparison success View comparision
cbaines/git branch success View Git branch
cbaines/applying patch fail View Laminar job
cbaines/issue success View issue

Commit Message

M Jan. 4, 2021, 6:49 p.m. UTC 
Hi Guix!

This patch adjusts the package definition
to install the .desktop file of TeXmacs. Previously,
TeXmacs didn't show up in GNOME Shell, but now it does!

Comments

Ludovic Courtès Jan. 7, 2021, 10:40 a.m. UTC | #1 
Hi,

Maxime Devos <maximedevos@telenet.be> skribis:

> From 15ea12a7437095f934b48f11abf9e263eb2e80f0 Mon Sep 17 00:00:00 2001
> From: Maxime Devos <maximedevos@telenet.be>
> Date: Mon, 4 Jan 2021 19:44:45 +0100
> Subject: [PATCH] gnu: texmacs: Install desktop file.
> MIME-Version: 1.0
> Content-Type: text/plain; charset=UTF-8
> Content-Transfer-Encoding: 8bit
>
> * gnu/packages/text-editors.scm (texmacs)[arguments]: Add
>   ‘install-desktop-file’ phase.

Applied, thanks!

Ludo’.
diff mbox series

Patch

From 15ea12a7437095f934b48f11abf9e263eb2e80f0 Mon Sep 17 00:00:00 2001
From: Maxime Devos <maximedevos@telenet.be>
Date: Mon, 4 Jan 2021 19:44:45 +0100
Subject: [PATCH] gnu: texmacs: Install desktop file.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/text-editors.scm (texmacs)[arguments]: Add
  ‘install-desktop-file’ phase.
---
 gnu/packages/text-editors.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gnu/packages/text-editors.scm b/gnu/packages/text-editors.scm
index 749b93e29f..81915ca52b 100644
--- a/gnu/packages/text-editors.scm
+++ b/gnu/packages/text-editors.scm
@@ -12,6 +12,7 @@ 
 ;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
 ;;; Copyright © 2020 Tom Zander <tomz@freedommail.ch>
 ;;; Copyright © 2020 Mark Meyer <mark@ofosos.org>
+;;; Copyright © 2020 Maxime Devos <maximedevos@telenet.be>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -788,6 +789,14 @@  editors.")
                  (("/usr/share")
                   (string-append out "/share")))
                #t)))
+         (add-after 'install 'install-desktop-file
+           (lambda* (#:key outputs #:allow-other-keys)
+             ;; Install desktop file.
+             (let* ((out (assoc-ref outputs "out"))
+                    (apps (string-append out "/share/applications"))
+                    (source "TeXmacs/misc/mime/texmacs.desktop"))
+               (install-file source apps)
+               #t)))
          (add-before 'configure 'gzip-flags
            (lambda _
              (substitute* "Makefile.in"
-- 
2.29.2