gnu: Add rust-random-trait-0.1. - guix - Wojtek's customized Guix

diff options

author	Nicolas Goaziou <mail@nicolasgoaziou.fr>	2020-12-20 15:48:40 +0100
committer	Nicolas Goaziou <mail@nicolasgoaziou.fr>	2021-01-04 19:29:14 +0100
commit	cf5fdbf3cfe1d0d442417a1e85b4fd4f4edb65b3 (patch)
tree	570045abbbd49de1cb08dfc4c36bf1b7c55d61cc /gnu/packages/dns.scm
parent	fd9e53bf797dc34d79e0d6108dcfff62f3ec6be7 (diff)
download	guix-cf5fdbf3cfe1d0d442417a1e85b4fd4f4edb65b3.tar.gz guix-cf5fdbf3cfe1d0d442417a1e85b4fd4f4edb65b3.zip

gnu: Add rust-random-trait-0.1.

* gnu/packages/crates-io.scm (rust-random-trait-0.1): New variable.

Diffstat (limited to 'gnu/packages/dns.scm')

0 files changed, 0 insertions, 0 deletions

t (pam-extension (transformer (lambda (pam) (if (member (pam-service-name pam) '("login" "greetd" "su" "slim" "gdm-password" "sddm")) (pam-service (inherit pam) (auth (append (pam-service-auth pam) (list optional-pam-mount))) (session (append (pam-service-session pam) (list optional-pam-mount)))) pam)))))) (define (extend-pam-mount-configuration initial extensions) "Extends INITIAL with EXTENSIONS." (pam-mount-configuration (rules (append (pam-mount-configuration-rules initial) extensions)))) (define pam-mount-service-type (service-type (name 'pam-mount) (extensions (list (service-extension etc-service-type pam-mount-etc-service) (service-extension pam-root-service-type pam-mount-pam-service))) (compose concatenate) (extend extend-pam-mount-configuration) (default-value (pam-mount-configuration)) (description "Activate PAM-Mount support. It allows mounting volumes for specific users when they log in."))) (define (field-name->tag field-name) "Convert FIELD-NAME to its tag used by the configuration XML." (match field-name ('user-name 'user) ('user-id 'uid) ('primary-group 'pgrp) ('group-id 'gid) ('secondary-group 'sgrp) ('file-system-type 'fstype) ('no-mount-as-root? 'noroot) ('file-name 'path) ('mount-point 'mountpoint) ('ssh? 'ssh) ('file-system-key-cipher 'fskeycipher) ('file-system-key-hash 'fskeyhash) ('file-system-key-file-name 'fskeypath) (_ field-name))) (define-maybe string) (define (serialize-string field-name value) (list (field-name->tag field-name) value)) (define (integer-or-range? value) (match value ((start . end) (and (integer? start) (integer? end))) (_ (number? value)))) (define-maybe integer-or-range) (define (serialize-integer-or-range field-name value) (let ((value-string (match value ((start . end) (format #f "~a-~a" start end)) (_ (number->string value))))) (list (field-name->tag field-name) value-string))) (define-maybe boolean) (define (serialize-boolean field-name value) (let ((value-string (if value "1" "0"))) (list (field-name->tag field-name) value-string))) (define-configuration pam-mount-volume (user-name maybe-string "User name to match.") (user-id maybe-integer-or-range "User ID, or range of user IDs, in the form of @code{(start . end)} to\nmatch.") (primary-group maybe-string "Primary group name to match.") (group-id maybe-integer-or-range "Group ID, or range of group IDs, in the form of @code{(start . end)} to\nmatch.") (secondary-group maybe-string "Match users who belong to this group name as either a primary or secondary\ngroup.") (file-system-type maybe-string "File system type of volume being mounted.") (no-mount-as-root? maybe-boolean "Do not use super user privileges to mount this volume.") (server maybe-string "Remote server this volume resides on.") (file-name maybe-string "Location of the volume to be mounted.") (mount-point maybe-string "Where to mount the volume in the local file system.") (options maybe-string "Options to pass to the underlying mount program.") (ssh? maybe-boolean "Whether to pass the login password to SSH.") (cipher maybe-string "Cryptsetup cipher named used by volume.") (file-system-key-cipher maybe-string "Cipher name used by the target volume.") (file-system-key-hash maybe-string "SSL hash name used by the target volume.") (file-system-key-file-name maybe-string "File name for the file system key used by the target volume.")) (define (pam-mount-volume->sxml volume) ;; Convert a list of configuration fields into an SXML-compatible attribute ;; list. (define xml-attrs (filter-map (lambda (field) (let* ((accessor (configuration-field-getter field)) (value (accessor volume))) (and (not (eq? value %unset-value)) (list (field-name->tag (configuration-field-name field)) value)))) pam-mount-volume-fields)) `(volume (@ ,@xml-attrs))) (define (pam-mount-volume-rules volumes) (map pam-mount-volume->sxml volumes)) (define pam-mount-volume-service-type (service-type (name 'pam-mount-volume) (extensions (list (service-extension pam-mount-service-type pam-mount-volume-rules))) (compose concatenate) (extend append) (default-value '()) (description "Mount remote volumes such as CIFS shares @i{via} @acronym{PAM, Pluggable Authentication Modules} when logging in, using login credentials.")))


context:
space:
mode: