From 60bb62af4e2f75d5ba9b9974409d7b499d6b1d4b Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Fri, 29 May 2026 11:41:02 +0200 Subject: (machines): remove dead modules --- machines/thinkpad-x200.scm | 49 ---------------------------------------------- 1 file changed, 49 deletions(-) delete mode 100644 machines/thinkpad-x200.scm (limited to 'machines/thinkpad-x200.scm') diff --git a/machines/thinkpad-x200.scm b/machines/thinkpad-x200.scm deleted file mode 100644 index c3c4ed5..0000000 --- a/machines/thinkpad-x200.scm +++ /dev/null @@ -1,49 +0,0 @@ -;;; SPDX-License-Identifier: GPL-3.0-or-later -;;; SPDX-FileCopyrightText: 2026 Marek Paśnikowski - -;;; COPYRIGHT NOTICE -;;; -;;; Copyright 2026, Marek Paśnikowski - -;;; 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 . - -(define-module (machines thinkpad-x200) - ;; bootloader-configuration - #:use-module (gnu bootloader) - - ;; grub-bootloader - #:use-module (gnu bootloader grub) - - ;; file-system - ;; swap-space - #:use-module (gnu system file-systems)) - -;; bootloader-configuration -(define-public (bootloader-configuration* keyboard-layout*) - (let ((bootloader* grub-bootloader) - (bootloader-targets (list "/dev/sda")) ; TODO: generalize the target - ) - (bootloader-configuration (bootloader bootloader*) - (targets bootloader-targets) - (keyboard-layout keyboard-layout*)))) - -;; string -> -;; (list record* swap-space) -(define-public (swap-devices* host-name*) - (let* ((label* (string-append host-name* "-swap")) - - (target* (file-system-label label*)) - - (swap-space* (swap-space (target target*)))) - (list swap-space*))) -- cgit v1.3