gnu: Add wicd.
Based on preliminary work by Pierre-Antoine Rault <par@rigelk.eu> * gnu/packages/wicd.scm: New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add it.
This commit is contained in:
Mark H Weaver
parent
4fb7e0de19
commit
10b60c0430
|
|
@ -284,6 +284,7 @@ GNU_SYSTEM_MODULES = \
|
|||
gnu/packages/weechat.scm \
|
||||
gnu/packages/wget.scm \
|
||||
gnu/packages/which.scm \
|
||||
gnu/packages/wicd.scm \
|
||||
gnu/packages/wine.scm \
|
||||
gnu/packages/wordnet.scm \
|
||||
gnu/packages/wv.scm \
|
||||
|
|
|
|||
|
|
@ -0,0 +1,178 @@
|
|||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
|
||||
;;; Copyright © 2015 Pierre-Antoine Rault <par@rigelk.eu>
|
||||
;;;
|
||||
;;; 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 wicd)
|
||||
#:use-module (guix packages)
|
||||
#:use-module (guix download)
|
||||
#:use-module (guix build-system python)
|
||||
#:use-module (guix licenses)
|
||||
#:use-module (guix utils)
|
||||
#:use-module (gnu packages glib)
|
||||
#:use-module (gnu packages gtk)
|
||||
#:use-module (gnu packages gettext)
|
||||
#:use-module (gnu packages linux)
|
||||
#:use-module (gnu packages admin)
|
||||
#:use-module (gnu packages python))
|
||||
|
||||
(define-public wicd
|
||||
(package
|
||||
(name "wicd")
|
||||
(version "1.7.3")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://launchpad.net/wicd/"
|
||||
(version-major+minor version) "/" version
|
||||
"/+download/wicd-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32 "00c4rq753bhg64rv1v9yl834ssq7igyy7cz3swp287b5n5bqiqwi"))))
|
||||
(build-system python-build-system)
|
||||
(native-inputs `(("gettext" ,gnu-gettext)))
|
||||
(inputs `(("dbus" ,dbus)
|
||||
("dbus-glib" ,dbus-glib)
|
||||
("python2-dbus" ,python2-dbus)
|
||||
("python2-pygtk" ,python2-pygtk)
|
||||
("python2-urwid" ,python2-urwid)
|
||||
("python2-babel" ,python2-babel)
|
||||
("wireless-tools" ,wireless-tools)
|
||||
("wpa-supplicant" ,wpa-supplicant)
|
||||
("net-tools" ,net-tools)
|
||||
("isc-dhcp" ,isc-dhcp)
|
||||
("iproute" ,iproute)))
|
||||
(arguments
|
||||
`(#:python ,python-2
|
||||
#:tests? #f ; test suite requires networking
|
||||
#:phases
|
||||
(alist-cons-before
|
||||
'build 'configure
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let ((out (assoc-ref outputs "out"))
|
||||
(python (assoc-ref inputs "python")))
|
||||
(define (which* cmd)
|
||||
(cond ((string=? cmd "ping")
|
||||
"/run/setuid-programs/ping")
|
||||
((which cmd)
|
||||
=> identity)
|
||||
(else
|
||||
(format (current-error-port)
|
||||
"WARNING: Unable to find absolute path for ~s~%"
|
||||
cmd)
|
||||
#f)))
|
||||
(substitute* "setup.py"
|
||||
;; The handling of unrecognized distros in setup.py is
|
||||
;; broken. Work around the problem.
|
||||
(("\\('init=', " all)
|
||||
(string-append "#" all))
|
||||
;; Inhibit attempts to install in /var or /etc.
|
||||
(("\\(wpath\\.(log|etc|networks|.*scripts), " all)
|
||||
(string-append "#" all)))
|
||||
|
||||
;; Patch references to subprograms with absolute pathnames.
|
||||
(substitute* "wicd/wnettools.py"
|
||||
(("(misc\\.Run\\(\\[?[\"'])([^\"' ]*)" all pre cmd)
|
||||
(string-append pre (which* cmd)))
|
||||
(("(self\\._find_program_path|misc\\.find_path)\\([\"']([^\"']*)[\"']\\)"
|
||||
all dummy cmd)
|
||||
(let ((pathname (which* cmd)))
|
||||
(if pathname
|
||||
(string-append "'" pathname "'")
|
||||
"None")))
|
||||
(("([\"'])(ifconfig|route|wpa_cli|wpa_supplicant|iwconfig|iwpriv|iwlist|ping)"
|
||||
all open-quote cmd)
|
||||
(string-append open-quote (which* cmd))))
|
||||
|
||||
;; setup.py cannot cope without LANG
|
||||
(setenv "LANG" "C")
|
||||
|
||||
(let ((params
|
||||
(list
|
||||
(string-append "--python=" python "/bin/python")
|
||||
"--no-install-init"
|
||||
"--no-install-docs"
|
||||
"--no-install-acpi"
|
||||
"--no-install-pmutils"
|
||||
"--no-install-kde"
|
||||
"--no-install-gnome-shell-extensions"
|
||||
|
||||
"--distro=guixsd"
|
||||
"--wicdgroup=netdev"
|
||||
"--loggroup=root"
|
||||
"--logperms=0640"
|
||||
|
||||
;; XXX setup.py configure asks us to pass --init=,
|
||||
;; but if we do it says "no such option 'init'".
|
||||
;; (string-append "--init=" out "/etc/init.d")
|
||||
|
||||
(string-append "--initfile=" out "/etc/init.d/wicd")
|
||||
(string-append "--lib=" out "/lib/wicd")
|
||||
(string-append "--share=" out "/share/wicd")
|
||||
|
||||
"--etc=/etc/wicd"
|
||||
"--scripts=/etc/wicd/scripts"
|
||||
"--pmutils=/etc/pm-utils/sleep.d"
|
||||
|
||||
(string-append "--encryption="
|
||||
out "/etc/encryption/templates")
|
||||
(string-append "--bin=" out "/bin")
|
||||
(string-append "--sbin=" out "/sbin")
|
||||
(string-append "--daemon=" out "/share/wicd/daemon")
|
||||
(string-append "--backends=" out "/share/wicd/backends")
|
||||
(string-append "--curses=" out "/share/wicd/curses")
|
||||
(string-append "--gtk=" out "/share/wicd/gtk")
|
||||
(string-append "--cli=" out "/share/wicd/cli")
|
||||
(string-append "--gnome-shell-extensions="
|
||||
out "/share/gnome-shell-extensions")
|
||||
(string-append "--icons=" out "/share/icons/hicolor")
|
||||
(string-append "--pixmaps=" out "/share/pixmaps")
|
||||
(string-append "--images=" out "/share/wicd/icons")
|
||||
(string-append "--dbus=" out "/etc/dbus-1/system.d")
|
||||
(string-append "--dbus-service="
|
||||
out "/share/dbus-1/system-services")
|
||||
(string-append "--systemd=" out "/lib/systemd/system")
|
||||
(string-append "--logrotate=" out "/etc/logrotate.d")
|
||||
(string-append "--desktop=" out "/share/applications")
|
||||
(string-append "--translations=" out "/share/locale")
|
||||
(string-append "--autostart=" out "/etc/xdg/autostart")
|
||||
(string-append "--docdir=" out "/share/doc/wicd")
|
||||
(string-append "--mandir=" out "/share/man")
|
||||
(string-append "--kdedir=" out "/share/autostart"))))
|
||||
(format #t
|
||||
"running ~s with command ~s and parameters ~s~%"
|
||||
"python setup.py" "configure" params)
|
||||
(zero? (apply system* "python" "setup.py" "configure" params)))))
|
||||
(alist-cons-after
|
||||
'install 'install-dhclient.conf.template.default
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
;; wicd's installer tries to put dhclient.conf.template.default
|
||||
;; in /etc/wicd/other, which is not available in the build
|
||||
;; environment, so here we install it manually in the output
|
||||
;; directory.
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(dest-dir (string-append out "/etc/wicd"))
|
||||
(name "dhclient.conf.template.default"))
|
||||
(mkdir-p dest-dir)
|
||||
(copy-file (string-append "other/" name)
|
||||
(string-append dest-dir "/" name))
|
||||
#t))
|
||||
%standard-phases))))
|
||||
(synopsis "Network connection manager")
|
||||
(description "Wicd is a network manager that aims to simplify wired and
|
||||
wireless networking.")
|
||||
(home-page "https://launchpad.net/wicd")
|
||||
(license gpl2+)))
|
||||
Loading…
Reference in New Issue