25/25: services: Add bitmask-service-type.

[guix-commits]

raghavgururajan pushed a commit to branch master
in repository guix.

commit 02562e2f1e1b0fcc4ae17a54885f67b38fc1be46
Author: Raghav Gururajan <rg@raghavgururajan.name>
AuthorDate: Sat Jul 3 01:04:09 2021 -0400

    services: Add bitmask-service-type.
    
    * gnu/services/vpn.scm (bitmask-service-type): New variable.
    * doc/guix.texi: Document it.
    
    Co-authored-by: jgart <jgart@dismail.de>
---
 doc/guix.texi        |  9 +++++++++
 gnu/services/vpn.scm | 19 +++++++++++++++++++
 2 files changed, 28 insertions(+)

diff --git a/doc/guix.texi b/doc/guix.texi
index c4cbdef..e11f7ad 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -26772,6 +26772,15 @@ Defaults to @samp{()}.
 The @code{(gnu services vpn)} module provides services related to
 @dfn{virtual private networks} (VPNs).
 
+@subsubheading Bitmask
+
+@defvr {Scheme Variable} bitmask-service-type
+A service type for the @uref{https://bitmask.net, Bitmask} VPN client.  It 
makes
+the client available in the system and loads its polkit policy.  Please note 
that
+the client expects an active polkit-agent, which is either run by your
+desktop-environment or should be run manually.
+@end defvr
+
 @subsubheading OpenVPN
 
 It provides a @emph{client} service for your machine to connect to a
diff --git a/gnu/services/vpn.scm b/gnu/services/vpn.scm
index a51dda3..df84905 100644
--- a/gnu/services/vpn.scm
+++ b/gnu/services/vpn.scm
@@ -6,6 +6,8 @@
 ;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
 ;;; Copyright © 2021 Domagoj Stolfa <ds815@gmx.com>
 ;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2021 Raghav Gururajan <rg@raghavgururajan.name>
+;;; Copyright © 2021 jgart <jgart@dismail.de>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -25,6 +27,7 @@
 (define-module (gnu services vpn)
   #:use-module (gnu services)
   #:use-module (gnu services configuration)
+  #:use-module (gnu services dbus)
   #:use-module (gnu services shepherd)
   #:use-module (gnu system shadow)
   #:use-module (gnu packages admin)
@@ -70,6 +73,22 @@
             wireguard-service-type))
 
 ;;;
+;;; Bitmask.
+;;;
+
+(define-public bitmask-service-type
+  (service-type
+   (name 'bitmask)
+   (description "Setup the @uref{https://bitmask.net, Bitmask} VPN 
application.")
+   (default-value bitmask)
+   (extensions
+    (list
+     ;; Add bitmask to the system profile.
+     (service-extension profile-service-type list)
+     ;; Configure polkit policy of bitmask.
+     (service-extension polkit-service-type list)))))
+
+;;;
 ;;; OpenVPN.
 ;;;