| 12345678910111213141516171819202122232425262728293031323334 |
- ;; GuixSD configuration file for the desktop machine.
- ;; Copyright © 2018, 2019 Oleg Pykhalov <go.wigust@gmail.com>
- ;; Released under the GNU GPLv3 or any later version.
- (use-modules (srfi srfi-1)
- (srfi srfi-26)
- ((guix ui) #:select (make-user-module))
- (guix profiles))
- ;; The composite module that combines everything from the public modules.
- ;; Origin <https://lists.gnu.org/archive/html/help-guix/2018-10/msg00040.html>.
- (define %source-dir (dirname (current-filename)))
- (define (load-manifest file)
- ;; Load manifest file in a fresh module with necessary imports.
- (let ((module (make-user-module '((guix profiles) (gnu)))))
- (save-module-excursion
- (lambda _
- (set-current-module module)
- (load (canonicalize-path file))))))
- (define (combined-manifest-from-files files)
- (fold (lambda (file combined)
- (manifest-add combined
- (manifest-entries (load-manifest file))))
- (manifest '())
- files))
- (combined-manifest-from-files
- (map (cut string-append %source-dir "/" <>)
- '("emacs.scm" "guix-collection.scm" "wigust.scm" ;; "majordomo.scm"
- )))
|
