[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Danny Milosavljevic
Subject: bug#23094: [PATCHv2] Re: bug#23094: icecat is missing a desktop file
Date: Sat, 16 Apr 2016 20:15:16 +0200

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 
+                (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")

reply via email to

[Prev in Thread] Current Thread [Next in Thread]