mirror of
https://codeberg.org/hako/Rosenthal.git
synced 2025-09-18 12:44:37 +00:00
930e6262af
* modules/rosenthal/services/shellutils.scm (warn-deprecated-shells-field): New procedure. (home-atuin-configuration, home-direnv-configuration) (home-zoxide-configuration): Deprecate shells field. (shells?): Delete procedure. (home-fish-plugin-atuin-service-type): Renamed and adjusted from... (home-atuin-service-type): ...this deprecated variable. (home-fish-plugin-direnv-service-type): Renamed and adjusted from... (home-direnv-service-type): ...this deprecated variable. (home-fish-plugin-zoxide-service-type): Renamed and adjusted from... (home-zoxide-service-type): ...this deprecated variable.
138 lines
3.5 KiB
Scheme
138 lines
3.5 KiB
Scheme
;;; 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 deprecation)
|
||
#:use-module (guix diagnostics)
|
||
#:use-module (guix gexp)
|
||
#:use-module (guix i18n)
|
||
#:use-module (guix records)
|
||
#:use-module (rosenthal utils packages)
|
||
|
||
#:use-module (gnu services)
|
||
#:use-module (gnu services configuration)
|
||
|
||
#:use-module (gnu home services shells)
|
||
|
||
#:use-module (rosenthal packages rust-apps)
|
||
|
||
#:export (home-fish-plugin-atuin-service-type
|
||
home-atuin-configuration
|
||
|
||
home-fish-plugin-direnv-service-type
|
||
home-direnv-configuration
|
||
|
||
home-fish-plugin-zoxide-service-type
|
||
home-zoxide-configuration))
|
||
|
||
(define (warn-deprecated-shells-field configuration)
|
||
(lambda (value)
|
||
(when (maybe-value-set? value)
|
||
(warning #f (G_ "'~a': '~a' field is deprecated~%")
|
||
configuration 'shells))))
|
||
|
||
;;;
|
||
;;; atuin
|
||
;;;
|
||
|
||
(define-configuration/no-serialization home-atuin-configuration
|
||
(atuin
|
||
(file-like atuin)
|
||
"")
|
||
(shells
|
||
list
|
||
"Deprecated."
|
||
(sanitizer (warn-deprecated-shells-field 'home-atuin-configuration))))
|
||
|
||
(define %home-atuin-fish
|
||
(match-record-lambda <home-atuin-configuration>
|
||
(atuin)
|
||
(home-fish-extension
|
||
(config
|
||
(list (mixed-text-file "atuin.fish"
|
||
atuin "/bin/atuin init fish | source\n"))))))
|
||
|
||
(define home-fish-plugin-atuin-service-type
|
||
(service-type
|
||
(name 'atuin)
|
||
(extensions
|
||
(list (service-extension home-fish-service-type
|
||
%home-atuin-fish)))
|
||
(default-value (home-atuin-configuration))
|
||
(description "")))
|
||
|
||
(define-deprecated/public-alias home-atuin-service-type
|
||
home-fish-plugin-atuin-service-type)
|
||
|
||
|
||
;;;
|
||
;;; direnv
|
||
;;;
|
||
|
||
(define-configuration/no-serialization home-direnv-configuration
|
||
(direnv
|
||
(file-like (spec->pkg "direnv"))
|
||
"")
|
||
(shells
|
||
list
|
||
"Deprecated."
|
||
(sanitizer (warn-deprecated-shells-field 'home-atuin-configuration))))
|
||
|
||
(define %home-direnv-fish
|
||
(match-record-lambda <home-direnv-configuration>
|
||
(direnv)
|
||
(home-fish-extension
|
||
(config
|
||
(list (mixed-text-file "direnv.fish"
|
||
direnv "/bin/direnv hook fish | source\n"))))))
|
||
|
||
(define home-fish-plugin-direnv-service-type
|
||
(service-type
|
||
(name 'direnv)
|
||
(extensions
|
||
(list (service-extension home-fish-service-type
|
||
%home-direnv-fish)))
|
||
(default-value (home-direnv-configuration))
|
||
(description "")))
|
||
|
||
(define-deprecated/public-alias home-direnv-service-type
|
||
home-fish-plugin-direnv-service-type)
|
||
|
||
|
||
;;;
|
||
;;; zoxide
|
||
;;;
|
||
|
||
(define-configuration/no-serialization home-zoxide-configuration
|
||
(zoxide
|
||
(file-like (spec->pkg "zoxide"))
|
||
"")
|
||
(shells
|
||
list
|
||
"Deprecated."
|
||
(sanitizer (warn-deprecated-shells-field 'home-atuin-configuration))))
|
||
|
||
(define %home-zoxide-fish
|
||
(match-record-lambda <home-zoxide-configuration>
|
||
(zoxide)
|
||
(home-fish-extension
|
||
(config
|
||
(list (mixed-text-file "zoxide.fish"
|
||
zoxide "/bin/zoxide init --cmd cd fish | source\n"))))))
|
||
|
||
(define home-fish-plugin-zoxide-service-type
|
||
(service-type
|
||
(name 'zoxide)
|
||
(extensions
|
||
(list (service-extension home-fish-service-type
|
||
%home-zoxide-fish)))
|
||
(default-value (home-zoxide-configuration))
|
||
(description "")))
|
||
|
||
(define-deprecated/public-alias home-zoxide-service-type
|
||
home-fish-plugin-zoxide-service-type)
|