From: Amélia Coutard-Sander <git@ameliathe1st.gay>
Date: Tue, 14 Jan 2025 22:44:35 +0000 (+0100)
Subject: Suppression d'amyx home, je ne l'utilisait plus
X-Git-Url: https://git.ameliathe1st.gay/?a=commitdiff_plain;h=d368cd32e4ec0568ea7ad5c9fc25a7eb16d0a9f1;p=canal-guix.git

Suppression d'amyx home, je ne l'utilisait plus
---

diff --git a/amyx/home.scm b/amyx/home.scm
deleted file mode 100644
index 1e0d6c7..0000000
--- a/amyx/home.scm
+++ /dev/null
@@ -1,39 +0,0 @@
-; Copyright 2023 Amélia COUTARD.
-;
-; This file from the guix channel amy 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 channel 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 channel. If
-; not, see <https://www.gnu.org/licenses/>.
-
-(define-module (amyx home)
-  #:use-module (ice-9 exceptions)
-  #:use-module (ice-9 regex)
-  #:use-module (ice-9 textual-ports)
-  #:use-module (srfi srfi-1)
-  #:export (replace-store-files))
-
-(define store-path-regexp
-  (make-regexp "#\\$([^/]*)/"))
-
-(define (regexp-map-list regexp str f)
-  (let ((m (regexp-exec regexp str)))
-    (if m
-        `(,(match:prefix m) ,@(f m)
-          ,@(regexp-map-list regexp
-                             (match:suffix m) f))
-        `(,str))))
-
-(define-macro (replace-store-files file)
-              `(list ,@(regexp-map-list store-path-regexp
-                                          (call-with-input-file file
-                                            get-string-all)
-                                          (lambda (m)
-                                            `(,(string->symbol (match:substring
-                                                                  m 1))
-                                              "/")))))