~abcdw/rde

f74be044ccba6e63ee306e8cdcd67a0af44394d5 — Xinglu Chen 3 months ago 9e27810
gnu: home-services: Add missing documentation.

* gnu/home-services/mail: (generate-home-isync-documentation)
(generate-home-notmuch-documentation)
(generate-home-l2md-documentation): New procedures.
* gnu/home-services/ssh: (generate-home-ssh-documentation): Generate
docs for ‘ssh-host’ and ‘ssh-match’.
2 files changed, 25 insertions(+), 1 deletions(-)

M gnu/home-services/mail.scm
M gnu/home-services/ssh.scm
M gnu/home-services/mail.scm => gnu/home-services/mail.scm +20 -0
@@ 115,6 115,12 @@ file or not.  If @code{#t} creates a wrapper for mbsync binary.")
(define (list-of-gexps? lst)
  (and (list? lst) (every gexp? lst)))

(define (generate-home-isync-documentation)
  (generate-documentation
   `((home-isync-configuration
      ,home-isync-configuration-fields))
   'home-isync-configuration))


;;;
;;; Notmuch.


@@ 227,6 233,11 @@ notmuch-hooks} for more information."))
                (default-value (home-notmuch-configuration))
                (description "Install and configure notmuch.")))

(define (generate-home-notmuch-documentation)
  (generate-documentation
   `((home-notmuch-configuration
      ,home-notmuch-configuration-fields))
   'home-notmuch-configuration))


;;;


@@ 373,3 384,12 @@ a particular public-inbox repository."))
                        home-profile-service-type
                        l2md-profile-service)))
                (description "Install and configure L2md.")))

(define (generate-home-l2md-documentation)
  (generate-documentation
   `((home-l2md-configuration
      ,home-l2md-configuration-fields
      (l2md-repo l2md-repo))
     (l2md-repo ,l2md-repo-fields))
   'home-l2md-configuration))
      

M gnu/home-services/ssh.scm => gnu/home-services/ssh.scm +5 -1
@@ 252,5 252,9 @@ Match exec \"grep key secret.txt\"
(define (generate-home-ssh-documentation)
  (generate-documentation
   `((home-ssh-configuration
      ,home-ssh-configuration-fields))
      ,home-ssh-configuration-fields
      (ssh-host ssh-host)
      (ssh-match ssh-match))
     (ssh-host ,ssh-host-fields)
     (ssh-match ,ssh-match-fields))
   'home-ssh-configuration))