Re: add aegisub

[Julien Lepiller <julien@lepiller.eu>]

[-- Attachment #1: Type: text/plain, Size: 1923 bytes --]

On Sun, 23 Oct 2016 20:21:08 +0300
Theodoros Foradis <theodoros.for@openmailbox.org> wrote:

> On 2016-10-22 23:30, Julien Lepiller wrote:
> > Hi,
> > 
> > I made three patches to add aegisub. It needs icu support in boost.
> > 
> > Currently, the window acts strangely. Widgets resize when resizing
> > the window, but not when maximizing it, they don't all show at
> > first. The video part should resize with the mouse wheel, but the
> > containing frame only resizes after resizing the window. sliders
> > don't visually move, but they are functionnal. Sound can't play (it
> > defaults to alsa which doesn't work on my system, and crashes when
> > selecting pulseaudio with "Assertion 'c->callback' failed at
> > pulsecore/socket-client.c:126, function do_call(). Aborting.").
> > 
> > So I need some help here.
> > 
> > Also the testing suite depends on a lua package that is not in guix
> > yet and has a lot of dependencies not in guix. So I disabled it for 
> > now.  
> 
> Hello,
> 
> I have been packaging kicad (which uses wxwidgets), and I came across 
> the
> same window resizing issues. I got around them by adding a version of
> wxwidgets-3.0.2 which uses gtk+-2 as an input.
> 
> I plan to post the patches soon, but if it works for aegisub, you can
> add it first. I use the following package definition:
> 
> (define-public wxwidgets-gtk2
>    (package (inherit wxwidgets)
>             (inputs `(("gtk+" ,gtk+-2)
>                       ,@(alist-delete
>                          "gtk+"
>                          (package-inputs wxwidgets))))
>             (name "wxwidgets-gtk2")))

Thank you so much! That's a lot better :)

So now I only have one issue left: no sound. Alsa doesn't work:

ALSA lib pcm_dmix.c:1022:(snd_pcm_dmix_open) unable to open slave

and setting to pulseaudio crashes:

Assertion 'c->callback' failed at pulsecore/socket-client.c:126,
function do_call(). Aborting.

Any idea?

[-- Attachment #2: 0001-gnu-Add-wxwidgets-gtk2.patch --]
[-- Type: text/x-patch, Size: 956 bytes --]

From c08329ba9cca3469c49ec374dcd9316943d2ad5c Mon Sep 17 00:00:00 2001
From: Julien Lepiller <julien@lepiller.eu>
Date: Sun, 23 Oct 2016 21:58:24 +0200
Subject: [PATCH 1/4] gnu: Add wxwidgets-gtk2

* gnu/packages/wxwidgets.scm (wxwidgets-gtk2): New variable.
---
 gnu/packages/wxwidgets.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/packages/wxwidgets.scm b/gnu/packages/wxwidgets.scm
index 31da2a9..a8ab028 100644
--- a/gnu/packages/wxwidgets.scm
+++ b/gnu/packages/wxwidgets.scm
@@ -109,3 +109,11 @@ and many other languages.")
                             (assoc-ref %outputs "out") "/lib"))
        ;; No 'check' target.
        #:tests? #f))))
+
+(define-public wxwidgets-gtk2
+   (package (inherit wxwidgets)
+            (inputs `(("gtk+" ,gtk+-2)
+                      ,@(alist-delete
+                         "gtk+"
+                         (package-inputs wxwidgets))))
+            (name "wxwidgets-gtk2")))
-- 
2.10.1


[-- Attachment #3: 0002-gnu-Add-ffms2.patch --]
[-- Type: text/x-patch, Size: 1649 bytes --]

From d901b1096d40889dbadc39f5291f242bf5626df3 Mon Sep 17 00:00:00 2001
From: Julien Lepiller <julien@lepiller.eu>
Date: Sun, 23 Oct 2016 21:59:23 +0200
Subject: [PATCH 2/4] gnu: Add ffms2.

* gnu/packages/video.scm (ffms2): New variable.
---
 gnu/packages/video.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index bd82eb8..d6da6c0 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -586,6 +586,32 @@ audio/video codec library.")
                     flag))
               ,flags))))))
 
+(define-public ffms2
+ (package
+  (name "ffms2")
+  (version "2.23")
+  (home-page "https://github.com/FFMS/ffms2/")
+  (source (origin
+           (method url-fetch)
+           (uri (string-append home-page "archive/" version ".tar.gz"))
+           (sha256
+            (base32
+             "1vbkab8vrplxz5xgag8ggzkwp4f7nf285pd0l2a7zy66n6i2m6xh"))))
+  (build-system gnu-build-system)
+  (arguments
+   '(#:configure-flags
+       (list "--enable-avresample")))
+  (inputs `(("zlib" ,zlib)))
+  (propagated-inputs `(("ffmpeg" ,ffmpeg)))
+  (native-inputs `(("pkg-config" ,pkg-config)))
+  (synopsis "Cross-plateform wrapper around ffmpeg/libav")
+  (description
+   "FFMpegSource is a wrapper library around ffmpeg/libav that allows
+programmers to access a standard API to open and decompress media files")
+  (license license:gpl2+))) ; inherits from ffmpeg
+ ; sources are distributed under a different license that the binary.
+ ; see https://github.com/FFMS/ffms2/blob/master/COPYING
+
 (define-public vlc
   (package
     (name "vlc")
-- 
2.10.1


[-- Attachment #4: 0003-boost-Add-icu-support.patch --]
[-- Type: text/x-patch, Size: 1509 bytes --]

From d68a49ed2a518abddfbba5316222b94300ab749c Mon Sep 17 00:00:00 2001
From: Julien Lepiller <julien@lepiller.eu>
Date: Sun, 23 Oct 2016 22:00:12 +0200
Subject: [PATCH 3/4] boost: Add icu support.

* gnu/packages/boost.scm (boost): Add icu4c as input.
---
 gnu/packages/boost.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/boost.scm b/gnu/packages/boost.scm
index ab31fa8..c4a607e 100644
--- a/gnu/packages/boost.scm
+++ b/gnu/packages/boost.scm
@@ -27,6 +27,7 @@
   #:use-module (guix build-system gnu)
   #:use-module (gnu packages)
   #:use-module (gnu packages compression)
+  #:use-module (gnu packages icu4c)
   #:use-module (gnu packages python)
   #:use-module (gnu packages shells)
   #:use-module (gnu packages perl))
@@ -45,7 +46,8 @@
                (base32
                 "0h5nk7pgxf7xsvvshj9qfpsfp9wx6gq9r78n3nx736pxq83bsix5"))))
     (build-system gnu-build-system)
-    (inputs `(("zlib" ,zlib)))
+    (inputs `(("zlib" ,zlib)
+              ("icu4c" ,icu4c)))
     (native-inputs
      `(("perl" ,perl)
        ("python" ,python-2)
@@ -86,7 +88,8 @@
 
                (zero? (system* "./bootstrap.sh"
                                (string-append "--prefix=" out)
-                               "--with-toolset=gcc")))))
+                               "--with-toolset=gcc"
+                               "--with-icu")))))
          (replace
              'build
            (lambda* (#:key outputs make-flags #:allow-other-keys)
-- 
2.10.1


[-- Attachment #5: 0004-gnu-Add-aegisub.patch --]
[-- Type: text/x-patch, Size: 3033 bytes --]

From 250a1c91ad1644ce998518eab77460869fab49ac Mon Sep 17 00:00:00 2001
From: Julien Lepiller <julien@lepiller.eu>
Date: Sun, 23 Oct 2016 22:01:00 +0200
Subject: [PATCH 4/4] gnu: Add aegisub.

* gnu/packages/video.scm (aegisub): New variable.
---
 gnu/packages/video.scm | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index d6da6c0..cc70e3d 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -88,6 +88,10 @@
   #:use-module (gnu packages xiph)
   #:use-module (gnu packages xml)
   #:use-module (gnu packages xorg)
+  #:use-module (gnu packages wxwidgets)
+  #:use-module (gnu packages boost)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages libreoffice) ; hunspell
   #:use-module (gnu packages assembly)
   #:use-module (gnu packages zip))
 
@@ -612,6 +616,51 @@ programmers to access a standard API to open and decompress media files")
  ; sources are distributed under a different license that the binary.
  ; see https://github.com/FFMS/ffms2/blob/master/COPYING
 
+(define-public aegisub
+ (package
+  (name "aegisub")
+  (version "3.2.2")
+  (home-page "http://www.aegisub.org/")
+  (source (origin
+           (method url-fetch)
+           (uri (string-append
+                 "http://ftp.aegisub.org/pub/archives/releases/source/"
+                 name "-" version ".tar.xz"))
+           (sha256
+              (base32
+               "11b83qazc8h0iidyj1rprnnjdivj1lpphvpa08y53n42bfa36pn5"))))
+  (build-system gnu-build-system)
+  (arguments
+   `(#:configure-flags
+       (list "--disable-update-checker"
+             "--without-portaudio"
+             "--without-openal"
+             "--without-oss")
+     ;#:test-target "test")) ;; requires busted, a lua package we don't have yet
+     #:tests? #f))
+  (inputs `(("boost" ,boost)
+            ("desktop-file-utils" ,desktop-file-utils)
+            ("ffms2" ,ffms2)
+            ("fftw" ,fftw)
+            ("hunspell" ,hunspell)
+            ("mesa" ,mesa)
+            ("libass" ,libass)
+            ("alsa-lib" ,alsa-lib)
+            ("pulseaudio$" ,pulseaudio)
+            ("libx11" ,libx11)
+            ("freetype" ,freetype)
+            ("wxwidgets-gtk2" ,wxwidgets-gtk2)))
+  (native-inputs `(("intltool" ,intltool)
+                   ("pkg-config" ,pkg-config)))
+  (synopsis "Subtitle engine")
+  (description "Aegisub helps translators create subtitles for video")
+  (license (list license:bsd-3 ; the package is licensed under the bsd-3, except
+                 license:mpl1.1 ; for vendor/universalchardet under the mpl1.1
+                 license:expat)))) ; and src/gl that is under a license similar
+ ; the the Expat license, with a rewording (Software -> Materials). (called MIT
+ ; by upstream). See https://github.com/Aegisub/Aegisub/blob/master/LICENCE
+ ; src/MatroskaParser.(c|h) is under bsd-3 with permission from the author
+
 (define-public vlc
   (package
     (name "vlc")
-- 
2.10.1