klaus: Implement klaus as a first class service.

Implement klaus as a first class service, deprecating the
klaus-gunicorn-app function.

1 files changed, 17 insertions, 3 deletions

diff --git a/doc/forge.skb b/doc/forge.skb
index 9f04fc2..3ea04d3 100644
--- a/doc/forge.skb
+++ b/doc/forge.skb
@@ -291,7 +291,22 @@ first).])
 shown. Else, they won't.])
            (record-field "extra-options"
              [Association list of additional key-value option pairs to
-include in the generated ,(file [cgitrc]) configuration file])))))
+include in the generated ,(file [cgitrc]) configuration file]))))
+      (subsection :title [klaus service]
+                  :ident "subsection-klaus-service"
+        (p [klaus is a web viewer to serve git repositories on the web.])
+        (description
+         (record-documentation "guix/forge/klaus.scm" '<klaus-configuration>
+           (record-field "python-klaus"
+             [,(code [python-klaus]) package to use])
+           (record-field "server-name"
+             [Domain name to serve klaus on])
+           (record-field "socket"
+             [Socket that the internal klaus gunicorn app listens on])
+           (record-field "repository-directory"
+             [Directory containing git repositories to serve])
+           (record-field "site-name"
+             [Title on klaus web pages])))))
     (section :title [tissue service]
              :ident "section-tissue-service"
       (p [tissue is an issue tracker built on plain text files and
@@ -680,5 +695,4 @@ hooks to configure]))
          [Identifier of the webhook. This hook is triggered at ,(ref
 :url [http://host:port/hooks/<id>]).])
        (record-field "run"
-         [G-expression to run when the webhook is triggered]))
-     (docstring-function-documentation "guix/forge/klaus.scm" 'klaus-gunicorn-app))))
+         [G-expression to run when the webhook is triggered])))))