From mboxrd@z Thu Jan 1 00:00:00 1970 From: Danny Milosavljevic Subject: bug#23094: [PATCH] Re: bug#23094: icecat is missing a desktop file Date: Sun, 10 Apr 2016 12:04:04 +0200 Message-ID: <20160410120404.0a37366e@scratchpost.org> References: <20160322202004.7e9de603@scratchpost.org> Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:54904) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1apCEr-0006aP-Sd for bug-guix@gnu.org; Sun, 10 Apr 2016 06:05:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1apCEo-00059o-N2 for bug-guix@gnu.org; Sun, 10 Apr 2016 06:05:05 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:44267) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1apCEo-00059j-JD for bug-guix@gnu.org; Sun, 10 Apr 2016 06:05:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1apCEn-0003IG-K8 for bug-guix@gnu.org; Sun, 10 Apr 2016 06:05:01 -0400 Sender: "Debbugs-submit" Resent-Message-ID: In-Reply-To: <20160322202004.7e9de603@scratchpost.org> List-Id: Bug reports for GNU Guix List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org Sender: "bug-Guix" To: 23094@debbugs.gnu.org Here's a patch which adds a desktop file to icecat: Note that there's still a maintenance problem with the icon - version "38.6.0" is currently hard-coded, so if icecat updates, it won't be able to find its icon. What is the usual way to fix this? diff --git a/gnu/packages/gnuzilla.scm b/gnu/packages/gnuzilla.scm index b4892d7..2c38458 100644 --- a/gnu/packages/gnuzilla.scm +++ b/gnu/packages/gnuzilla.scm @@ -519,7 +519,40 @@ standards.") (format #t "configure flags: ~s~%" flags) (zero? (apply system* bash (string-append srcdir "/configure") - flags)))))))) + flags))))) + (add-after + 'install + 'install-desktop-entry + (lambda* (#:key outputs #:allow-other-keys) + (let ((applications (string-append (assoc-ref outputs "out") "/share/applications"))) + (mkdir-p applications) + (call-with-output-file (string-append applications "/icecat.desktop") + (lambda (port) + (format port "~ +[Desktop Entry]~@ +Version=1.0~@ +Name=GNU IceCat~@ +GenericName=Web Browser~@ +Comment=Browse the World Wide Web~@ +Keywords=Internet;WWW;Browser;Web~@ +Exec=~a/bin/icecat %u~@ +Terminal=false~@ +X-MultipleArgs=false~@ +Type=Application~@ +Icon=~a/lib/icecat-38.6.0/browser/icons/mozicon128.png~@ +Categories=GNOME;GTK;Network;WebBrowser;~@ +MimeType=text/html;text/xml;application/xhtml+xml;application/xml;application/rss+xml;application/rdf+xml;image/gif;image/jpeg;image/png;x-scheme-handler/http;x-scheme-handler/https;x-scheme-handler/ftp;x-scheme-handler/chrome;video/webm;application/x-xpinstall;~@ +StartupNotify=true~@ +Actions=NewWindow;NewPrivateWindow~@ +~@ +[Desktop Action NewWindow]~@ +Name=Open a New Window~@ +Exec=~a/bin/icecat --new-window~@ +~@ +[Desktop Action NewPrivateWindow]~@ +Name=Open a New Private Window~@ +Exec=~a/bin/icecat -private-window~@ +" (assoc-ref outputs "out") (assoc-ref outputs "out") (assoc-ref outputs "out") (assoc-ref outputs "out")))))))))) ; FIXME version (home-page "http://www.gnu.org/software/gnuzilla/") (synopsis "Entirely free browser derived from Mozilla Firefox") (description