parent
5d82f400f1
commit
081221ca29
1 changed files with 15 additions and 0 deletions
|
@ -278,6 +278,21 @@
|
|||
(service home-mcron-service-type)
|
||||
))
|
||||
|
||||
;; add folders at the end of a PATH like string, removing duplicates but
|
||||
;; keeping the order of first occurrence
|
||||
(define
|
||||
(add-folders-to-path path folders)
|
||||
(if
|
||||
(null? folders)
|
||||
(string-join
|
||||
(delete-duplicates
|
||||
(string-split path #\:))
|
||||
":")
|
||||
(add-folders-to-path
|
||||
(string-append path ":"
|
||||
(car folders))
|
||||
(cdr folders))))
|
||||
|
||||
(define-public %snam-desktop-services
|
||||
(list
|
||||
(service home-dbus-service-type)
|
||||
|
|
Loading…
Add table
Reference in a new issue