From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:34639) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eJIxD-0000PY-Lx for guix-patches@gnu.org; Mon, 27 Nov 2017 07:56:08 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eJIxA-0004AY-JK for guix-patches@gnu.org; Mon, 27 Nov 2017 07:56:07 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:51505) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eJIxA-0004AO-FM for guix-patches@gnu.org; Mon, 27 Nov 2017 07:56:04 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1eJIxA-0000vj-8x for guix-patches@gnu.org; Mon, 27 Nov 2017 07:56:04 -0500 Subject: [bug#29472] [PATCH 3/4] gnu: Add perl-file-mimeinfo. Resent-Message-ID: From: Brendan Tildesley Date: Mon, 27 Nov 2017 23:54:33 +1100 Message-Id: <20171127125434.10609-3-brendan.tildesley@openmailbox.org> In-Reply-To: <20171127125434.10609-1-brendan.tildesley@openmailbox.org> References: <20171127125434.10609-1-brendan.tildesley@openmailbox.org> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 29472@debbugs.gnu.org * gnu/packages/perl.scm (perl-file-mimeinfo): New variable. --- gnu/packages/perl.scm | 48 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm index bacaaf38a..f658b9177 100644 --- a/gnu/packages/perl.scm +++ b/gnu/packages/perl.scm @@ -46,6 +46,7 @@ #:use-module (gnu packages perl-web) #:use-module (gnu packages pkg-config) #:use-module (gnu packages freedesktop) + #:use-module (gnu packages gnome) #:use-module (gnu packages web)) ;;; @@ -3477,6 +3478,53 @@ data.") those files.") (license (package-license perl)))) +(define-public perl-file-mimeinfo + (package + (name "perl-file-mimeinfo") + (version "0.28") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://cpan/authors/id/M/MI/MICHIELB/" + "File-MimeInfo-" version ".tar.gz")) + (sha256 + (base32 + "1ipbh63bkh1r2gy5g7q4bzhki8j29mm1jkhbv60p9vwsdys5s91a")))) + (build-system perl-build-system) + ;; If the tests are fixed, add perl-test-pod, perl-test-pod-coverage, and + ;; perl-test-tiny as native-inputs. + (propagated-inputs + `(("shared-mime-info" ,shared-mime-info) + ("perl-file-desktopentry" ,perl-file-desktopentry))) + (arguments + ;; Some tests fail due to requiring the mimetype of perl files to be + ;; text/plain when they are actually application/x-perl. + `(#:tests? #f + #:phases + (modify-phases %standard-phases + (add-after 'install 'wrap-programs + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (for-each (lambda (prog) + (wrap-program (string-append out "/bin/" prog) + `("PERL5LIB" ":" prefix + (,(string-append (getenv "PERL5LIB") ":" out + "/lib/perl5/site_perl"))))) + '("mimeopen" "mimetype"))) + #t))))) + (home-page "http://search.cpan.org/dist/File-MimeInfo/") + (synopsis "Determine file type from the file name") + (description + "File::Mimeinfo can be used to determine the mime type of a file. It +tries to implement the freedesktop specification for a shared MIME database. + + This package also contains two related utilities: +@itemize +@item mimetype: Determine a file's mimetype. +@item mimeopen: Open files in an appropriate program according to their mimetype. +@end itemize") + (license (package-license perl)))) + (define-public perl-file-sharedir (package (name "perl-file-sharedir") -- 2.15.0