On Mon, Feb 11, 2019 at 09:20:34AM +0900, Yoshinori Arai wrote:
> On Sun, Feb 10, 2019 at 11:21:52AM +0100, L p R n d n wrote:
> > Hello,
> > 
> > Funny, I just wrote a package definition for Lumina yesterday too.
> > Mine is a rougher (just builds and starts) but I didn't have any troube
> > starting lumina. I didn't use xinitrc though. I just choosed lumina
> > session in slim so it might not be helpfull to you...
> > Here is the (arguments) part of what I wrote as it's probably where the
> > magic happens (Mostly a rewrite of NixOS definition). Hope it helps.
> > Maybe there's something hidden in the differences... 
> > 
> >  (arguments
> >      `(#:phases
> >        (modify-phases %standard-phases
> >          (replace 'configure
> >            (lambda* (#:key outputs #:allow-other-keys)
> >              (let ((out (assoc-ref outputs "out")))
> >                (invoke "qmake"
> >                        (string-append "PREFIX=" out)))
> >              #t))
> >          (add-after 'unpack 'fix-paths
> >            (lambda* (#:key outputs inputs #:allow-other-keys)
> >              ;; Find Poppler-qt5
> >              (substitute* "src-qt5/desktop-utils/lumina-pdf/mainUI.h"
> >                (("#include <poppler-qt5.h>") "#include <poppler/qt5/poppler-qt5.h>"))
> >              ;; Fix plugins directory
> >              (substitute* "src-qt5/core/lumina-theme-engine/lthemeengine.pri"
> >                (("\\$\\[QT_INSTALL_PLUGINS\\]") (string-append (assoc-ref outputs "out")
> >                                                                "/lib/qt5/plugins")))
> >              ;; Find Fluxbox styles
> >              (substitute* "src-qt5/core-utils/lumina-config/pages/page_fluxbox_settings.cpp"
> >                (("LOS::AppPrefix()+\"share/fluxbox") (string-append
> >                                                       (assoc-ref inputs "fluxbox")
> >                                                       "/share/fluxbox")))
> >              (substitute* "src-qt5/OS-detect.pri"
> >                (("L_SESSDIR=/usr/share/xsessions") ""))
> >              (substitute* "src-qt5/core/libLumina/LuminaOS-Linux.cpp"
> >                (("\"/usr/\"") "PREFIX"))
> >              #t))
> >          (add-before 'configure 'chdir
> >            (lambda _
> >              (chdir "src-qt5")
> >              #t)))))
> > 
> > Have a nice day,
> > 
> > Lprndn
> > 
> 
> Hello,
> 
> Thank you for your suggestion.
> I'm going to try to build lumina-desktop with using part of your code. I was
> thinking how to debug lumina-desktop to find where is problem in c++ code.
> 

I haven't built it in a while but I have a copy of lumina which boots
correctly in a VM. I don't use it personally so I never cleaned up the
rough edges (PATH searching, etc) and submitted it.

https://gitlab.com/Efraim/my-guix/blob/master/wip/lumina.scm
and the patch mentioned in the file:
https://gitlab.com/Efraim/my-guix/blob/master/add-LuminaOS-GuixSD.patch

-- 
Efraim Flashner   <efraim@flashner.co.il>   אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted