diff options
Diffstat (limited to 'machines/thinkpad-x200.scm')
| -rw-r--r-- | machines/thinkpad-x200.scm | 49 |
1 files changed, 0 insertions, 49 deletions
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 <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 (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*))) |
