* nongnu/home/services/editors.scm altered naming to home convention

added home-* prefix
This commit is contained in:
Fi guadec 2023-12-11 00:30:16 +00:00
parent 2f3ea1fdc2
commit bce6e6eb5f

View File

@ -9,31 +9,31 @@
#:use-module (json) #:use-module (json)
#:use-module (nongnu packages editors) #:use-module (nongnu packages editors)
#:export (<vscodium-configuration> vscodium-configuration #:export (<home-vscodium-configuration> home-vscodium-configuration
make-vscodium-configuration make-home-vscodium-configuration
vscodium-configuration? home-vscodium-configuration?
this-vscodium-configuration this-home-vscodium-configuration
vscodium-configuration-snippets home-vscodium-configuration-snippets
vscodium-configuration-keybindings home-vscodium-configuration-keybindings
vscodium-configuration-settings home-vscodium-configuration-settings
vscodium-configuration-vsix-extensions home-vscodium-configuration-vsix-extensions
vscodium-service-type)) home-vscodium-service-type))
(define-record-type* <vscodium-configuration> vscodium-configuration (define-record-type* <home-vscodium-configuration> home-vscodium-configuration
make-vscodium-configuration make-home-vscodium-configuration
vscodium-configuration? home-vscodium-configuration?
this-vscodium-configuration this-home-vscodium-configuration
(snippets vscodium-configuration-snippets (snippets home-vscodium-configuration-snippets
(default (list))) (default (list)))
(keybindings vscodium-configuration-keybindings (keybindings home-vscodium-configuration-keybindings
(default (vector))) (default (vector)))
(settings vscodium-configuration-settings (settings home-vscodium-configuration-settings
(default (list))) (default (list)))
(vsix-extensions vscodium-configuration-vsix-extensions (vsix-extensions home-vscodium-configuration-vsix-extensions
(default (list)))) (default (list))))
(define vscodium-service-type (define home-vscodium-service-type
(service-type (name 'vscodium) (service-type (name 'vscodium)
(extensions (list (service-extension (extensions (list (service-extension
home-xdg-configuration-files-service-type home-xdg-configuration-files-service-type
@ -42,11 +42,11 @@
(let ((base "VSCodium/User/")) (let ((base "VSCodium/User/"))
`((,(string-append base "keybinds.json") , `((,(string-append base "keybinds.json") ,
(plain-file "vscodium-keybindings" (plain-file "vscodium-keybindings"
(scm->json-string (vscodium-configuration-keybindings (scm->json-string (home-vscodium-configuration-keybindings
config)))) config))))
(,(string-append base "settings.json") , (,(string-append base "settings.json") ,
(plain-file "vscodium-settings" (plain-file "vscodium-settings"
(scm->json-string (vscodium-configuration-settings (scm->json-string (home-vscodium-configuration-settings
config)))) config))))
,@(map (lambda (snippetEntry) ,@(map (lambda (snippetEntry)
(let ((name (car (let ((name (car
@ -61,7 +61,7 @@
name) name)
(scm->json-string (scm->json-string
data))))) data)))))
(vscodium-configuration-snippets (home-vscodium-configuration-snippets
config)))))) config))))))
(service-extension (service-extension
home-activation-service-type home-activation-service-type
@ -79,7 +79,7 @@
#~(begin #~(begin
(define extensionPaths (define extensionPaths
(list #$@(vscodium-configuration-vsix-extensions (list #$@(home-vscodium-configuration-vsix-extensions
config))) config)))
(for-each (lambda (extensionPath) (for-each (lambda (extensionPath)
(system* (string-append #$vscodium (system* (string-append #$vscodium
@ -89,7 +89,7 @@
extensionPaths)))) extensionPaths))))
(service-extension home-profile-service-type (service-extension home-profile-service-type
(const (list vscodium))))) (const (list vscodium)))))
(default-value (vscodium-configuration)) (default-value (home-vscodium-configuration))
(description (description
"install vscodium using specified value-(*) for: "install vscodium using specified value-(*) for:
snippet-(*) snippet-(*)