module HBS2.Git3.Man where

import HBS2.Git3.Prelude
import Data.Config.Suckless.Script

import Text.InterpolatedString.Perl6 (qc)

manInit :: MakeDictM c m () -> MakeDictM c m ()
manInit = brief "initializes a new repository"
    . args [ arg "new repository flag"                     "--new"
           , arg "group key hash for encrypted repository" "<--encrypted group-key>"
           ]
    . examples initExamples

  where
    initExamples = [qc|
; just init a new repository

hbs2-git init --new

; init encrypted repository

; create new group key:
; your real keys will be different
; all hashes/keys appear in exampels/logs a PUBLIC information,
; so no secrets disclosures.

hbs2-cli hbs2:groupkey:store [hbs2:groupkey:create 67CRxnoQWasQsY9iidjJDYXSTKEZkpSVgDQYweWuhfd3]
39baH7SqqsAGgCSr3k9RJgY4nTwiMRXrgZUmKPFndzn8


hbs2-git init  --new --encrypted 39baH7SqqsAGgCSr3k9RJgY4nTwiMRXrgZUmKPFndzn8

added git remote laundry-worry hbs23://7F1D7QGVVwJFJ649dsSHgrDUuqHYti3nkFx<censored>
updateRepoKey 7F1D7QGVVwJFJ649dsSHgrDUuqHYti3nkFx<censored>

git remote

laundry-worry
^^^^^^^^^^^^^

This is the git remote for the new repo. Rename it if you want.

hbs2-git3  repo:remotes
7F1D7QGVVwJFJ649dsSHgrDUuqHYti3nkFx<censored> laundry-worry


  |]