aboutsummaryrefslogtreecommitdiff
-*- mode: org; coding: utf-8; -*-

#+TITLE: Tentative GNU Guix Road Map

Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>

  Copying and distribution of this file, with or without modification,
  are permitted in any medium without royalty provided the copyright
  notice and this notice are preserved.

The goals of the GNU Guix project are two-fold:

  - to build a purely functional package manager, based on Nix and
    Guile;

  - to use it to build a practical 100% free software distribution of
    GNU/Linux and possibly other GNU variants, with a focus on the
    promotion and tight integration of GNU components–the GNU system.

Since its inception, the project has gone a long way towards that goal.  Below
is a list of items we want for version "1.0" of the Guix System Distribution.
There will be a few 0.x releases by then to give the new features more
exposure and testing.

You're welcome to discuss this road map on guix-devel@gnu.org or #guix on
the Libera Chat IRC network!

* Features scheduled for 1.0

  - larger & more robust build farm
    + we need a powerful, dedicated front-end
    + armhf-linux build machine
    + leave Hydra in favor of 'guix publish' + custom code?
  - more OS features
    + LVM support
    + encrypted root
    + configurable name service switch
    + whole-system unit tests, using VMs
  - more service definitions
    + mcron, postfix(?), wicd(?), etc.
  - better 'guix system'
    + 'reconfigure' should be able to restart non-essential services
    + support for '--list-generations' and '--delete-generations'
  - better 'guix pull'
    + using Git to fetch the source instead of re-downloading everything
    + build more quickly
    + install new .mo files and new manual
    + authentication of the Guix source: use signed commits?
  - simplified, purely declarative service list in 'operating-system'
    + it should be possible to inspect the service instance declarations and
      settings
  - GUIs
    + integrate guix-web?
    + guile-ncurses installer?
  - 'guix publish'?

* Features for later

  - complete GNU/Hurd port
  - use content-based addressing when downloading substitutes to reduce
    bandwidth requirements
    + design nar v2 format where file contents are replaced by their hashes
    + leverage /gnu/store/.links
  - binary origin tracking
    + keep signatures in sqlite.db
    + preserve signatures upon import/export
  - peer-to-peer distribution of updates (GNUnet?)
  - more deterministic builds
    + identify & fix sources of non-determinism in builds
    + strengthen guix-daemon containers to further increase reproducibility
    + trusting-trust: bootstrap with different tool chains
    + fixed-point: re-bootstrap until fixed point is reached
    + distributed validation: compare contents of store items with others
      * resist a hydra.gnu.org compromise
  - reproducible containers: mix of 'guix environment' and 'guix system vm'
  - execute code with least privilege
    + build containers like guix-daemon does
    + provide a Plash-like interface in Bash
  - daemon rewritten in Guile
  - more shepherd integration
    + monitor network interfaces and start/stop events based on that
    + include a DHCP client written in Scheme
sktop-environment (name "i3") (packages (map (lambda (package) `(specification->package ,package)) '("i3-wm" "i3status" "dmenu" "st")))) (desktop-environment (name "ratpoison") (packages '((specification->package "ratpoison") (specification->package "xterm")))) (desktop-environment (name "Emacs EXWM") (packages '((specification->package "emacs") (specification->package "emacs-exwm") (specification->package "emacs-desktop-environment")))) ;; Networking. (system-service (name (G_ "OpenSSH secure shell daemon (sshd)")) (type 'networking) (snippet `(,(vertical-space 1) ,(comment (G_ "\ ;; To configure OpenSSH, pass an 'openssh-configuration' ;; record as a second argument to 'service' below.\n")) ,(if (target-hurd?) '(service openssh-service-type (openssh-configuration (openssh openssh-sans-x))) '(service openssh-service-type))))) (system-service (name (G_ "Tor anonymous network router")) (type 'networking) (snippet '((service tor-service-type)))) ;; Miscellaneous system administration services. (system-service (name (G_ "Network time service (NTP), to set the clock automatically")) (type 'administration) (recommended? (not (target-hurd?))) (snippet '((service ntp-service-type)))) (system-service (name (G_ "GPM mouse daemon, to use the mouse on the console")) (type 'administration) (snippet '((service gpm-service-type)))) ;; Network connectivity management. (system-service (name (G_ "NetworkManager network connection manager")) (type 'network-management) (snippet '((service network-manager-service-type) (service wpa-supplicant-service-type)))) (system-service (name (G_ "Connman network connection manager")) (type 'network-management) (snippet '((service connman-service-type) (service wpa-supplicant-service-type)))) (system-service (name (G_ "DHCP client (dynamic IP address assignment)")) (type 'network-management) (snippet '((service dhcp-client-service-type)))) (system-service (name (G_ "Static networking service.")) (type 'network-management) (snippet `((service static-networking-service-type (list %loopback-static-networking (static-networking (addresses (list (network-address (device "eth0") ,(comment (G_ ";; Fill-in your IP.\n")) (value "192.168.178.10/24")))) (routes (list (network-route (destination "default") ,(comment (G_ ";; Fill-in your gateway IP.\n")) (gateway "192.168.178.1")))) (requirement '()) (provision '(networking)) ,(comment (G_ ";; Fill-in your nameservers.\n")) (name-servers '("192.168.178.1")))))))) ;; Dealing with documents. (system-service (name (G_ "CUPS printing system (no Web interface by default)")) (type 'document) (snippet '((service cups-service-type))))))) (define (desktop-system-service? service) "Return true if SERVICE is a desktop environment service." (eq? 'desktop (system-service-type service))) (define (system-services->configuration services) "Return the configuration field for SERVICES." (let* ((snippets (append-map system-service-snippet services)) (packages (append-map system-service-packages services)) (desktop? (find desktop-system-service? services)) (base (if desktop? (if (target-hurd?) '%desktop-services/hurd '%desktop-services) (if (target-hurd?) '%base-services/hurd '%base-services))) (native-console-font (match (getenv "LANGUAGE") ((or "be" "bg" "el" "eo" "kk" "ky" "mk" "mn" "ru" "sr" "tg" "uk") "LatGrkCyr-8x16") (_ #f))) (services (if native-console-font `(modify-services ,base (console-font-service-type config => (map (lambda (tty) (cons (car tty) ,native-console-font)) config))) base)) (service-heading (list (vertical-space 1) (comment (G_ "\ ;; Below is the list of system services. To search for available ;; services, run 'guix system search KEYWORD' in a terminal.\n")))) (package-heading (list (vertical-space 1) (comment (G_ "\ ;; Packages installed system-wide. Users can also install packages ;; under their own account: use 'guix search KEYWORD' to search ;; for packages and 'guix install PACKAGE' to install a package.\n"))))) (if (null? snippets) `(,@(if (null? packages) (if (target-hurd?) `(,@package-heading (packages %base-packages/hurd)) '()) `(,@package-heading (packages (append (list ,@packages) ,(if (target-hurd?) '%base-packages/hurd '%base-packages))))) ,@service-heading (services ,services)) `(,@(if (null? packages) (if (target-hurd?) `(,@package-heading (packages %base-packages/hurd)) '()) `(,@package-heading (packages (append (list ,@packages) ,(if (target-hurd?) '%base-packages/hurd '%base-packages))))) ,@service-heading (services (append (list ,@snippets ,@(if desktop? ;; XXX: Assume 'keyboard-layout' is in ;; scope. `((set-xorg-configuration (xorg-configuration (keyboard-layout keyboard-layout)))) '())) ,(vertical-space 1) ,(comment (G_ "\ ;; This is the default list of services we ;; are appending to.\n")) ,services))))))