From mboxrd@z Thu Jan 1 00:00:00 1970 From: Mathieu Lirzin Subject: [PATCH] gnu: Move markdown to (gnu packages markdown). Date: Mon, 27 Jul 2015 20:26:08 +0200 Message-ID: <1438021568-5101-1-git-send-email-mthl@openmailbox.org> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------2.4.3" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:35498) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZJn8U-0000H8-S1 for guix-devel@gnu.org; Mon, 27 Jul 2015 14:28:28 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZJn8Q-0003Op-KZ for guix-devel@gnu.org; Mon, 27 Jul 2015 14:28:26 -0400 Received: from smtp11.openmailbox.org ([62.4.1.45]:59267) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZJn8Q-0003N7-9M for guix-devel@gnu.org; Mon, 27 Jul 2015 14:28:22 -0400 Received: from localhost (localhost [127.0.0.1]) by mail2.openmailbox.org (Postfix) with ESMTP id 8BCC1201E73 for ; Mon, 27 Jul 2015 20:28:20 +0200 (CEST) List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org This is a multi-part message in MIME format. --------------2.4.3 Content-Type: text/plain; charset=UTF-8; format=fixed Content-Transfer-Encoding: quoted-printable * gnu/packages/textutils.scm (markdown): Move to ... * gnu/packages/markdown.scm (markdown): ... here. --- gnu/packages/markdown.scm | 50 ++++++++++++++++++++++++++++++++++++++++= +++++- gnu/packages/textutils.scm | 50 +---------------------------------------= ------ 2 files changed, 50 insertions(+), 50 deletions(-) --------------2.4.3 Content-Type: text/x-patch; name="0001-gnu-Move-markdown-to-gnu-packages-markdown.patch" Content-Disposition: inline; filename="0001-gnu-Move-markdown-to-gnu-packages-markdown.patch" Content-Transfer-Encoding: quoted-printable diff --git a/gnu/packages/markdown.scm b/gnu/packages/markdown.scm index ee0edfc..dfc81f6 100644 --- a/gnu/packages/markdown.scm +++ b/gnu/packages/markdown.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright =C2=A9 2015 David Thompson +;;; Copyright =C2=A9 2015 Mathieu Lirzin ;;; ;;; This file is part of GNU Guix. ;;; @@ -21,8 +22,11 @@ #:use-module (guix download) #:use-module (guix packages) #:use-module (guix build-system gnu) + #:use-module (guix build-system trivial) + #:use-module (gnu packages perl) #:use-module (gnu packages python) - #:use-module (gnu packages web)) + #:use-module (gnu packages web) + #:use-module (gnu packages zip)) =20 (define-public hoedown (package @@ -50,3 +54,47 @@ processing library written in C.") (home-page "https://github.com/hoedown/hoedown") (license expat))) + +(define-public markdown + (package + (name "markdown") + (version "1.0.1") + (source + (origin + (method url-fetch) + (uri (string-append + "http://daringfireball.net/projects/downloads/" + (string-capitalize name) "_" version ".zip")) + (sha256 + (base32 "0dq1pj91pvlwkv0jwcgdfpv6gvnxzrk3s8mnh7imamcclnvfj835"))= )) + (build-system trivial-build-system) + (arguments + '(#:modules ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + (let ((source (assoc-ref %build-inputs "source")) + (out (assoc-ref %outputs "out")) + (perlbd (string-append (assoc-ref %build-inputs "perl") "= /bin")) + (unzip (string-append (assoc-ref %build-inputs "unzip") + "/bin/unzip"))) + (mkdir-p out) + (with-directory-excursion out + (system* unzip source) + (mkdir "bin") + (mkdir-p "share/doc") + (rename-file "Markdown_1.0.1/Markdown.pl" "bin/markdown") + (rename-file "Markdown_1.0.1/Markdown Readme.text" + "share/doc/README") + (patch-shebang "bin/markdown" (list perlbd)) + (delete-file-recursively "Markdown_1.0.1")))))) + (native-inputs `(("unzip" ,unzip))) + (inputs `(("perl" ,perl))) + (home-page "http://daringfireball.net/projects/markdown") + (synopsis "Text-to-HTML conversion tool") + (description + "Markdown is a text-to-HTML conversion tool for web writers. It al= lows +you to write using an easy-to-read, easy-to-write plain text format, the= n +convert it to structurally valid XHTML (or HTML).") + (license (non-copyleft "file://License.text" + "See License.text in the distribution.")))) diff --git a/gnu/packages/textutils.scm b/gnu/packages/textutils.scm index 325386d..08b1b64 100644 --- a/gnu/packages/textutils.scm +++ b/gnu/packages/textutils.scm @@ -1,6 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright =C2=A9 2015 Taylan Ulrich Bay=C4=B1rl=C4=B1/Kammer -;;; Copyright =C2=A9 2015 Mathieu Lirzin ;;; Copyright =C2=A9 2015 Ricardo Wurmus ;;; ;;; This file is part of GNU Guix. @@ -24,11 +23,8 @@ #:use-module (guix download) #:use-module (guix git-download) #:use-module (guix build-system gnu) - #:use-module (guix build-system trivial) #:use-module (gnu packages autotools) - #:use-module (gnu packages perl) - #:use-module (gnu packages python) - #:use-module (gnu packages zip)) + #:use-module (gnu packages python)) =20 (define-public recode (package @@ -159,47 +155,3 @@ encoding, supporting Unicode version 7.0.") "libgtextutils is a text utilities library used by the fastx toolki= t from the Hannon Lab.") (license license:agpl3+))) - -(define-public markdown - (package - (name "markdown") - (version "1.0.1") - (source - (origin - (method url-fetch) - (uri (string-append - "http://daringfireball.net/projects/downloads/" - (string-capitalize name) "_" version ".zip")) - (sha256 - (base32 "0dq1pj91pvlwkv0jwcgdfpv6gvnxzrk3s8mnh7imamcclnvfj835"))= )) - (build-system trivial-build-system) - (arguments - '(#:modules ((guix build utils)) - #:builder - (begin - (use-modules (guix build utils)) - (let ((source (assoc-ref %build-inputs "source")) - (out (assoc-ref %outputs "out")) - (perlbd (string-append (assoc-ref %build-inputs "perl") "= /bin")) - (unzip (string-append (assoc-ref %build-inputs "unzip") - "/bin/unzip"))) - (mkdir-p out) - (with-directory-excursion out - (system* unzip source) - (mkdir "bin") - (mkdir-p "share/doc") - (rename-file "Markdown_1.0.1/Markdown.pl" "bin/markdown") - (rename-file "Markdown_1.0.1/Markdown Readme.text" - "share/doc/README") - (patch-shebang "bin/markdown" (list perlbd)) - (delete-file-recursively "Markdown_1.0.1")))))) - (native-inputs `(("unzip" ,unzip))) - (inputs `(("perl" ,perl))) - (home-page "http://daringfireball.net/projects/markdown") - (synopsis "Text-to-HTML conversion tool") - (description - "Markdown is a text-to-HTML conversion tool for web writers. It al= lows -you to write using an easy-to-read, easy-to-write plain text format, the= n -convert it to structurally valid XHTML (or HTML).") - (license (license:non-copyleft "file://License.text" - "See License.text in the distribution= .")))) --------------2.4.3--