54 lines
2.0 KiB
Scheme
54 lines
2.0 KiB
Scheme
|
;;; Copyright © 2024 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
|
||
|
|
;;; Copyright © 2024 Adrien 'neox' Bourmault <neox@a-lec.org>
|
||
|
|
;;;
|
||
|
|
;;; This file is part of GNU Boot.
|
||
|
|
;;;
|
||
|
|
;;; This file 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 file 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 GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||
|
|
|
||
|
|
(use-modules (gcrypt pk-crypto))
|
||
|
|
(use-modules (guix pki))
|
||
|
|
|
||
|
|
(define bordeaux.guix.gnu.org
|
||
|
|
"(public-key
|
||
|
|
(ecc
|
||
|
|
(curve Ed25519)
|
||
|
|
(q #7D602902D3A2DBB83F8A0FB98602A754C5493B0B778C8D1DD4E0F41DE14DE34F#)))")
|
||
|
|
|
||
|
|
|
||
|
|
(cond ((and
|
||
|
|
(eq? (length (program-arguments)) 2)
|
||
|
|
(string=? (list-ref (program-arguments) 1) "force"))
|
||
|
|
(if (authorized-key? (string->canonical-sexp bordeaux.guix.gnu.org))
|
||
|
|
(display "--substitute-urls=https://bordeaux.guix.gnu.org")))
|
||
|
|
|
||
|
|
((and
|
||
|
|
(eq? (length (program-arguments)) 2)
|
||
|
|
(string=? (list-ref (program-arguments) 1) "check"))
|
||
|
|
(if (authorized-key? (string->canonical-sexp bordeaux.guix.gnu.org))
|
||
|
|
(display "bordeaux.guix.gnu.org is enabled\n")
|
||
|
|
(display "bordeaux.guix.gnu.org is disabled\n")))
|
||
|
|
|
||
|
|
(#t ((lambda _
|
||
|
|
(display
|
||
|
|
(string-append
|
||
|
|
"Usage: "
|
||
|
|
"guix repl force-bordeaux-substitute.scm check # "
|
||
|
|
"check if bordeaux.guix.gnu.org is enabled or not.\n"))
|
||
|
|
(display
|
||
|
|
(string-append
|
||
|
|
"Usage: "
|
||
|
|
"guix repl force-bordeaux-substitute.scm force # "
|
||
|
|
"print '--substitute-urls=https://bordeaux.guix.gnu.org' "
|
||
|
|
"if bordeaux.guix.gnu.org is enabled.\n"))))))
|