Adapt config to pine
This commit is contained in:
parent
8f13dfa066
commit
3c0d21d4dd
5 changed files with 38 additions and 19 deletions
1
files/authorized_keys
Normal file
1
files/authorized_keys
Normal file
|
@ -0,0 +1 @@
|
|||
ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQDGOChJhdXFjPLFb218mVPSD9IsL7kyHqFdh/u2qcyJsjc5hFNPdnTvHHjQhsX33PaA5IfKM830AziWX/pwnePQQHR1nfw8knEpQaCNPmmHLQkepTeHlXKdSIXrv5fa9I27AWH+8NtAtJIY1F8jbEAGWXF8F6p8vZLybEljsmVOygWrkQmKtmYn/aOo+R7DlX4SnBfXmqWkzoilgI9FmNfaomv6FeU9VVQtemO4XPz/PMIYYvUNCJ2zaVbjNBmA6ZhHmZf3XlK4swnMW49Py2HboKs/MXLPpfwfU+KlLXYUs2wAtL+UFK/6/IUcIpaFdfTid183KQ07jf+uxtpUTEVT kook@burra
|
|
@ -23,6 +23,7 @@
|
|||
(gnu packages vim)
|
||||
(gnu packages virtualization)
|
||||
(gnu packages wm)
|
||||
(gnu packages web)
|
||||
(gnu packages xfce)
|
||||
(gnu packages xorg)
|
||||
(loom packages eyecandy))
|
||||
|
@ -56,7 +57,8 @@
|
|||
(list
|
||||
gcc-toolchain
|
||||
ghc
|
||||
git))
|
||||
git
|
||||
jq))
|
||||
|
||||
(define %web
|
||||
(list
|
||||
|
|
|
@ -1,30 +1,36 @@
|
|||
(use-modules (gnu)
|
||||
(gnu services desktop)
|
||||
(gnu services ssh)
|
||||
(gnu system))
|
||||
(use-modules (nongnu packages linux)
|
||||
(nongnu system linux-initrd))
|
||||
|
||||
(load "system.common.scm")
|
||||
(load "system.scm")
|
||||
|
||||
(let ((os (install-to (uuid "???" 'ext4))))
|
||||
(let ((os (install-to (uuid "a942a6ac-012a-46c5-984e-5f53532a3253" 'ext4))))
|
||||
(operating-system
|
||||
(inherit os)
|
||||
(host-name "pine")
|
||||
(services
|
||||
(modify-services
|
||||
(xfce-desktop-services os)))
|
||||
(append
|
||||
(list
|
||||
(pam-mount "kook" "/dev/md0")
|
||||
pam-audio
|
||||
(ssh-only `(("kook" ,(local-file "files/authorized_keys")))))
|
||||
(desktop-environment (operating-system-keyboard-layout os))
|
||||
(nonguix %desktop-services)))
|
||||
(kernel linux)
|
||||
(initrd microcode-initrd)
|
||||
(firmware (list linux-firmware))
|
||||
(mapped-devices
|
||||
(list (mapped-device
|
||||
(source (uuid "???"))
|
||||
(target "HOME")
|
||||
(type luks-device-mapping))))
|
||||
(source (list "/dev/sdb" "/dev/sdc"))
|
||||
(target "/dev/md0")
|
||||
(type raid-device-mapping))
|
||||
))
|
||||
(file-systems
|
||||
(cons* (file-system
|
||||
(mount-point "/home")
|
||||
(device (uuid "???" 'ext4))
|
||||
(type "ext4")
|
||||
(dependencies mapped-devices))
|
||||
(file-system
|
||||
(mount-point "/boot/efi")
|
||||
(device (uuid "???" 'fat32))
|
||||
(device (uuid "7974-61F4" 'fat32))
|
||||
(type "vfat"))
|
||||
(operating-system-file-systems os)))))
|
||||
|
|
|
@ -4,7 +4,7 @@
|
|||
(use-modules (nongnu packages linux)
|
||||
(nongnu system linux-initrd))
|
||||
|
||||
(load "system.common.scm")
|
||||
(load "system.scm")
|
||||
|
||||
(let ((os (install-to (uuid "60c115b5-08f2-435b-95e5-d3b81ffba4f4" 'ext4))))
|
||||
(operating-system
|
||||
|
|
|
@ -8,10 +8,7 @@
|
|||
((gnu services desktop) #:select (xfce-desktop-service-type))
|
||||
((gnu services pam-mount) #:select (pam-mount-service-type pam-mount-configuration))
|
||||
((gnu services xorg) #:select (set-xorg-configuration xorg-configuration))
|
||||
(gnu system)
|
||||
(rnrs io ports))
|
||||
(use-modules (nongnu packages linux)
|
||||
(nongnu system linux-initrd))
|
||||
(gnu system))
|
||||
|
||||
(define %utils
|
||||
(list anthy davfs2 gvfs i3-wm ibus ibus-anthy nss-certs))
|
||||
|
@ -44,6 +41,12 @@
|
|||
(type "ext4"))
|
||||
%base-file-systems))))
|
||||
|
||||
(define pam-audio
|
||||
(pam-limits-service
|
||||
(list
|
||||
(pam-limits-entry "@audio" 'both 'rtprio 99)
|
||||
(pam-limits-entry "@audio" 'both 'memlock 'unlimited))))
|
||||
|
||||
(define (pam-mount userName device)
|
||||
(service pam-mount-service-type
|
||||
(pam-mount-configuration
|
||||
|
@ -71,6 +74,13 @@
|
|||
(set-xorg-configuration
|
||||
(xorg-configuration (keyboard-layout keyboard-layout)))))
|
||||
|
||||
(define (ssh-only authorized-keys)
|
||||
(service openssh-service-type
|
||||
(openssh-configuration
|
||||
(password-authentication? #f)
|
||||
(permit-root-login #f)
|
||||
(authorized-keys authorized-keys))))
|
||||
|
||||
(define nonguix
|
||||
(lambda (services)
|
||||
(modify-services services
|
Loading…
Reference in a new issue