(define-record-type* <admin>
  admin make-admin admin?
  (name admin-name)                     ;string
  (ssh-key admin-ssh-key                ;file-like
           (default (local-file
                     (format #f "keys/ssh/~a.pub"
                             (admin-name this-record))))
           (thunked))
  (wireguard-ip admin-wireguard-ip)     ;string
  (wireguard-key admin-wireguard-key))  ;string

Generated by apteryx using scpaste at Thu Apr 30 11:18:28 2026. JST. (original)