From d368cd32e4ec0568ea7ad5c9fc25a7eb16d0a9f1 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Am=C3=A9lia=20Coutard-Sander?= Date: Tue, 14 Jan 2025 23:44:35 +0100 Subject: [PATCH] Suppression d'amyx home, je ne l'utilisait plus --- amyx/home.scm | 39 --------------------------------------- 1 file changed, 39 deletions(-) delete mode 100644 amyx/home.scm 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 . - -(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)) - "/"))))) -- 2.51.0