GNU logs - #42928, boring messages

Message sent to guix-patches@HIDDEN:

Subject: [bug#42928] [PATCH 0/2] gnu: qttools: Install additional files.
Resent-From: Timotej Lazar <timotej.lazar@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Wed, 19 Aug 2020 11:51:01 +0000
Resent-Message-ID: <handler.42928.B.15978378441917 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
To: 42928 <at> debbugs.gnu.org
From: Timotej Lazar <timotej.lazar@HIDDEN>
Date: Wed, 19 Aug 2020 13:50:34 +0200
Message-ID: <87zh6qn9bp.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: text/plain
Received-SPF: pass client-ip=2001:15c0:2110:3400::2;
 envelope-from=timotej.lazar@HIDDEN; helo=araneo.si
X-Spam_score_int: -20
X-Spam_score: -2.1
X-Spam_bar: --
X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
 DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, SPF_HELO_PASS=-0.001,
 SPF_PASS=-0.001, URIBL_BLOCKED=0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: -1.3 (-)
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -2.3 (--)

Hi,

this installs desktop files and manpages for Qt utilities.

Thanks!

Timotej Lazar (2):
  gnu: qttools: Install desktop files and icons.
  gnu: qttools: Install man pages.

 gnu/packages/qt.scm | 70 ++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 69 insertions(+), 1 deletion(-)

-- 
2.28.0

Message sent:

Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable
MIME-Version: 1.0
X-Mailer: MIME-tools 5.505 (Entity 5.505)
Content-Type: text/plain; charset=utf-8
X-Loop: help-debbugs@HIDDEN
From: help-debbugs@HIDDEN (GNU bug Tracking System)
To: Timotej Lazar <timotej.lazar@HIDDEN>
Subject: bug#42928: Acknowledgement ([PATCH 0/2] gnu: qttools: Install
 additional files.)
Message-ID: <handler.42928.B.15978378441917.ack <at> debbugs.gnu.org>
References: <87zh6qn9bp.fsf@HIDDEN>
X-Gnu-PR-Message: ack 42928
X-Gnu-PR-Package: guix-patches
X-Gnu-PR-Keywords: patch
Reply-To: 42928 <at> debbugs.gnu.org
Date: Wed, 19 Aug 2020 11:51:02 +0000

Thank you for filing a new bug report with debbugs.gnu.org.

This is an automatically generated reply to let you know your message
has been received.

Your message is being forwarded to the package maintainers and other
interested parties for their attention; they will reply in due course.

Your message has been sent to the package maintainer(s):
 guix-patches@HIDDEN

If you wish to submit further information on this problem, please
send it to 42928 <at> debbugs.gnu.org.

Please do not send mail to help-debbugs@HIDDEN unless you wish
to report a problem with the Bug-tracking system.

--=20
42928: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D42928
GNU Bug Tracking System
Contact help-debbugs@HIDDEN with problems

Message sent to guix-patches@HIDDEN:

Subject: [bug#42928] [PATCH 1/2] gnu: qttools: Install desktop files and icons.
References: <87zh6qn9bp.fsf@HIDDEN>
In-Reply-To: <87zh6qn9bp.fsf@HIDDEN>
Resent-From: Timotej Lazar <timotej.lazar@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Wed, 19 Aug 2020 11:55:01 +0000
Resent-Message-ID: <handler.42928.B42928.15978380642303 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
To: 42928 <at> debbugs.gnu.org
Cc: Timotej Lazar <timotej.lazar@HIDDEN>
From: Timotej Lazar <timotej.lazar@HIDDEN>
Date: Wed, 19 Aug 2020 13:53:17 +0200
Message-Id: <20200819115318.5655-1-timotej.lazar@HIDDEN>
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
Precedence: list
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>

* gnu/packages/qt.scm (qttools)[phases]: Add 'install-desktop-files.
---
 gnu/packages/qt.scm | 62 ++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 61 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index ee903ecae9..4ca9786d8b 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -1185,7 +1185,67 @@ positioning and geolocation plugins.")))
                "1iakl3hlyg51ri1czmis8mmb257b0y1zk2a2knybd3mq69wczc2v"))))
     (arguments
      (substitute-keyword-arguments (package-arguments qtsvg)
-       ((#:tests? _ #f) #f))) ; TODO: Enable the tests
+       ((#:tests? _ #f) #f) ; TODO: Enable the tests
+       ((#:phases phases)
+        `(modify-phases ,phases
+           (add-after 'install 'install-desktop-files
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (apps (string-append out "/share/applications"))
+                      (icons (string-append out "/share/icons/hicolor")))
+                 ;; Install icons.
+                 (with-directory-excursion "src"
+                   (for-each
+                    (lambda (icon)
+                      ;; Get name and size from the slightly inconsistent filenames.
+                      (let* ((parts (string-split (basename icon ".png") #\-))
+                             (name (car parts))
+                             (size (if (> (length parts) 1) (cadr parts) "32"))
+                             (dest (string-append icons "/" size "x" size "/apps")))
+                        (mkdir-p dest)
+                        (copy-file icon (string-append dest "/" name ".png"))))
+                    '("assistant/assistant/images/assistant.png"
+                      "assistant/assistant/images/assistant-128.png"
+                      "designer/src/designer/images/designer.png"
+                      "linguist/linguist/images/icons/linguist-16-32.png"
+                      "linguist/linguist/images/icons/linguist-32-32.png"
+                      "linguist/linguist/images/icons/linguist-48-32.png"
+                      "linguist/linguist/images/icons/linguist-64-32.png"
+                      "linguist/linguist/images/icons/linguist-128-32.png"
+                      "qdbus/qdbusviewer/images/qdbusviewer.png"
+                      "qdbus/qdbusviewer/images/qdbusviewer-128.png")))
+                 ;; Install desktop files.
+                 (make-desktop-entry-file
+                  (string-append apps "/assistant.desktop")
+                  #:name "Qt Assistant"
+                  #:comment "Browse Qt documentation and examples"
+                  #:exec "assistant"
+                  #:icon "assistant"
+                  #:categories '("Qt" "Development" "Documentation"))
+                 (make-desktop-entry-file
+                  (string-append apps "/designer.desktop")
+                  #:name "Qt Designer"
+                  #:comment "Design GUIs for Qt applications"
+                  #:exec "designer"
+                  #:icon "designer"
+                  #:categories '("Qt" "Development" "GUIDesigner")
+                  #:mime-type '("application/x-designer"))
+                 (make-desktop-entry-file
+                  (string-append apps "/linguist.desktop")
+                  #:name "Qt Linguist"
+                  #:comment "Translate Qt applications"
+                  #:exec "linguist"
+                  #:icon "linguist"
+                  #:categories '("Qt" "Development" "Translation")
+                  #:mime-type '("application/x-linguist"))
+                 (make-desktop-entry-file
+                  (string-append apps "/qdbusviewer.desktop")
+                  #:name "Qt D-Bus viewer"
+                  #:comment "Browse D-Bus objects and messages"
+                  #:exec "qdbusviewer"
+                  #:icon "qdbusviewer"
+                  #:categories '("Qt" "Development")))
+               #t))))))
     (native-inputs
      `(("perl" ,perl)
        ("qtdeclarative" ,qtdeclarative)
-- 
2.28.0

Message sent to guix-patches@HIDDEN:

Subject: [bug#42928] [PATCH 2/2] gnu: qttools: Install man pages.
Resent-From: Timotej Lazar <timotej.lazar@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: guix-patches@HIDDEN
Resent-Date: Wed, 19 Aug 2020 11:55:02 +0000
Resent-Message-ID: <handler.42928.B42928.15978380682320 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
To: 42928 <at> debbugs.gnu.org
Cc: Timotej Lazar <timotej.lazar@HIDDEN>
From: Timotej Lazar <timotej.lazar@HIDDEN>
Date: Wed, 19 Aug 2020 13:53:18 +0200
Message-Id: <20200819115318.5655-2-timotej.lazar@HIDDEN>
In-Reply-To: <20200819115318.5655-1-timotej.lazar@HIDDEN>
References: <20200819115318.5655-1-timotej.lazar@HIDDEN>
MIME-Version: 1.0
Content-Transfer-Encoding: 8bit
Precedence: list
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>

* gnu/packages/qt.scm (qttools)[phases]: Add 'install-man-pages.
---
 gnu/packages/qt.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index 4ca9786d8b..a3ffb7e79d 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -1188,7 +1188,15 @@ positioning and geolocation plugins.")))
        ((#:tests? _ #f) #f) ; TODO: Enable the tests
        ((#:phases phases)
         `(modify-phases ,phases
-           (add-after 'install 'install-desktop-files
+           (add-after 'install 'install-man-pages
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (man (string-append out "/share/man/man1")))
+                 (with-directory-excursion "src/linguist"
+                   (install-file "lrelease/lrelease.1" man)
+                   (install-file "lupdate/lupdate.1" man)))
+               #t))
+           (add-after 'install-man-pages 'install-desktop-files
              (lambda* (#:key outputs #:allow-other-keys)
                (let* ((out (assoc-ref outputs "out"))
                       (apps (string-append out "/share/applications"))
-- 
2.28.0

Last modified: Wed, 19 Aug 2020 12:00:02 UTC

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997 nCipher Corporation Ltd, 1994-97 Ian Jackson.