bug#23094: [PATCHv2] Re: bug#23094: icecat is missing a desktop file

Message ID 20160526123952.7db75498@scratchpost.org
State New

Commit Message

Danny Milosavljevic May 26, 2016, 10:39 a.m. UTC
  Begin forwarded message:

Date: Sat, 16 Apr 2016 20:15:16 +0200
From: Danny Milosavljevic <dannym@scratchpost.org>
To: 23094@debbugs.gnu.org
Subject: bug#23094: [PATCHv2] Re: bug#23094: icecat is missing a desktop file

Any news on this? I just got a merge conflict so I was reminded of it again...

The current version of the patch that I'm successfully using is below - although I still can't get the version number into the installation lambda.


diff --git a/gnu/packages/gnuzilla.scm b/gnu/packages/gnuzilla.scm
index 1ae97b2..96d32a1 100644
--- a/gnu/packages/gnuzilla.scm
+++ b/gnu/packages/gnuzilla.scm
@@ -501,7 +501,46 @@  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* ((out (assoc-ref outputs "out"))
+                   (applications (string-append out "/share/applications")))
+              (mkdir-p applications)
+              (call-with-output-file (string-append applications "/icecat.desktop")
+                (lambda (port)
+                  (format port "~
+[Desktop Entry]~@
+Name=GNU IceCat~@
+GenericName=Web Browser~@
+Comment=Browse the World Wide Web~@
+Exec=~a/bin/icecat %u~@
+[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~@
+                          out
+                          out
+                          (string-drop-right "38.7.1-gnu1" (string-length "-gnu1")) ; FIXME do not hardcode
+                          out
+                          out)))))))))
     (home-page "http://www.gnu.org/software/gnuzilla/")
     (synopsis "Entirely free browser derived from Mozilla Firefox")