unofficial mirror of help-guix@gnu.org 
 help / color / mirror / Atom feed
From: L  p R n  d n    <guix@lprndn.info>
To: help-guix@gnu.org
Subject: Re: lumina desktop package
Date: Sun, 10 Feb 2019 11:21:52 +0100	[thread overview]
Message-ID: <cucimxsq6yn.fsf@lprndn.info> (raw)
In-Reply-To: <20190210031302.lv3w6zafw6ceftry@WaraToNora> (Yoshinori Arai's message of "Sun, 10 Feb 2019 12:13:02 +0900")

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

  reply	other threads:[~2019-02-10  9:21 UTC|newest]

Thread overview: 5+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2019-02-10  3:13 lumina desktop package Yoshinori Arai
2019-02-10 10:21 ` L p R n d n [this message]
2019-02-11  0:20   ` Yoshinori Arai
2019-02-12 10:21     ` Efraim Flashner
2019-02-12 21:28       ` Yoshinori Arai

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://guix.gnu.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=cucimxsq6yn.fsf@lprndn.info \
    --to=guix@lprndn.info \
    --cc=help-guix@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).