aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPetr Hodina <phodina@protonmail.com>2022-04-08 13:24:20 +0200
committerMarius Bakke <marius@gnu.org>2022-11-21 22:01:14 +0100
commitd5954101fd0a5123067231382b57d8246e929e34 (patch)
tree12c91681127a4fc27b50347138eec9d6c4094cd3
parentf48fa54d7c465d4cdb4fc7b2c517b33bebe82c0a (diff)
downloadguix-d5954101fd0a5123067231382b57d8246e929e34.tar.gz
guix-d5954101fd0a5123067231382b57d8246e929e34.zip
gnu: Add plasma-phonebook.
* gnu/packages/kde-plasma.scm (plasma-phonebook): New variable. Signed-off-by: Marius Bakke <marius@gnu.org>
-rw-r--r--gnu/packages/kde-plasma.scm29
1 files changed, 29 insertions, 0 deletions
diff --git a/gnu/packages/kde-plasma.scm b/gnu/packages/kde-plasma.scm
index b07033bd7b..30cd463451 100644
--- a/gnu/packages/kde-plasma.scm
+++ b/gnu/packages/kde-plasma.scm
@@ -1928,6 +1928,35 @@ PulseAudio.")
"This package provides a Plasma applet for the Pass password manager.")
(license license:lgpl2.1+)))
+(define-public plasma-phonebook
+ (package
+ (name "plasma-phonebook")
+ (version "0.1")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "mirror://kde/stable/plasma-phonebook/"
+ version "/plasma-phonebook-" version
+ ".tar.xz"))
+ (sha256
+ (base32
+ "13nnzdzpganlp319sc9dm9w5hsjhw4f3w8rb80q3nd8q6nyrpky8"))))
+ (build-system cmake-build-system)
+ (native-inputs (list extra-cmake-modules pkg-config))
+ (inputs (list kpeople
+ kirigami
+ kpeoplevcard
+ kcoreaddons
+ kcontacts
+ qtbase-5
+ qtdeclarative-5
+ qtquickcontrols2-5
+ qtsvg-5))
+ (home-page "https://plasma-mobile.org/")
+ (synopsis "Phonebook for Plasma Mobile devices")
+ (description "This package provides contacts application which allows
+adding, modifying and removing contacts.")
+ (license license:lgpl2.0+)))
+
(define-public plasma-phone-components
(package
(name "plasma-phone-components")
ady. (wait-for-tcp-port #$cups-port marionette) (test-equal "http-get default page" 200 (let-values (((response text) (http-get #$(simple-format #f "http://localhost:~A/" forwarded-port) #:decode-body? #t))) (response-code response))) (test-equal "http-get admin page" 200 (let-values (((response text) (http-get #$(simple-format #f "http://localhost:~A/admin" forwarded-port) #:decode-body? #t))) (response-code response))) (test-end)))) (gexp->derivation "cups-test" test)) (define %cups-os (simple-operating-system (service dhcp-client-service-type) (service cups-service-type (cups-configuration (web-interface? #t) ;; Listen on all interfaces instead of just localhost so we ;; can access the web interface "remotely". (listen '("*:631" "/var/run/cups/cups.sock")) ;; Add access controls for the Qemu-managed network. (location-access-controls (list (location-access-control (path "/") (access-controls '("Order allow,deny" "Allow from 10.0.0.0/8"))) (location-access-control (path "/admin") (access-controls '("Order allow,deny" "Allow from 10.0.0.0/8"))) (location-access-control (path "/admin/conf") (access-controls '("Order allow,deny" "AuthType Basic" "Require user @SYSTEM" "Allow localhost"))))))))) (define %test-cups (system-test (name "cups") (description "Test the CUPS print server") (value (run-cups-test %cups-os))))