Proposal to include IceWm and ROX Filer

Proposal to include IceWm and ROX Filer

[Louis]

Hello,

I would like to propose to include following excellent
software packages:

- IceWm as it is fast, stable X Window Manager:
http://www.icewm.org/

- And also ROX Filer: http://rox.sourceforge.net/desktop/

- mu that has guile bindings:
http://www.djcbsoftware.nl/code/mu/ and provides quick
Maildir search facilities

I would like to propose to make Guix minimalist solution
based on IceWm, mutt, ROX, etc, and I am willing to help on that.

Louis

Re: Proposal to include IceWm and ROX Filer

[Christopher Allan Webber]

Louis writes:

> Hello,
>
> I would like to propose to include following excellent
> software packages:
>
> - IceWm as it is fast, stable X Window Manager:
> http://www.icewm.org/
> 
> - And also ROX Filer: http://rox.sourceforge.net/desktop/

Patches welcome!


> - mu that has guile bindings:
> http://www.djcbsoftware.nl/code/mu/ and provides quick
> Maildir search facilities

We have mu!

Re: Proposal to include IceWm and ROX Filer

[Louis]

Hello,

Do you mean I should prepare the packages? Not ready for
that, as I tried to use Guix, but is unmounting my /home so
I have particular unsolved problem, that maybe is solved in
help-guix soon. 

Later I would like to contribute to Guix as it is truly
free, GNU, it has user approach and works with Guile.

Louis

On Mon, Mar 07, 2016 at 05:43:58PM -0800, Christopher Allan Webber wrote:
> Louis writes:
> 
> > Hello,
> >
> > I would like to propose to include following excellent
> > software packages:
> >
> > - IceWm as it is fast, stable X Window Manager:
> > http://www.icewm.org/
> > 
> > - And also ROX Filer: http://rox.sourceforge.net/desktop/
> 
> Patches welcome!
> 
> 
> > - mu that has guile bindings:
> > http://www.djcbsoftware.nl/code/mu/ and provides quick
> > Maildir search facilities
> 
> We have mu!

wip-rox.scm : ROX Desktop

[Danny Milosavljevic]

Hello Louis,

well, writing the package declaration is easy - if you have the time, it would be nice.

But I understand that you have to get guix working for you first.

I have a work-in-progress for the ROX Desktop (the ROX-Filer and ROX-Session parts work), see below; you can use it as a starting point.

ROX Filer has many forks and some of them are very different from what is on the main site.

I still used the original fork for now. 

To use it, with your normal user account do:
$ git clone git://git.sv.gnu.org/guix.git
$ cd guix
$ ./bootstrap
$ ./configure --localstatedir=/var
$ # put contents below into gnu/packages/wip-rox.scm
$ make
$ make check
$ ./pre-inst-env guix package -i rox-filer
$ # from now on, always use guix via ./pre-inst-env guix

Or wait until someone else did it and brought it all the way into an official guix release.

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages rox)
  #:use-module ((guix licenses) #:hide (freetype))
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix utils)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system glib-or-gtk)
  #:use-module (gnu packages)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages xorg)
  #:use-module (gnu packages xdisorg)
  #:use-module (gnu packages web)
  #:use-module (gnu packages fontutils)
  #:use-module (gnu packages image)
  #:use-module (gnu packages gnome)
  #:use-module (gnu packages xml)
  #:use-module (gnu packages pdf)
  #:use-module (gnu packages gettext)
  #:use-module (gnu packages polkit)
  #:use-module (gnu packages gstreamer)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages photo)
  #:use-module (gnu packages pcre)
  #:use-module (gnu packages pulseaudio))

; FIXME add rox-clib

(define-public rox-lib
  (package
    (name "rox-lib")
    (version "2.0.6")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://sourceforge/rox/rox-lib2-"
                                  (version-major+minor version)
                                  ".tar.bz2"))
              (sha256
               (base32 ; FIXME
                "07c8r3xwx5is298zk77m3r784gmr5y4mh8bbca5zdjqk5vxdwsw7"))))
    (build-system gnu-build-system)
    (native-inputs
     `(("pkg-config" ,pkg-config)
       ("intltool" ,intltool))) ; FIXME
    (propagated-inputs `(("glib" ,glib))) ; required by *.pc ; FIXME
    (home-page "http://rox.sourceforge.net/desktop/")
    (synopsis "Basic utility library for ROX")
    (description "A general-purpose utility library for ROX")
    (license lgpl2.0+))) ; FIXME

(define-public rox-session
  (package
    (name "rox-session")
    (version "0.40.0")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://sourceforge/rox/rox-session-"
                                  version
                                  ".tar.gz"))
              (sha256
               (base32
                "15jf4nl51mh3pc45r0hlz24rn3hz6c3qqli40w9bm1bd4a00z0cn"))))
    (build-system gnu-build-system)
    (arguments
     '(#:out-of-source? #t
       #:configure-flags (list (string-append "--with-xsession-prefix=" %output))
       #:tests? #f
       #:phases (alist-cons-before
                 'configure 'pre-configure
                 (lambda _
                   (chdir "src"))
                 (alist-replace
                  'install
                  (lambda* (#:key outputs #:allow-other-keys)
                   ;(zero? (system* "pwd"))) ; FIXME
                   (let* ((out (assoc-ref outputs "out"))
                          (bin (string-append out "/bin")))
                      (and
                        (zero? (system* "mkdir" out))
                        (zero? (system* "mkdir" bin))
                        (zero? (system* "cp" "--" "../src/../ROX-Session" bin))) ; FIXME
                      ))
                  %standard-phases))))
    (native-inputs ; FIXME
     `(("pkg-config" ,pkg-config)
       ("intltool" ,intltool)))
    (inputs ; FIXME check
     `(;("iceauth" ,iceauth)
       ;("upower" ,upower)
       ;("polkit" ,polkit)
       ;("libsm" ,libsm)
       ;("libwnck" ,libwnck-1)
       ("libxtst" ,libxtst)
       ("libxxf86vm" ,libxxf86vm)
       ("dbus-glib" ,dbus-glib)
       ("dbus" ,dbus)
       ("libxml2"       ,libxml2) ; 2.0.0
       ("gtk2"     ,gtk+-2))) ; 2.12.0
    (home-page "http://rox.sourceforge.net/desktop/")
    (synopsis "ROX session manager")
    (description
     "Session manager for ROX. It will restore your session on startup.")
    (license gpl2+))) ; FIXME

; FIXME
(define-public rox-settings
  (package
    (name "rox-settings")
    (version "4.12.0")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://sourceforge/rox/rox-settings-"
                                  (version-major+minor version)
                                  ".tar.bz2"))
              (sha256
               (base32
                "108za1cmjslwzkdl76x9kwxkq8z734kg9nz8rxk057f10pqwxgh4"))
))
    (build-system gnu-build-system)
    (native-inputs
     `(("pkg-config" ,pkg-config)
       ("intltool" ,intltool)))
    (inputs ; FIXME
     `(
       ("libnotify" ,libnotify)
       ("libxcursor", libxcursor)
       ("libxi" ,libxi)
       ("libxklavier" ,libxklavier)
       ("libxrandr" ,libxrandr)
       ("upower" ,upower)
       ("xf86-input-libinput" ,xf86-input-libinput)))
    (home-page "http://rox.sourceforge.net/desktop/")
    (synopsis "ROX settings manager")
    (description "Settings manager for ROX")
    (license gpl2+))) ; FIXME

; see also https://mail-index.netbsd.org/pkgsrc-bugs/2016/02/07/msg058783.html
; see also https://github.com/dtomas/rox-filer/commits/master
(define-public rox-filer 
  (package
    (name "rox-filer")
    (version "2.11")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://sourceforge/rox/rox-filer-"
                                  version ".tar.bz2"))
              (sha256
               (base32
                "1a0v21y3srmz0ikg62df6hpc94j5axs1b5wbshp7mvqqxqrbsad9"))))
    (build-system gnu-build-system)
    (arguments
     '(#:out-of-source? #t
       #:configure-flags '("LDFLAGS=-ldl -lm")
       #:tests? #f
       #:phases (alist-cons-before
                 'configure 'pre-configure
                 (lambda _
                   (chdir "ROX-Filer/src"))
                 (alist-replace
                  'install
                  (lambda* (#:key outputs #:allow-other-keys)
                   ;(zero? (system* "pwd"))) ; FIXME
                   (let* ((out (assoc-ref outputs "out"))
                          (bin (string-append out "/bin")))
                      (and
                        (zero? (system* "mkdir" out))
                        (zero? (system* "mkdir" bin))
                        (zero? (system* "cp" "--" "../src/../ROX-Filer" bin))) ; FIXME
                      ))
                  %standard-phases))))
    (native-inputs ; FIXME
     `(("pkg-config" ,pkg-config)
       ;("coreutils" ,coreutils)
       ("intltool" ,intltool)
       ("gettext" ,gnu-gettext)))  ; FIXME is gettext implicit?
    (inputs
     `(("libsm" ,libsm)
       ("shared-mime-info"     ,shared-mime-info)  ; 0.14
       ("libxml2"       ,libxml2) ; 2.0.0
       ("gtk2"     ,gtk+-2))) ; 2.12.0
    (home-page "http://rox.sourceforge.net/desktop/")
    (synopsis "ROX file manager")
    (description "A modern file manager for ROX graphical desktop")
    (license gpl2+)))

(define-public rox
  (package
    (name "rox")
    (version (package-version rox-session))
    (source #f)
    (build-system glib-or-gtk-build-system)
    (arguments
     '(#:modules ((guix build gnu-build-system)
                  (guix build glib-or-gtk-build-system)
                  (guix build utils)
                  (srfi srfi-26)) ))
    (propagated-inputs
     `(("rox-lib"              ,rox-lib) ; TODO remove
       ("gnome-icon-theme"     ,gnome-icon-theme) ; TODO remove ?
       ("hicolor-icon-theme"   ,hicolor-icon-theme)
       ("shared-mime-info"     ,shared-mime-info)  ; TODO remove explicit mention?
       ("rox-filer"            ,rox-filer)
       ("rox-session"          ,rox-session)
       ("rox-settings"         ,rox-settings)
       ))
    (home-page "http://rox.sourceforge.net/desktop/")
    (synopsis "Desktop environment (meta-package)")
    (description "ROX is a RISC OS-like desktop environment.")
    (license gpl2+))) ; FIXME collect more licenses

Re: wip-rox.scm : ROX Desktop

[Nils Gillmann]

Danny Milosavljevic <dannym@scratchpost.org> writes:

> To use it, with your normal user account do:
> $ git clone git://git.sv.gnu.org/guix.git
> $ cd guix
> $ ./bootstrap
./bootstrap? for me this part is checkout / pull latest merges,
make clean, ./configure --localstatedir=/var, make
etc
why bootstrap when we are talking about GuixSD (probably)?
> $ ./configure --localstatedir=/var
> $ # put contents below into gnu/packages/wip-rox.scm
> $ make
> $ make check
> $ ./pre-inst-env guix package -i rox-filer
> $ # from now on, always use guix via ./pre-inst-env guix


-- 
ng
irc://loupsycedyglgamf.onion:67/~NiAsterisk
https://psyced.org:34443/NiAsterisk/
EDN: https://wiki.c3d2.de/Echt_Dezentrales_Netz/en

Re: wip-rox.scm : ROX Desktop

[Ludovic Courtès]

Danny Milosavljevic <dannym@scratchpost.org> skribis:

> I have a work-in-progress for the ROX Desktop (the ROX-Filer and ROX-Session parts work), see below; you can use it as a starting point.

Nice, sounds like you’re almost there!

Once you have polished the patches, feel free to send them more
“formally” following the guidelines at
<https://www.gnu.org/software/guix/manual/html_node/Submitting-Patches.html>.

Thanks,
Ludo’.

Re: wip-rox.scm : ROX Desktop

[Danny Milosavljevic]

Hi Nils,

On Tue, 08 Mar 2016 09:16:41 +0100
Nils Gillmann <niasterisk@grrlz.net> wrote:

> for me this part is checkout / pull latest merges,
> make clean, ./configure --localstatedir=/var, make
> etc
> why bootstrap when we are talking about GuixSD (probably)?

It just does automake and autoconf so you end up with a configure script in the first place, no?

Re: wip-rox.scm : ROX Desktop

[Jean Louis]

Hello Danny,

This is great, and I hope it will be included in GuixSD.

Combination of ROX filer and file manager, can make very nice system,
without too big graphical environments.

On Tue, Mar 08, 2016 at 09:04:43AM +0100, Danny Milosavljevic wrote:
> Hello Louis,
> 
> well, writing the package declaration is easy - if you have the time, it would be nice.
> 
> But I understand that you have to get guix working for you first.
> 
> I have a work-in-progress for the ROX Desktop (the ROX-Filer and ROX-Session parts work), see below; you can use it as a starting point.
> 
> ROX Filer has many forks and some of them are very different from what is on the main site.
> 
> I still used the original fork for now. 
> 
> To use it, with your normal user account do:
> $ git clone git://git.sv.gnu.org/guix.git
> $ cd guix
> $ ./bootstrap
> $ ./configure --localstatedir=/var
> $ # put contents below into gnu/packages/wip-rox.scm
> $ make
> $ make check
> $ ./pre-inst-env guix package -i rox-filer
> $ # from now on, always use guix via ./pre-inst-env guix
> 
> Or wait until someone else did it and brought it all the way into an official guix release.
> 
> ;;; GNU Guix --- Functional package management for GNU
> ;;; Copyright © 2014, 2015 Sou Bunnbu <iyzsong@gmail.com>
> ;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
> ;;;
> ;;; This file is part of GNU Guix.
> ;;;
> ;;; GNU Guix is free software; you can redistribute it and/or modify it
> ;;; under the terms of the GNU General Public License as published by
> ;;; the Free Software Foundation; either version 3 of the License, or (at
> ;;; your option) any later version.
> ;;;
> ;;; GNU Guix is distributed in the hope that it will be useful, but
> ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
> ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
> ;;; GNU General Public License for more details.
> ;;;
> ;;; You should have received a copy of the GNU General Public License
> ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
> 
> (define-module (gnu packages rox)
>   #:use-module ((guix licenses) #:hide (freetype))
>   #:use-module (guix packages)
>   #:use-module (guix download)
>   #:use-module (guix utils)
>   #:use-module (guix build-system gnu)
>   #:use-module (guix build-system glib-or-gtk)
>   #:use-module (gnu packages)
>   #:use-module (gnu packages pkg-config)
>   #:use-module (gnu packages glib)
>   #:use-module (gnu packages gtk)
>   #:use-module (gnu packages xorg)
>   #:use-module (gnu packages xdisorg)
>   #:use-module (gnu packages web)
>   #:use-module (gnu packages fontutils)
>   #:use-module (gnu packages image)
>   #:use-module (gnu packages gnome)
>   #:use-module (gnu packages xml)
>   #:use-module (gnu packages pdf)
>   #:use-module (gnu packages gettext)
>   #:use-module (gnu packages polkit)
>   #:use-module (gnu packages gstreamer)
>   #:use-module (gnu packages linux)
>   #:use-module (gnu packages photo)
>   #:use-module (gnu packages pcre)
>   #:use-module (gnu packages pulseaudio))
> 
> ; FIXME add rox-clib
> 
> (define-public rox-lib
>   (package
>     (name "rox-lib")
>     (version "2.0.6")
>     (source (origin
>               (method url-fetch)
>               (uri (string-append "mirror://sourceforge/rox/rox-lib2-"
>                                   (version-major+minor version)
>                                   ".tar.bz2"))
>               (sha256
>                (base32 ; FIXME
>                 "07c8r3xwx5is298zk77m3r784gmr5y4mh8bbca5zdjqk5vxdwsw7"))))
>     (build-system gnu-build-system)
>     (native-inputs
>      `(("pkg-config" ,pkg-config)
>        ("intltool" ,intltool))) ; FIXME
>     (propagated-inputs `(("glib" ,glib))) ; required by *.pc ; FIXME
>     (home-page "http://rox.sourceforge.net/desktop/")
>     (synopsis "Basic utility library for ROX")
>     (description "A general-purpose utility library for ROX")
>     (license lgpl2.0+))) ; FIXME
> 
> (define-public rox-session
>   (package
>     (name "rox-session")
>     (version "0.40.0")
>     (source (origin
>               (method url-fetch)
>               (uri (string-append "mirror://sourceforge/rox/rox-session-"
>                                   version
>                                   ".tar.gz"))
>               (sha256
>                (base32
>                 "15jf4nl51mh3pc45r0hlz24rn3hz6c3qqli40w9bm1bd4a00z0cn"))))
>     (build-system gnu-build-system)
>     (arguments
>      '(#:out-of-source? #t
>        #:configure-flags (list (string-append "--with-xsession-prefix=" %output))
>        #:tests? #f
>        #:phases (alist-cons-before
>                  'configure 'pre-configure
>                  (lambda _
>                    (chdir "src"))
>                  (alist-replace
>                   'install
>                   (lambda* (#:key outputs #:allow-other-keys)
>                    ;(zero? (system* "pwd"))) ; FIXME
>                    (let* ((out (assoc-ref outputs "out"))
>                           (bin (string-append out "/bin")))
>                       (and
>                         (zero? (system* "mkdir" out))
>                         (zero? (system* "mkdir" bin))
>                         (zero? (system* "cp" "--" "../src/../ROX-Session" bin))) ; FIXME
>                       ))
>                   %standard-phases))))
>     (native-inputs ; FIXME
>      `(("pkg-config" ,pkg-config)
>        ("intltool" ,intltool)))
>     (inputs ; FIXME check
>      `(;("iceauth" ,iceauth)
>        ;("upower" ,upower)
>        ;("polkit" ,polkit)
>        ;("libsm" ,libsm)
>        ;("libwnck" ,libwnck-1)
>        ("libxtst" ,libxtst)
>        ("libxxf86vm" ,libxxf86vm)
>        ("dbus-glib" ,dbus-glib)
>        ("dbus" ,dbus)
>        ("libxml2"       ,libxml2) ; 2.0.0
>        ("gtk2"     ,gtk+-2))) ; 2.12.0
>     (home-page "http://rox.sourceforge.net/desktop/")
>     (synopsis "ROX session manager")
>     (description
>      "Session manager for ROX. It will restore your session on startup.")
>     (license gpl2+))) ; FIXME
> 
> ; FIXME
> (define-public rox-settings
>   (package
>     (name "rox-settings")
>     (version "4.12.0")
>     (source (origin
>               (method url-fetch)
>               (uri (string-append "mirror://sourceforge/rox/rox-settings-"
>                                   (version-major+minor version)
>                                   ".tar.bz2"))
>               (sha256
>                (base32
>                 "108za1cmjslwzkdl76x9kwxkq8z734kg9nz8rxk057f10pqwxgh4"))
> ))
>     (build-system gnu-build-system)
>     (native-inputs
>      `(("pkg-config" ,pkg-config)
>        ("intltool" ,intltool)))
>     (inputs ; FIXME
>      `(
>        ("libnotify" ,libnotify)
>        ("libxcursor", libxcursor)
>        ("libxi" ,libxi)
>        ("libxklavier" ,libxklavier)
>        ("libxrandr" ,libxrandr)
>        ("upower" ,upower)
>        ("xf86-input-libinput" ,xf86-input-libinput)))
>     (home-page "http://rox.sourceforge.net/desktop/")
>     (synopsis "ROX settings manager")
>     (description "Settings manager for ROX")
>     (license gpl2+))) ; FIXME
> 
> ; see also https://mail-index.netbsd.org/pkgsrc-bugs/2016/02/07/msg058783.html
> ; see also https://github.com/dtomas/rox-filer/commits/master
> (define-public rox-filer 
>   (package
>     (name "rox-filer")
>     (version "2.11")
>     (source (origin
>               (method url-fetch)
>               (uri (string-append "mirror://sourceforge/rox/rox-filer-"
>                                   version ".tar.bz2"))
>               (sha256
>                (base32
>                 "1a0v21y3srmz0ikg62df6hpc94j5axs1b5wbshp7mvqqxqrbsad9"))))
>     (build-system gnu-build-system)
>     (arguments
>      '(#:out-of-source? #t
>        #:configure-flags '("LDFLAGS=-ldl -lm")
>        #:tests? #f
>        #:phases (alist-cons-before
>                  'configure 'pre-configure
>                  (lambda _
>                    (chdir "ROX-Filer/src"))
>                  (alist-replace
>                   'install
>                   (lambda* (#:key outputs #:allow-other-keys)
>                    ;(zero? (system* "pwd"))) ; FIXME
>                    (let* ((out (assoc-ref outputs "out"))
>                           (bin (string-append out "/bin")))
>                       (and
>                         (zero? (system* "mkdir" out))
>                         (zero? (system* "mkdir" bin))
>                         (zero? (system* "cp" "--" "../src/../ROX-Filer" bin))) ; FIXME
>                       ))
>                   %standard-phases))))
>     (native-inputs ; FIXME
>      `(("pkg-config" ,pkg-config)
>        ;("coreutils" ,coreutils)
>        ("intltool" ,intltool)
>        ("gettext" ,gnu-gettext)))  ; FIXME is gettext implicit?
>     (inputs
>      `(("libsm" ,libsm)
>        ("shared-mime-info"     ,shared-mime-info)  ; 0.14
>        ("libxml2"       ,libxml2) ; 2.0.0
>        ("gtk2"     ,gtk+-2))) ; 2.12.0
>     (home-page "http://rox.sourceforge.net/desktop/")
>     (synopsis "ROX file manager")
>     (description "A modern file manager for ROX graphical desktop")
>     (license gpl2+)))
> 
> (define-public rox
>   (package
>     (name "rox")
>     (version (package-version rox-session))
>     (source #f)
>     (build-system glib-or-gtk-build-system)
>     (arguments
>      '(#:modules ((guix build gnu-build-system)
>                   (guix build glib-or-gtk-build-system)
>                   (guix build utils)
>                   (srfi srfi-26)) ))
>     (propagated-inputs
>      `(("rox-lib"              ,rox-lib) ; TODO remove
>        ("gnome-icon-theme"     ,gnome-icon-theme) ; TODO remove ?
>        ("hicolor-icon-theme"   ,hicolor-icon-theme)
>        ("shared-mime-info"     ,shared-mime-info)  ; TODO remove explicit mention?
>        ("rox-filer"            ,rox-filer)
>        ("rox-session"          ,rox-session)
>        ("rox-settings"         ,rox-settings)
>        ))
>     (home-page "http://rox.sourceforge.net/desktop/")
>     (synopsis "Desktop environment (meta-package)")
>     (description "ROX is a RISC OS-like desktop environment.")
>     (license gpl2+))) ; FIXME collect more licenses