11 lines
345 B
Scheme
11 lines
345 B
Scheme
;; channels.scm -- reads the channels.d dir to get a list of channel objects
|
|
|
|
(use-modules (gnu) ((ice-9 ftw) #:select (scandir)))
|
|
|
|
(define channel-files
|
|
(scandir "./channels.d"
|
|
(lambda (file)
|
|
(string-suffix? ".scm" file))))
|
|
|
|
(append (map (lambda (file) (load (string-append "./channels.d/" file))) channel-files) %default-channels)
|