Add "learn more" link to GH comment

Add link to SOB site to GH comment for merged and paid issues.
This commit is contained in:
Teemu Patja 2017-12-04 12:59:11 +02:00
parent 78547c410e
commit e8203e8eb9
No known key found for this signature in database
GPG Key ID: F5B7035E6580FD4C

View File

@ -241,6 +241,9 @@
"To fund it, send ETH or ERC20/ERC223 tokens to the contract address.")) "To fund it, send ETH or ERC20/ERC223 tokens to the contract address."))
eth-balance-str image-url site-url))) eth-balance-str image-url site-url)))
(defn learn-more-text []
(let [site-url (md-url (server-address) (server-address))]
(format "Visit %s to learn more.\n" (site-url))))
(defn generate-merged-comment (defn generate-merged-comment
[contract-address eth-balance-str tokens winner-login winner-address-missing?] [contract-address eth-balance-str tokens winner-login winner-address-missing?]
@ -251,7 +254,8 @@
(str "Status: " (if winner-address-missing? (str "Status: " (if winner-address-missing?
"Pending user to save ETH address" "Pending user to save ETH address"
"Pending maintainer confirmation") "\n") "Pending maintainer confirmation") "\n")
"Winner: %s\n") "Winner: %s\n"
(learn-more-text))
eth-balance-str winner-login)) eth-balance-str winner-login))
(defn generate-paid-comment (defn generate-paid-comment
@ -260,7 +264,8 @@
(token-balances-text tokens) (token-balances-text tokens)
(contract-addr-text contract-address) (contract-addr-text contract-address)
(network-text) (network-text)
"Paid to: %s\n") "Paid to: %s\n"
(learn-more-text))
eth-balance-str payee-login)) eth-balance-str payee-login))