;;; SPDX-License-Identifier: GPL-3.0-or-later
;;; SPDX-FileCopyrightText: 2026 Marek Paśnikowski <marek@marekpasnikowski.pl>

;;; COPYRIGHT NOTICE
;;;
;;; Copyright 2026, Marek Paśnikowski <marek@marekpasnikowski.pl>

;;; LICENSE NOTICE
;;;
;;; This library 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 library 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 library.
;;; If not, see <https://www.gnu.org/licenses/>.

(define-module (channels)
  #:use-module (gnu home services guix)
  #:use-module (gnu services)
  #:use-module (guix channels))

;;; Fingerprints

(define marekpasnikowski-fingerprint
  (openpgp-fingerprint "590E 500F E39D 26B3 E60B 743B 6D81 B120 7711 899F"))

(define mbakke-fingerprint
  (openpgp-fingerprint "BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA"))

(define nonguix-fingerprint
  (openpgp-fingerprint "2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5"))

;;; Introductions

(define deployment-introduction
  (make-channel-introduction "c24ce7cb11e74da13d491f9de3c4b7040a069f43"
			     marekpasnikowski-fingerprint))

(define distribution-introduction
  (make-channel-introduction "7d17bded11ef1239592e6e5abd40ceee1e99cbb8"
			     marekpasnikowski-fingerprint))

(define guix*-introduction
  (make-channel-introduction "9edb3f66fd807b096b48283debdcddccfea34bad"
			     mbakke-fingerprint))

(define nonguix-introduction
  (make-channel-introduction "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
			     nonguix-fingerprint))

;;; Channels

(define deployment
  (channel (name 'deployment)
	   (url "https://git.marekpasnikowski.pl/git/deployment.git")
	   (introduction deployment-introduction)))

(define distribution
  (channel (name 'distribution)
	   (url "https://git.marekpasnikowski.pl/git/distribution.git")
	   (introduction distribution-introduction)))

;;; Channel lists

(define aisaka-channels
  (append %default-channels
	  (list deployment
                distribution)))

(define izumi-channels
  (append %default-channels
	  (list deployment
		distribution)))

;;; Channel services

(define-public aisaka-channels-service-type
  (simple-service 'aisaka-channels
		  home-channels-service-type
		  aisaka-channels))

(define-public izumi-channels-service-type
  (simple-service 'izumi-channels
		  home-channels-service-type
		  izumi-channels))