seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-11-04 11:44:48 +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

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

@ -45,21 +45,19 @@
(define %home-atuin-fish
(match-record-lambda <home-atuin-configuration>
(atuin shells)
(if (member 'fish shells)
(home-fish-extension
(config
(home-fish-extension
(config
(if (member 'fish shells)
(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
(service-type
(name 'atuin)
(extensions
`(,@(if %home-atuin-fish
(list (service-extension home-fish-service-type
%home-atuin-fish))
'())))
(list (service-extension home-fish-service-type
%home-atuin-fish)))
(description "")))
@ -78,21 +76,19 @@
(define %home-direnv-fish
(match-record-lambda <home-direnv-configuration>
(direnv shells)
(if (member 'fish shells)
(home-fish-extension
(config
(home-fish-extension
(config
(if (member 'fish shells)
(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
(service-type
(name 'direnv)
(extensions
`(,@(if %home-direnv-fish
(list (service-extension home-fish-service-type
%home-direnv-fish))
'())))
(list (service-extension home-fish-service-type
%home-direnv-fish)))
(description "")))
@ -111,19 +107,17 @@
(define %home-zoxide-fish
(match-record-lambda <home-zoxide-configuration>
(zoxide shells)
(if (member 'fish shells)
(home-fish-extension
(config
(home-fish-extension
(config
(if (member 'fish shells)
(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
(service-type
(name 'zoxide)
(extensions
`(,@(if %home-zoxide-fish
(list (service-extension home-fish-service-type
%home-zoxide-fish))
'())))
(list (service-extension home-fish-service-type
%home-zoxide-fish)))
(description "")))