diff options
Diffstat (limited to 'gnu/services.scm')
| -rw-r--r-- | gnu/services.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gnu/services.scm b/gnu/services.scm index 7083c88c130..5dbda176b80 100644 --- a/gnu/services.scm +++ b/gnu/services.scm | |||
| @@ -124,6 +124,7 @@ | |||
| 124 | etc-service-type | 124 | etc-service-type |
| 125 | etc-profile-d-service-type | 125 | etc-profile-d-service-type |
| 126 | etc-bashrc-d-service-type | 126 | etc-bashrc-d-service-type |
| 127 | %default-etc-bashrc-d-files | ||
| 127 | etc-directory | 128 | etc-directory |
| 128 | privileged-program-service-type | 129 | privileged-program-service-type |
| 129 | setuid-program-service-type ; deprecated | 130 | setuid-program-service-type ; deprecated |
| @@ -992,6 +993,10 @@ log in."))) | |||
| 992 | (define files->bashrc-d-directory | 993 | (define files->bashrc-d-directory |
| 993 | (make-files->etc-directory "bashrc.d")) | 994 | (make-files->etc-directory "bashrc.d")) |
| 994 | 995 | ||
| 996 | (define %default-etc-bashrc-d-files | ||
| 997 | (list (file-append bash-completion | ||
| 998 | "/etc/profile.d/bash_completion.sh"))) | ||
| 999 | |||
| 995 | (define etc-bashrc-d-service-type | 1000 | (define etc-bashrc-d-service-type |
| 996 | (service-type | 1001 | (service-type |
| 997 | (inherit etc-profile-d-service-type) | 1002 | (inherit etc-profile-d-service-type) |
| @@ -1000,7 +1005,8 @@ log in."))) | |||
| 1000 | files->bashrc-d-directory))) | 1005 | files->bashrc-d-directory))) |
| 1001 | (description "A service for populating @file{/etc/bashrc.d/} with Bash | 1006 | (description "A service for populating @file{/etc/bashrc.d/} with Bash |
| 1002 | scripts having the @file{.sh} file extension, to be sourced by interactive | 1007 | scripts having the @file{.sh} file extension, to be sourced by interactive |
| 1003 | Bash shells."))) | 1008 | Bash shells.") |
| 1009 | (default-value %default-etc-bashrc-d-files))) | ||
| 1004 | 1010 | ||
| 1005 | (define (privileged-program->activation-gexp programs) | 1011 | (define (privileged-program->activation-gexp programs) |
| 1006 | "Return an activation gexp for privileged-program from PROGRAMS." | 1012 | "Return an activation gexp for privileged-program from PROGRAMS." |
