seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-07-25 17:45:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: shellutils: Avoid dynamic extensions.

Browse Source 
This would create different service type objects.

* modules/rosenthal/services/shellutils.scm (%home-atuin-fish)
(home-atuin-service-type, %home-direnv-fish, home-direnv-service-type)
(%home-zoxide-fish, home-zoxide-service-type): Avoid dynamically extensions.
This commit is contained in:
Hilton Chain 2025-06-27 10:43:26 +08:00
parent 10251b17f0
commit f1f47b6e2d
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 21 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
modules/rosenthal/services/shellutils.scm
View File

@ -45,21 +45,19 @@
(define %home-atuin-fish (define %home-atuin-fish
(match-record-lambda <home-atuin-configuration> (match-record-lambda <home-atuin-configuration>
(atuin shells) (atuin shells)
(if (member 'fish shells)
(home-fish-extension (home-fish-extension
(config (config
(if (member 'fish shells)
(list (mixed-text-file "atuin.fish" (list (mixed-text-file "atuin.fish"
atuin "/bin/atuin init fish | source\n"))))))) atuin "/bin/atuin init fish | source\n"))
'())))))
(define home-atuin-service-type (define home-atuin-service-type
(service-type (service-type
(name 'atuin) (name 'atuin)
(extensions (extensions
`(,@(if %home-atuin-fish
(list (service-extension home-fish-service-type (list (service-extension home-fish-service-type
%home-atuin-fish)) %home-atuin-fish)))
'())))
(description ""))) (description "")))
@ -78,21 +76,19 @@
(define %home-direnv-fish (define %home-direnv-fish
(match-record-lambda <home-direnv-configuration> (match-record-lambda <home-direnv-configuration>
(direnv shells) (direnv shells)
(if (member 'fish shells)
(home-fish-extension (home-fish-extension
(config (config
(if (member 'fish shells)
(list (mixed-text-file "direnv.fish" (list (mixed-text-file "direnv.fish"
direnv "/bin/direnv hook fish | source\n"))))))) direnv "/bin/direnv hook fish | source\n"))
'())))))
(define home-direnv-service-type (define home-direnv-service-type
(service-type (service-type
(name 'direnv) (name 'direnv)
(extensions (extensions
`(,@(if %home-direnv-fish
(list (service-extension home-fish-service-type (list (service-extension home-fish-service-type
%home-direnv-fish)) %home-direnv-fish)))
'())))
(description ""))) (description "")))
@ -111,19 +107,17 @@
(define %home-zoxide-fish (define %home-zoxide-fish
(match-record-lambda <home-zoxide-configuration> (match-record-lambda <home-zoxide-configuration>
(zoxide shells) (zoxide shells)
(if (member 'fish shells)
(home-fish-extension (home-fish-extension
(config (config
(if (member 'fish shells)
(list (mixed-text-file "zoxide.fish" (list (mixed-text-file "zoxide.fish"
zoxide "/bin/zoxide init --cmd cd fish | source\n"))))))) zoxide "/bin/zoxide init --cmd cd fish | source\n"))
'())))))
(define home-zoxide-service-type (define home-zoxide-service-type
(service-type (service-type
(name 'zoxide) (name 'zoxide)
(extensions (extensions
`(,@(if %home-zoxide-fish
(list (service-extension home-fish-service-type (list (service-extension home-fish-service-type
%home-zoxide-fish)) %home-zoxide-fish)))
'())))
(description ""))) (description "")))