;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix 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 General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu services hurd) #:use-module (gnu packages admin) #:use-module (gnu packages hurd) #:use-module (gnu services) #:use-module (gnu services shepherd) #:use-module (gnu system) #:use-module (guix gexp) #:use-module (guix records) #:export (hurd-console-configuration hurd-console-service-type hurd-getty-configuration hurd-getty-service-type)) ;;; Commentary: ;;; ;;; This module implements services for the Hurd. ;;; ;;; Code: ;;; ;;; The Hurd VGA console service. ;;; (define-record-type* hurd-console-configuration make-hurd-console-configuration hurd-console-configuration? (hurd hurd-console-configuration-hurd ;file-like (default hurd))) (define (hurd-console-shepherd-service config) "Return a for a Hurd VGA console with CONFIG." (define console-command #~(list (string-append #$(hurd-console-configuration-hurd config) "/bin/console") "-c" "/dev/vcs" "-d" "vga" "-d" "pc_kbd" "-d" "generic_speaker")) (list (shepherd-service (documentation "Run the Hurd’s VGA console client.") (provision '(console)) (requirement '(user-processes)) (start #~(make-forkexec-constructor #$console-command)) (stop #~(make-kill-destructor))))) (define hurd-console-service-type (service-type (name 'console) (description "Run the Hurd console client.") (extensions (list (service-extension shepherd-root-service-type hurd-console-shepherd-service))) (default-value (hurd-console-configuration)))) ;;; ;;; The Hurd getty service. ;;; (define-record-type* hurd-getty-configuration make-hurd-getty-configuration hurd-getty-configuration? (hurd hurd-getty-configuration-hurd ;file-like (default hurd)) (tty hurd-getty-configuration-tty) ;string (baud-rate hurd-getty-configuration-baud-rate (default 38400))) ;integer (define (hurd-getty-shepherd-service config) "Return a for a Hurd getty with CONFIG." (let ((hurd (hurd-getty-configuration-hurd config)) (tty (hurd-getty-configuration-tty config)) (baud-rate (hurd-getty-configuration-baud-rate config))) (define getty-command #~(list (string-append #$hurd "/libexec/getty") #$(number->string baud-rate) #$tty)) (list (shepherd-service (documentation "Run getty on a tty.") (provision (list (string->symbol (string-append "term-" tty)))) (requirement '(user-processes console)) (start #~(make-forkexec-constructor #$getty-command)) (stop #~(make-kill-destructor)))))) (define hurd-getty-service-type (service-type (name 'getty) (extensions (list (service-extension shepherd-root-service-type hurd-getty-shepherd-service))) (description "Provide console login using the Hurd @command{getty} program."))) ;;; hurd.scm ends here ogram. The PO4A defined here can be used in Makefiles (e.g. po/doc/local.mk below). The po4a command integrates the functionality of po4a-updatepo and is currently recommended for use [1]. The po4a-updatepo command has been replaced by the po4a command and are not used from anywhere. * po/doc/local.mk (%D%/%.pot): Use a po4a command instead of the po4a-updatepo for the POT generation. This eliminates the warning of po4a-updatepo; "po4a-updatepo is deprecated. The unified po4a(1) program is more convenient and less error prone." Here, the file paths are passed using variables. This is because the po4a command needs to be executed for each language and each file. Dummy values are passed for those that are not needed to update the POT file. * po/doc/po4a.cfg: Add a po4a config file for the POT generation. The po4a command requires a configulation file. [1] https://po4a.org/man/man7/po4a.7.php.en#lbAS Change-Id: Ica39a0d1f77b6a64d37c592ac2e693319443d3c5 Signed-off-by: Florian Pelz <pelzflorian@pelzflorian.de> gemmaro 2024-05-25configure.ac: Set default value for the 'prefix' variable....The Guix standard configuration uses a localstatedir of /var and a sysconfdir of /etc. To ease things for everyone, make the default values match that standard expected configuration. See <https://lists.gnu.org/archive/html/guix-devel/2024-05/msg00003.html> for a related discussion. * configure.ac: Default $prefix to '' unless already set. * doc/contributing.texi (Building from Git): Streamline doc. * doc/guix-cookbook.texi (Guix environment via direnv): Likewise. Reviewed-by: Ludovic Courtès <ludo@gnu.org> Change-Id: I23cd12b58a842d246fbc9fdc740311c573eb0212 Maxim Cournoyer 2024-04-19maint: Resurrect running `make' from a tarball....This is a follow-up to commit 8b972da068708a8b17f3ab153ea940690ca49ca9 Makefile.am: Auto-configure Git on 'make'. * configure.ac (in_git_p): New conditional. * Makefile.am (nodist_noinst_DATA): Use it to only enable this when building from Git. Change-Id: I09a90a59a4933a8cdb04124467d38209171f2a57 Janneke Nieuwenhuizen