[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/07: gnu: Add wpa-supplicant-gui.
From: |
Marius Bakke |
Subject: |
01/07: gnu: Add wpa-supplicant-gui. |
Date: |
Mon, 23 Apr 2018 14:06:29 -0400 (EDT) |
mbakke pushed a commit to branch master
in repository guix.
commit 050e5756781cdfed2d790e15c67bc48c9aced131
Author: Marius Bakke <address@hidden>
Date: Sun Apr 22 16:01:28 2018 +0200
gnu: Add wpa-supplicant-gui.
* gnu/packages/admin.scm (wpa-supplicant-gui): New public variable.
---
gnu/packages/admin.scm | 50 +++++++++++++++++++++++++++++++++++++++++++++++++-
1 file changed, 49 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 8d32518..1dc5d2b 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -18,7 +18,7 @@
;;; Copyright © 2017 Ben Sturmfels <address@hidden>
;;; Copyright © 2017 Ethan R. Jones <address@hidden>
;;; Copyright © 2017 Christopher Allan Webber <address@hidden>
-;;; Copyright © 2017 Marius Bakke <address@hidden>
+;;; Copyright © 2017, 2018 Marius Bakke <address@hidden>
;;; Copyright © 2018 Arun Isaac <address@hidden>
;;; Copyright © 2018 Pierre-Antoine Rouby <address@hidden>
;;;
@@ -58,6 +58,8 @@
#:use-module (gnu packages lua)
#:use-module (gnu packages guile)
#:use-module (gnu packages gettext)
+ #:use-module (gnu packages imagemagick)
+ #:use-module (gnu packages inkscape)
#:use-module (gnu packages pcre)
#:use-module (gnu packages perl)
#:use-module (gnu packages perl-check)
@@ -76,6 +78,7 @@
#:use-module (gnu packages python)
#:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-web)
+ #:use-module (gnu packages qt)
#:use-module (gnu packages terminals)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages groff)
@@ -1136,6 +1139,51 @@ This package provides the 'wpa_supplicant' daemon and
the 'wpa_cli' command.")
(string-append dir "/wpa_supplicant.conf")))
#t))))))))
+(define-public wpa-supplicant-gui
+ (package
+ (inherit wpa-supplicant)
+ (name "wpa-supplicant-gui")
+ (inputs `(("qtbase" ,qtbase)
+ ("qtsvg" ,qtsvg)
+ ,@(package-inputs wpa-supplicant)))
+ (native-inputs
+ ;; For icons.
+ `(("imagemagick" ,imagemagick)
+ ("inkscape" ,inkscape)
+ ,@(package-native-inputs wpa-supplicant)))
+ (arguments
+ `(#:phases (modify-phases %standard-phases
+ (add-after 'unpack 'chdir
+ (lambda _
+ (chdir "wpa_supplicant/wpa_gui-qt4")
+ #t))
+ (delete 'configure)
+ (replace 'build
+ (lambda _
+ (invoke "qmake" "wpa_gui.pro")
+ (invoke "make" "-j" (number->string
(parallel-job-count)))
+ (invoke "make" "-C" "icons")))
+ (replace 'install
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out"))
+ (qt '("qtbase" "qtsvg")))
+ (substitute* "wpa_gui.desktop"
+ (("Exec=wpa_gui")
+ (string-append "Exec=" out "/bin/wpa_gui")))
+ (install-file "wpa_gui" (string-append out "/bin"))
+ (install-file "wpa_gui.desktop"
+ (string-append out
"/share/applications"))
+ (copy-recursively "icons/hicolor"
+ (string-append out
"/share/icons/hicolor"))
+ (wrap-program (string-append out "/bin/wpa_gui")
+ `("QT_PLUGIN_PATH" ":" prefix
+ ,(map (lambda (label)
+ (string-append (assoc-ref inputs label)
+ "/lib/qt5/plugins/"))
+ qt)))
+ #t))))))
+ (synopsis "Graphical user interface for WPA supplicant")))
+
(define-public wakelan
(package
(name "wakelan")
- branch master updated (06079c1 -> 2784b35), Marius Bakke, 2018/04/23
- 04/07: gnu: slop: Update to 7.4., Marius Bakke, 2018/04/23
- 01/07: gnu: Add wpa-supplicant-gui.,
Marius Bakke <=
- 02/07: gnu: libwebp: Update to 1.0.0., Marius Bakke, 2018/04/23
- 07/07: gnu: moc: Remove obsolete snippet., Marius Bakke, 2018/04/23
- 03/07: gnu: feh: Update to 2.26., Marius Bakke, 2018/04/23
- 06/07: gnu: Use address@hidden in packages not ready for 4.0., Marius Bakke, 2018/04/23
- 05/07: gnu: maim: Update to 5.5., Marius Bakke, 2018/04/23