guixsd-configuration/testing/minimal-httpd.scm

(add-to-load-path "/home/ton/guixsd/modules/")
(setenv "GUIX_PACKAGE_PATH" "/home/ton/guixsd/modules/:$GUIX_PACKAGE_PATH")
(use-modules
 (gnu)
 (gnu system)
 (gnu tests)
 (gnu system nss)
 (gnu packages libusb)
 (guix monads)
 (guix store)
 (ice-9 rdelim)
 (srfi srfi-1)
 (ton-tull)
 )

(use-service-modules
 desktop base xorg ssh avahi dbus networking cups mcron virtualization
 web pm)

(use-package-modules
 avahi xorg certs wm code wget admin emacs tmux
 ssh linux disk file gnuzilla version-control maths guile crypto gnupg
 password-utils rsync suckless gnome video xdisorg
 terminals ssh image-viewers web-browsers pulseaudio
 tex tor readline adns fontutils gnunet package-management
 networking connman lisp cryptsetup fonts python
 bittorrent engineering graphviz shells compression
 gnome enlightenment dns ghostscript kde-frameworks bash backup)


(define %index.html-contents
  ;; Contents of the /index.html file.
  "Hello, guix!")

(define %make-http-root
  ;; Create our server root in /srv.
  #~(begin
      (mkdir "/srv")
      (mkdir "/srv/http")
      (call-with-output-file "/srv/http/index.html"
        (lambda (port)
          (display #$%index.html-contents port)))))

(define %httpd-os
  (simple-operating-system
   (dhcp-client-service)
   (service httpd-service-type
            (httpd-configuration
             (config
              (httpd-config-file
               (listen '("8080"))))))
   (simple-service 'make-http-root activation-service-type
                   %make-http-root)))

%httpd-os