      (def ~(symbol (str "complete-" fn-name)) (complete ~fn-name))))
 
 (defgen config
-  :user gen/string
-  :repo gen/string)
+  :user string-std
+  :repo string-std)
 
 (defgen semver
   :major gen/nat

(ns github-changelog.schema-generators
  (:require [clojure.string :refer [join]]
            [clojure.test.check.generators :as gen]))

(def hexadecimal (gen/elements "0123456789ABCDEF"))

(def sha (gen/fmap join (gen/vector hexadecimal 40)))

(def issue (gen/tuple gen/string gen/string))

(defn complete
  ([gen] #(complete % gen))

  :patch gen/nat)

(defgen pull
  :title string-std
  :number gen/nat
  :sha sha
  :body string-std
  :html_url string-std)

(defgen valid-pull
  :title string-title
  :number gen/nat
  :sha sha
  :body string-std
  :html_url string-std)

(defgen revert-pull
  :title revert-title
  :number gen/nat
  :sha sha
  :body revert-body
  :html_url string-std)

(defgen change
  :type gen/string-ascii
  :scope gen/string-ascii
  :subject gen/string-ascii
  :pull-request pull
  :issues (gen/vector issue))

(defgen tag
  :name string-std
  :sha sha)
