* lumina desktop package
@ 2019-02-10 3:13 Yoshinori Arai
2019-02-10 10:21 ` L p R n d n
0 siblings, 1 reply; 5+ messages in thread
From: Yoshinori Arai @ 2019-02-10 3:13 UTC (permalink / raw)
To: help-guix
Hello,
I'm making lumina-desktop package. I have succeeded to build the package but
failed to execute start-lumina-desktop in xinitrc after login with slim.
The log message is as follows,
Starting the Lumina desktop on current X11 session: ":0.0"
- Resetting monitor configuration to last-used settings
- Starting the session...
[Lumina] Checking User Files
- Old Version: "1.4.0"
- Current Version: "1.4.0"
- Made Changes: false
Finished with user files check
Got Desktop Process Finished: 11
Finished Closing Down Lumina
I have installed fluxbox individually so I think it's not needed to include it
in propagated-inputs. However, I tried to include it into propagated-inputs but
I got same result.
Please tell me some idea to resolve it.
Package definition is as follows,
(define-module (lumina)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix utils)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages xorg)
#:use-module (gnu packages qt)
#:use-module (gnu packages pdf) ;; poppler-qt5
#:use-module (gnu packages wm)
#:use-module (gnu packages xdisorg))
(define-public lumina-desktop
(package
(name "lumina-desktop")
(version "1.4.0-p1")
(source (origin
(method url-fetch)
(uri (string-append
"https://github.com/lumina-desktop/lumina/archive/v"
version ".tar.gz"))
(sha256
(base32
"0bz7jjcvqylizgri3mpn6isq7lgv74d2373i9nrv3jxwni72y83b"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-all-project-file
(lambda _
(for-each (lambda (f)
(let ((out (assoc-ref %outputs "out")))
(substitute* f
(("\\$\\$\\{L_SHAREDIR\\}")
(string-append out "/share"))
(("\\$\\$\\{L_SESSDIR\\}")
(string-append out "/share/xsessions"))
(("\\$\\$\\{L_ETCDIR\\}")
(string-append out "/etc"))
(("\\$\\$\\{L_MANDIR\\}")
(string-append out "/share/man"))
(("\\$\\$\\{LRELEASE\\}") (which "lrelease")))))
(find-files "." ".*\\.pro"))))
(add-after 'unpack 'fix-lumina-pdf-pro
(lambda _
(let ((pqt5 (assoc-ref %build-inputs "poppler-qt5")))
(substitute* "src-qt5/desktop-utils/lumina-pdf/lumina-pdf.pro"
(("\\$\\$\\{L_INCLUDEDIR\\}")
(string-append pqt5 "/include"))))
#t))
(add-after 'unpack 'fix-lthemeengine-pri
(lambda _
(let ((out (assoc-ref %outputs "out")))
(substitute* "src-qt5/core/lumina-theme-engine/lthemeengine.pri"
(("\\$\\$\\{DISTDIR\\}\\$\\$\\[QT_INSTALL_PLUGINS\\]")
(string-append out "/lib/qt5/plugins/styles"))))
#t))
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(invoke "qmake" "CONFIG+=WITH_I18N"
(string-append "PREFIX=" out))))))))
(native-inputs
`(("pkg-config" ,pkg-config)
("qttools" ,qttools)))
(inputs
`(("qtbase" ,qtbase)
("qtx11extras" ,qtx11extras)
("qtmultimedia" ,qtmultimedia)
("qtsvg" ,qtsvg)
("poppler-qt5" ,poppler-qt5)
("libxcb" ,libxcb)
("xcb-util" ,xcb-util)
("xcb-util-image" ,xcb-util-image)
("xcb-util-wm" ,xcb-util-wm)
("libxdamage" ,libxdamage)
("libxcursor" ,libxcursor)))
(propagated-inputs
`(("fluxbox" ,fluxbox)
("xscreensaver" ,xscreensaver)))
(home-page "https://www.lumina-desktop.org/")
(synopsis "Lightweight Desktop Environment")
(description "Lumina Desktop Environment is a lightweight system interface
that is designed for use on any Unix-like operating system.")
(license license:bsd-3)))
lumina-desktop
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: lumina desktop package
2019-02-10 3:13 lumina desktop package Yoshinori Arai
@ 2019-02-10 10:21 ` L p R n d n
2019-02-11 0:20 ` Yoshinori Arai
0 siblings, 1 reply; 5+ messages in thread
From: L p R n d n @ 2019-02-10 10:21 UTC (permalink / raw)
To: help-guix
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
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: lumina desktop package
2019-02-10 10:21 ` L p R n d n
@ 2019-02-11 0:20 ` Yoshinori Arai
2019-02-12 10:21 ` Efraim Flashner
0 siblings, 1 reply; 5+ messages in thread
From: Yoshinori Arai @ 2019-02-11 0:20 UTC (permalink / raw)
To: L p R n d n; +Cc: help-guix
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.
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: lumina desktop package
2019-02-11 0:20 ` Yoshinori Arai
@ 2019-02-12 10:21 ` Efraim Flashner
2019-02-12 21:28 ` Yoshinori Arai
0 siblings, 1 reply; 5+ messages in thread
From: Efraim Flashner @ 2019-02-12 10:21 UTC (permalink / raw)
To: Yoshinori Arai; +Cc: help-guix, L p R n d n
[-- Attachment #1: Type: text/plain, Size: 3244 bytes --]
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
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: lumina desktop package
2019-02-12 10:21 ` Efraim Flashner
@ 2019-02-12 21:28 ` Yoshinori Arai
0 siblings, 0 replies; 5+ messages in thread
From: Yoshinori Arai @ 2019-02-12 21:28 UTC (permalink / raw)
To: Efraim Flashner; +Cc: help-guix, L p R n d n
On Tue, Feb 12, 2019 at 12:21:05PM +0200, Efraim Flashner wrote:
> 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
Thank you. I will try it.
I have tried Lprndn's code but I got same result.
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2019-02-12 21:42 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2019-02-10 3:13 lumina desktop package Yoshinori Arai
2019-02-10 10:21 ` L p R n d n
2019-02-11 0:20 ` Yoshinori Arai
2019-02-12 10:21 ` Efraim Flashner
2019-02-12 21:28 ` Yoshinori Arai
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.