diff options
| author | Leo Famulari <leo@famulari.name> | 2021-01-25 15:21:09 -0500 |
|---|---|---|
| committer | Leo Famulari <leo@famulari.name> | 2021-01-25 15:40:55 -0500 |
| commit | 68dd78e2e47248b3e1e7ba1807a92a8374b39097 (patch) | |
| tree | d38564293f285d688a55b23e8a6424c6b26213b1 /gnu/services/cups.scm | |
| parent | 8b55544212a90b0276df49596a3d373e5c2e8f5c (diff) | |
| parent | 3f0af15131e524891df8c9f013f1be1597fe2d7e (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'gnu/services/cups.scm')
| -rw-r--r-- | gnu/services/cups.scm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/gnu/services/cups.scm b/gnu/services/cups.scm index e8957c6859..17ed04e58b 100644 --- a/gnu/services/cups.scm +++ b/gnu/services/cups.scm @@ -32,7 +32,7 @@ #:use-module (guix records) #:use-module (guix gexp) #:use-module (ice-9 match) - #:use-module ((srfi srfi-1) #:select (append-map)) + #:use-module ((srfi srfi-1) #:select (append-map find)) #:export (cups-service-type cups-configuration opaque-cups-configuration @@ -50,7 +50,13 @@ ;;; Code: (define %cups-accounts - (list (user-group (name "lp") (system? #t)) + (list (or + ;; The "lp" group should already exist; try to reuse it. + (find (lambda (group) + (and (user-group? group) + (string=? (user-group-name group) "lp"))) + %base-groups) + (user-group (name "lp") (system? #t))) (user-group (name "lpadmin") (system? #t)) (user-account (name "lp") @@ -482,7 +488,7 @@ programs.") (package cups) "The CUPS package.") (extensions - (package-list (list cups-filters epson-inkjet-printer-escpr + (package-list (list brlaser cups-filters epson-inkjet-printer-escpr foomatic-filters hplip-minimal splix)) "Drivers and other extensions to the CUPS package.") (files-configuration |