;; 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)