aboutsummaryrefslogtreecommitdiffstats
path: root/lib/mcgoron/guix/foment.scm
blob: bc38da7dc2e84a299bdeb2af3541367d129b4b85 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#| Copyright (C) 2025 Peter McGoron
 |
 | This program is free software: you can redistribute it and/or modify it
 | under the terms of the GNU General Public License as published by the
 | Free Software Foundation, either version 3 of the License, or (at your
 | option) any later version.
 |
 | This program is distributed in the hope that it will be useful, but
 | WITHOUT ANY WARRANTY; without even the implied warranty of
 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 | General Public License for more details.
 |
 | You should have received a copy of the GNU General Public License along
 | with this program.  If not, see <https://www.gnu.org/licenses/>.
 |#

(define-module (mcgoron guix foment)
  #:use-module (guix build-system)
  #:use-module (guix build-system copy)
  #:use-module (gnu packages foment)
  #:use-module (guix gexp))

(define-public foment-build-system
  (let ((lower* (build-system-lower copy-build-system)))
    (build-system
     (name 'foment-scheme)
     (description "Build system for copying Scheme libraries to Foment module directory")
     (lower
      (lambda args
        (apply lower*
               (if (memq #:install-plan args)
                   args
                   (append
                    args
                    (list
                     #:install-plan
                     `'(("." ,(string-append foment-lib-dir
                                             "/"))))))))))))