seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-09-18 12:44:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: Add some shell utilities.

Browse Source 
* modules/rosenthal/services/shellutils.scm (home-atuin-service-type)
(home-direnv-service-type, home-zoxide-service-type): New variables.
(<home-atuin-configuration>, <home-direnv-configuration>)
(<home-zoxide-configuration>): New data types.
* .dir-locals.el (scheme-mode): Add indentations for their constructors.
This commit is contained in:
Hilton Chain 2025-06-24 22:51:59 +08:00
parent 9655f0b6f7
commit 1ab9fdea6d
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
2 changed files with 131 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.dir-locals.el
View File

@ -52,7 +52,9 @@
(eval . (put 'cuirass-worker-container-configuration 'scheme-indent-function 0))
(eval . (put 'docker-mailserver-configuration 'scheme-indent-function 0))
(eval . (put 'forgejo-configuration 'scheme-indent-function 0))
(eval . (put 'home-atuin-configuration 'scheme-indent-function 0))
(eval . (put 'home-blueman-applet-configuration 'scheme-indent-function 0))
(eval . (put 'home-direnv-configuration 'scheme-indent-function 0))
(eval . (put 'home-fcitx5-configuration 'scheme-indent-function 0))
(eval . (put 'home-mako-configuration 'scheme-indent-function 0))
(eval . (put 'home-network-manager-applet-configuration 'scheme-indent-function 0))
@ -64,6 +66,7 @@
(eval . (put 'home-theme-configuration 'scheme-indent-function 0))
(eval . (put 'home-wakapi-configuration 'scheme-indent-function 0))
(eval . (put 'home-waybar-configuration 'scheme-indent-function 0))
(eval . (put 'home-zoxide-configuration 'scheme-indent-function 0))
(eval . (put 'iwd-configuration 'scheme-indent-function 0))
(eval . (put 'jellyfin-configuration 'scheme-indent-function 0))
(eval . (put 'komga-configuration 'scheme-indent-function 0))

128
modules/rosenthal/services/shellutils.scm Normal file
View File

@ -0,0 +1,128 @@
;;; SPDX-FileCopyrightText: 2025 Hilton Chain <hako@ultrarare.space>
;;;
;;; SPDX-License-Identifier: GPL-3.0-or-later
(define-module (rosenthal services shellutils)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (gnu services)
#:use-module (gnu services configuration)
#:use-module (gnu home services shells)
#:use-module (rosenthal packages rust-apps)
#:export (home-atuin-configuration
home-atuin-service-type
home-direnv-configuration
home-direnv-service-type
home-zoxide-configuration
home-zoxide-service-type))
(define (shells? val)
(every (cut member <> '(bash zsh fish))
val))
;;;
;;; atuin
;;;
(define-configuration/no-serialization home-atuin-configuration
(atuin
(file-like atuin)
"")
(shells
shells
""))
(define %home-atuin-fish
(match-record-lambda <home-atuin-configuration>
(atuin shells)
(if (member 'fish shells)
(home-fish-extension
(config
(list (mixed-text-file "atuin.fish"
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))
'())))
(description "")))
;;;
;;; direnv
;;;
(define-configuration/no-serialization home-direnv-configuration
(direnv
(file-like (spec->pkg "direnv"))
"")
(shells
shells
""))
(define %home-direnv-fish
(match-record-lambda <home-direnv-configuration>
(direnv shells)
(if (member 'fish shells)
(home-fish-extension
(config
(list (mixed-text-file "direnv.fish"
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))
'())))
(description "")))
;;;
;;; zoxide
;;;
(define-configuration/no-serialization home-zoxide-configuration
(zoxide
(file-like (spec->pkg "zoxide"))
"")
(shells
shells
""))
(define %home-zoxide-fish
(match-record-lambda <home-zoxide-configuration>
(zoxide shells)
(if (member 'fish shells)
(home-fish-extension
(config
(list (mixed-text-file "zoxide.fish"
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))
'())))
(description "")))