channel

The Guix channel used by MonasTech systems
Log | Files | Refs | README

system.scm (1094B)

      1 (define-module (mt system)
      2   #:use-module (guix gexp)
      3   #:use-module (gnu packages admin)
      4   #:use-module (gnu packages curl)
      5   #:use-module (gnu packages version-control)
      6   #:use-module (gnu system)
      7   #:use-module (gnu system file-systems)
      8   #:export (%mt-file-systems
      9             %mt-swap-devices
     10             %mt-base-packages))
     11 
     12 ;; Keeping these for compatibility, may change them later, namely boot partition
     13 (define %mt-file-systems
     14   (append
     15     (list (file-system
     16             (mount-point "/boot/efi")
     17             (device (file-system-label "guix-boot"))
     18             (type "vfat"))
     19           (file-system
     20             (mount-point "/")
     21             (device (file-system-label "guix-root"))
     22             (type "ext4"))
     23           (file-system
     24             (mount-point "/home")
     25             (device (file-system-label "guix-home"))
     26             (type "ext4")))
     27      %base-file-systems))
     28 
     29 (define %mt-swap-devices
     30   (list (swap-space
     31           (target (file-system-label "guix-swap")))))
     32 
     33 (define %mt-base-packages
     34   (append
     35     (list fastfetch
     36           git
     37           curl)
     38      %base-packages))