Add aegisub

Julien LepillerThu Feb 23 13:32:08+0100 2017

e9840a2

Add aegisub

README.md

2626 
-----
2727 
2828 
* _lugaru_: A third-person action game
29+
30+
Video
31+
-----
32+
33+
* _aegisub_: A subtitle editor
more/packages/boost.scm unknown status 1
1+
;;; GNU Guix --- Functional package management for GNU
2+
;;; Copyright ?? 2014 John Darrington <jmd@gnu.org>
3+
;;; Copyright ?? 2014, 2015 Mark H Weaver <mhw@netris.org>
4+
;;; Copyright ?? 2015 Andreas Enge <andreas@enge.fr>
5+
;;; Copyright ?? 2016 Eric Bavier <bavier@member.fsf.org>
6+
;;; Copyright ?? 2015 Ludovic Court??s <ludo@gnu.org>
7+
;;; Copyright ?? 2017 Julien Lepiller <julien@lepiller.eu>
8+
;;;
9+
;;; This file is part of GNU Guix.
10+
;;;
11+
;;; GNU Guix is free software; you can redistribute it and/or modify it
12+
;;; under the terms of the GNU General Public License as published by
13+
;;; the Free Software Foundation; either version 3 of the License, or (at
14+
;;; your option) any later version.
15+
;;;
16+
;;; GNU Guix is distributed in the hope that it will be useful, but
17+
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
18+
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
19+
;;; GNU General Public License for more details.
20+
;;;
21+
;;; You should have received a copy of the GNU General Public License
22+
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
23+
24+
(define-module (more packages boost)
25+
  #:use-module ((guix licenses) #:prefix license:)
26+
  #:use-module (guix packages)
27+
  #:use-module (guix download)
28+
  #:use-module (guix build-system gnu)
29+
  #:use-module (gnu packages)
30+
  #:use-module (gnu packages base)
31+
  #:use-module (gnu packages compression)
32+
  #:use-module (gnu packages icu4c)
33+
  #:use-module (gnu packages python)
34+
  #:use-module (gnu packages shells)
35+
  #:use-module (gnu packages perl))
36+
37+
(define-public boost
38+
  (package
39+
    (name "boost")
40+
    (version "1.63.0")
41+
    (source (origin
42+
              (method url-fetch)
43+
              (uri (string-append
44+
                    "mirror://sourceforge/boost/boost/" version "/boost_"
45+
                    (string-map (lambda (x) (if (eq? x #\.) #\_ x)) version)
46+
                    ".tar.bz2"))
47+
              (sha256
48+
               (base32
49+
                "1c5kzhcqahnic55dxcnw7r80qvwx5sfa2sa97yzv7xjrywljbbmy"))))
50+
    (build-system gnu-build-system)
51+
    (inputs
52+
     `(("zlib" ,zlib)
53+
       ("icu" ,icu4c)))
54+
    (native-inputs
55+
     `(("perl" ,perl)
56+
       ("python" ,python-2)
57+
       ("tcsh" ,tcsh)
58+
       ("which" ,which)))
59+
    (arguments
60+
     `(#:tests? #f
61+
       #:make-flags
62+
       (list "threading=multi" "link=shared"
63+
64+
             ;; Set the RUNPATH to $libdir so that the libs find each other.
65+
             (string-append "linkflags=-Wl,-rpath="
66+
                            (assoc-ref %outputs "out") "/lib")
67+
68+
             ;; Boost's 'context' library is not yet supported on mips64, so
69+
             ;; we disable it.  The 'coroutine' library depends on 'context',
70+
             ;; so we disable that too.
71+
             ,@(if (string-prefix? "mips64" (or (%current-target-system)
72+
                                                (%current-system)))
73+
                   '("--without-context"
74+
                     "--without-coroutine" "--without-coroutine2")
75+
                   '()))
76+
       #:phases
77+
       (modify-phases %standard-phases
78+
         (replace
79+
             'configure
80+
           (lambda* (#:key outputs #:allow-other-keys)
81+
             (let ((out (assoc-ref outputs "out")))
82+
               (substitute* '("libs/config/configure"
83+
                              "libs/spirit/classic/phoenix/test/runtest.sh"
84+
                              "tools/build/doc/bjam.qbk"
85+
                              "tools/build/src/engine/execunix.c"
86+
                              "tools/build/src/engine/Jambase"
87+
                              "tools/build/src/engine/jambase.c")
88+
                 (("/bin/sh") (which "sh")))
89+
90+
               (setenv "SHELL" (which "sh"))
91+
               (setenv "CONFIG_SHELL" (which "sh"))
92+
93+
               (zero? (system* "./bootstrap.sh"
94+
                               (string-append "--prefix=" out)
95+
                               "--with-toolset=gcc" "--with-icu")))))
96+
         (replace
97+
             'build
98+
           (lambda* (#:key outputs make-flags #:allow-other-keys)
99+
             (zero? (apply system* "./b2"
100+
                           (format #f "-j~a" (parallel-job-count))
101+
                           make-flags))))
102+
         (replace
103+
             'install
104+
           (lambda* (#:key outputs make-flags #:allow-other-keys)
105+
             (zero? (apply system* "./b2" "install" make-flags)))))))
106+
107+
    (home-page "http://boost.org")
108+
    (synopsis "Peer-reviewed portable C++ source libraries")
109+
    (description
110+
     "A collection of libraries intended to be widely useful, and usable
111+
across a broad spectrum of applications.")
112+
    (license (license:x11-style "http://www.boost.org/LICENSE_1_0.txt"
113+
                                "Some components have other similar licences."))))
more/packages/video.scm unknown status 1
1+
;;; GNU Guix --- Functional package management for GNU
2+
;;; Copyright ?? 2017 Julien Lepiller <julien@lepiller.eu>
3+
;;;
4+
;;; This file is part of GNU Guix.
5+
;;;
6+
;;; GNU Guix is free software; you can redistribute it and/or modify it
7+
;;; under the terms of the GNU General Public License as published by
8+
;;; the Free Software Foundation; either version 3 of the License, or (at
9+
;;; your option) any later version.
10+
;;;
11+
;;; GNU Guix is distributed in the hope that it will be useful, but
12+
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
13+
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14+
;;; GNU General Public License for more details.
15+
;;;
16+
;;; You should have received a copy of the GNU General Public License
17+
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
18+
19+
(define-module (more packages video)
20+
  #:use-module (guix packages)
21+
  #:use-module (guix download)
22+
  #:use-module (guix build-system gnu)
23+
  #:use-module ((guix licenses) #:prefix license:)
24+
  #:use-module (gnu packages)
25+
  #:use-module (gnu packages algebra)
26+
  #:use-module (more packages boost)
27+
  #:use-module (gnu packages compression)
28+
  #:use-module (gnu packages fontutils)
29+
  #:use-module (gnu packages gl)
30+
  #:use-module (gnu packages glib)
31+
  #:use-module (gnu packages gnome)
32+
  #:use-module (gnu packages libreoffice) ; hunspell
33+
  #:use-module (gnu packages linux)
34+
  #:use-module (gnu packages pkg-config)
35+
  #:use-module (gnu packages pulseaudio)
36+
  #:use-module (gnu packages video)
37+
  #:use-module (gnu packages wxwidgets)
38+
  #:use-module (gnu packages xorg))
39+
40+
(define-public ffms2
41+
  (package
42+
   (name "ffms2")
43+
   (version "2.23")
44+
   (home-page "https://github.com/FFMS/ffms2/")
45+
   (source (origin
46+
             (method url-fetch)
47+
             (uri (string-append home-page "archive/" version ".tar.gz"))
48+
             (sha256
49+
              (base32
50+
               "1vbkab8vrplxz5xgag8ggzkwp4f7nf285pd0l2a7zy66n6i2m6xh"))))
51+
   (build-system gnu-build-system)
52+
   (arguments
53+
    '(#:configure-flags
54+
      (list "--enable-avresample")))
55+
   (inputs
56+
    `(("zlib" ,zlib)))
57+
   (propagated-inputs
58+
    `(("ffmpeg" ,ffmpeg)))
59+
   (native-inputs
60+
    `(("pkg-config" ,pkg-config)))
61+
   (synopsis "Cross-plateform wrapper around ffmpeg/libav")
62+
   (description
63+
     "FFMpegSource is a wrapper library around ffmpeg/libav that allows
64+
programmers to access a standard API to open and decompress media files")
65+
   (license license:gpl2+))); inherits from ffmpeg
66+
  ;; sources are distributed under a different license that the binary.
67+
  ;; see https://github.com/FFMS/ffms2/blob/master/COPYING
68+
69+
(define-public aegisub
70+
  (package
71+
    (name "aegisub")
72+
    (version "3.2.2")
73+
    (source (origin
74+
              (method url-fetch)
75+
              (uri (string-append
76+
                     "http://ftp.aegisub.org/pub/archives/releases/source/"
77+
                     name "-" version ".tar.xz"))
78+
              (sha256
79+
               (base32
80+
                "11b83qazc8h0iidyj1rprnnjdivj1lpphvpa08y53n42bfa36pn5"))))
81+
    (build-system gnu-build-system)
82+
    (arguments
83+
     `(#:configure-flags
84+
       (list "--disable-update-checker"
85+
             "--without-portaudio"
86+
             "--without-openal"
87+
             "--without-oss")
88+
       ;; tests require busted, a lua package we don't have yet
89+
       #:tests? #f))
90+
    (inputs
91+
     `(("boost" ,boost)
92+
       ("desktop-file-utils" ,desktop-file-utils)
93+
       ("ffms2" ,ffms2)
94+
       ("fftw" ,fftw)
95+
       ("hunspell" ,hunspell)
96+
       ("mesa" ,mesa)
97+
       ("libass" ,libass)
98+
       ("alsa-lib" ,alsa-lib)
99+
       ("pulseaudio" ,pulseaudio)
100+
       ("libx11" ,libx11)
101+
       ("freetype" ,freetype)
102+
       ("wxwidgets-gtk2" ,wxwidgets-gtk2)))
103+
    (native-inputs
104+
     `(("intltool" ,intltool)
105+
       ("pkg-config" ,pkg-config)))
106+
    (home-page "http://www.aegisub.org/")
107+
    (synopsis "Subtitle engine")
108+
    (description "Aegisub helps translators create subtitles for video")
109+
    (license (list license:bsd-3 ; the package is licensed under the bsd-3, except
110+
                   license:mpl1.1 ; for vendor/universalchardet under the mpl1.1
111+
                   license:expat)))) ; and src/gl that is under a license similar
112+
   ; the the Expat license, with a rewording (Software -> Materials). (called MIT
113+
   ; by upstream). See https://github.com/Aegisub/Aegisub/blob/master/LICENCE
114+
   ; src/MatroskaParser.(c|h) is under bsd-3 with permission from the author