aboutsummaryrefslogtreecommitdiff
path: root/salamina.scm
diff options
context:
space:
mode:
Diffstat (limited to 'salamina.scm')
-rw-r--r--salamina.scm22
1 files changed, 22 insertions, 0 deletions
diff --git a/salamina.scm b/salamina.scm
index 7578050..ae56194 100644
--- a/salamina.scm
+++ b/salamina.scm
@@ -60,24 +60,29 @@
(define list
(cons item list)))
+
(prepend %services
(simple-service 'always-forbid-root-login activation-service-type
#~(system "/run/setuid-programs/passwd -l root > /dev/null")))
+
(prepend %services
(service dhcp-client-service-type))
+
(prepend %services
(service web:epicyon-service-type
(web:epicyon-configuration
(domain "epicyon.koszko.org")
(port 7156))))
+
(prepend %services
(simple-service 'guix-authorize-key guix-service-type
(guix-extension
(authorized-keys (list (local-file "guix-signing-key.pub"))))))
+
(prepend %services
(service web:httpd-service-type
(web:httpd-configuration
@@ -111,6 +116,7 @@
ScriptSock /var/run/cgid.sock
")))))))
+
(prepend %services
(simple-service 'acme-challenge-http-virtualhost web:httpd-service-type
(map (match-lambda
@@ -147,6 +153,7 @@
("sheets.koszko.org" "www.sheets.koszko.org")
("smtp.koszko.org")))))
+
(define %cgitrc
(serialize-cgit-configuration
(cgit-configuration
@@ -238,6 +245,7 @@
SSLCertificateKeyFile /etc/certs/git.koszko.org/privkey.pem
")))))
+
(prepend %services
(simple-service 'prepare-cgit-cache-dir activation-service-type
#~(begin
@@ -297,6 +305,7 @@
SSLCertificateKeyFile /etc/certs/koszko.org/privkey.pem
"))))))
+
(prepend %services
(simple-service 'httpd-virtualhost-haketilo web:httpd-service-type
(list (let ((wsgi (file-append ks:hydrilla-website
@@ -322,6 +331,7 @@
SSLCertificateKeyFile /etc/certs/haketilo.koszko.org/privkey.pem
"))))))
+
(define %python-path-spec-sexp
(search-path-specification->sexp
(guix-pythonpath-search-path (package-version (default-python)))))
@@ -383,6 +393,7 @@
/etc/certs/hydrilla.koszko.org/privkey.pem
")))))
+
(prepend %services
(simple-service 'httpd-virtualhost-hydrillabugs web:httpd-service-type
(list (web:httpd-virtualhost
@@ -437,6 +448,7 @@
/etc/certs/hydrillabugs.koszko.org/privkey.pem
")))))
+
(prepend %services
(simple-service 'httpd-virtualhost-sheets web:httpd-service-type
(map (lambda (what)
@@ -463,6 +475,7 @@
")))
'("pray" "sheets"))))
+
(define %certbot-deploy-hook
(program-file "httpd-deploy-hook"
#~(for-each (lambda (pidfile)
@@ -509,6 +522,7 @@
(simple-service 'prepare-certbot-tokens-dir activation-service-type
#~(mkdir-p "/var/certbot-validation")))
+
(define (make-koszko-zone-entries domain)
(dns:define-zone-entries entries
;; nameservers
@@ -657,16 +671,19 @@
(notify '("1984-axfr-remote"))))
'("koszko.org" "koszkonutek-tmp.pl.eu.org")))))))
+
(prepend %services
(service mail:mail-aliases-service-type
'(("root" "admin"))))
+
(prepend %services
(service mail:exim-service-type
(mail:exim-configuration
(config-file (local-file "./exim.conf"))
(setuid-user 0))))
+
(prepend %services
(simple-service 'make-maildirs-directory activation-service-type
#~(begin
@@ -677,6 +694,7 @@
(chown "/var/vmail/maildirs" -1 (group:gid (getgr "vmail")))
(umask initial-umask)))))
+
(prepend %services
(service mail:dovecot-service-type
(mail:dovecot-configuration
@@ -713,6 +731,7 @@
(mail-gid "vmail")
(mail-location "maildir:/var/vmail/maildirs/%n"))))
+
(prepend %services
(service openssh-service-type
(openssh-configuration
@@ -720,6 +739,7 @@
(authorized-keys `(("root" ,(local-file "koszko.pub"))))
(port-number 10022))))
+
(prepend %services
(service vc:gitolite-service-type
(vc:gitolite-configuration
@@ -738,10 +758,12 @@
"gitweb"
"cgit")))))))
+
(prepend %services
(service postgresql-service-type
(postgresql-configuration (port 15432))))
+
(operating-system
(host-name "salamina")
(timezone "Europe/Warsaw")