[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

lumina desktop package

From: Yoshinori Arai
Subject: lumina desktop package
Date: Sun, 10 Feb 2019 12:13:02 +0900
User-agent: NeoMutt/20180716


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
    (name "lumina-desktop")
    (version "1.4.0-p1")
    (source (origin
          (method url-fetch)
          (uri (string-append
                version ".tar.gz"))
    (build-system gnu-build-system)
       (modify-phases %standard-phases
         (add-after 'unpack 'fix-all-project-file
           (lambda _
             (for-each (lambda (f)
                         (let ((out (assoc-ref %outputs "out")))
                           (substitute* f
                              (string-append out "/share"))
                              (string-append out "/share/xsessions"))
                              (string-append out "/etc"))
                              (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/"
                  (string-append pqt5 "/include"))))
         (add-after 'unpack 'fix-lthemeengine-pri
           (lambda _
             (let ((out (assoc-ref %outputs "out")))
               (substitute* "src-qt5/core/lumina-theme-engine/lthemeengine.pri"
                  (string-append out "/lib/qt5/plugins/styles"))))
         (replace 'configure
           (lambda* (#:key outputs #:allow-other-keys)
             (let ((out (assoc-ref outputs "out")))
               (invoke "qmake" "CONFIG+=WITH_I18N"
                       (string-append "PREFIX=" out))))))))
     `(("pkg-config" ,pkg-config)
       ("qttools" ,qttools)))
     `(("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)))
     `(("fluxbox" ,fluxbox)
       ("xscreensaver" ,xscreensaver)))
    (home-page "";)
    (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)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]