From 6d7586080110fbcb83f8ae5344d0545314d97ae6 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 31 Jan 2015 20:23:13 -0500 Subject: Make guix-web a subcommand of guix. * scripts/guix-web: Delete. * guix/scripts/web.scm: New file. * Makefile.am (SOURCES): Add it. (dev-server): Delete. * README.md (Use): Tweak usage instructions. --- guix/scripts/web.scm | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 guix/scripts/web.scm (limited to 'guix') diff --git a/guix/scripts/web.scm b/guix/scripts/web.scm new file mode 100644 index 0000000..da6270e --- /dev/null +++ b/guix/scripts/web.scm @@ -0,0 +1,26 @@ +;;; guix-web - Web interface for GNU Guix +;;; Copyright © 2014, 2015 David Thompson +;;; +;;; This program is free software: you can redistribute it and/or +;;; modify it under the terms of the GNU Affero General Public License +;;; as published by the Free Software Foundation, either version 3 of +;;; the License, or (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Affero General Public License for more details. +;;; +;;; You should have received a copy of the GNU Affero General Public +;;; License along with this program. If not, see +;;; . + +(define-module (guix scripts web) + #:use-module (system repl server) + #:use-module (guix-web controller) + #:use-module (guix-web server) + #:export (guix-web)) + +(define (guix-web . args) + (spawn-server (make-tcp-server-socket #:port 37146)) + (start-guix-web (lambda (path) (controller path)))) -- cgit v1.2.3