yogsototh/gpm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

question with default

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2018-09-02 08:20:55 +02:00
parent 699a759140
commit 8ca2ed83a7
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 27 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
src/GPM/Issue.hs
View file

@ -23,9 +23,10 @@ import Turtle
import Data.FileEmbed (embedStringFile) import Data.FileEmbed (embedStringFile)
import qualified Data.Text as T import qualified Data.Text as T
import GPM.Helpers
import Text.Mustache import Text.Mustache
import GPM.Helpers
data IssueOptions = IssueOptions data IssueOptions = IssueOptions
{ interactive :: Bool { interactive :: Bool
, newIssue :: NewIssue , newIssue :: NewIssue
@ -121,17 +122,32 @@ handleNewIssue opts = do
validTmpNewIssue validTmpNewIssue
interactiveNewIssue :: NewIssue -> IO NewIssue interactiveNewIssue :: NewIssue -> IO NewIssue
interactiveNewIssue _ = interactiveNewIssue ni =
NewIssue <$> (fromMaybe PriorityB <$> ask "priority" "ex: A,B,C" toPriority) NewIssue
<*> (fromMaybe "TODO" <$> ask "status" "ex: TODO, QUESTION" identity) <$> (fromMaybe (priority ni)
<*> (fromMaybe "Issue title" <$> ask "title" "Short Description" identity) <$> ask "priority" (ptot (priority ni)) toPriority)
<*> ask "user" "your nick" identity <*> (fromMaybe (status ni)
<*> ask "branch" "related branch" identity <$> ask "status" (status ni) identity)
<*> (fromMaybe [] <$> ask "tags" "comma separated tags" (T.splitOn ",")) <*> (fromMaybe (title ni)
<*> ask "assignee" "a single nick" identity <$> ask "title" (title ni) identity)
<*> (fromMaybe [] <$> ask "reviewers" "comma separated nicks" (T.splitOn ",")) <*> (maybe (user ni) Just
<*> ask "description" "the long description" identity <$>
ask "user" (fromMaybe "your name" (user ni)) identity)
<*> (maybe (branch ni) Just
<$> ask "branch" (fromMaybe "related branch" (branch ni)) identity)
<*> (fromMaybe (tags ni)
<$> ask "tags" "comma separated tags" (T.splitOn ","))
<*> (maybe (assignee ni) Just
<$> ask "assignee" "a single nick" identity)
<*> (fromMaybe (tags ni)
<$> ask "reviewers" "comma separated nicks" (T.splitOn ","))
<*> (maybe (description ni) Just
<$> ask "description" "the long description" identity)
where where
ptot :: Priority -> Text
ptot PriorityA = "A"
ptot PriorityB = "B"
ptot PriorityC = "C"
ask :: Text -> Text -> (Text -> a) -> IO (Maybe a) ask :: Text -> Text -> (Text -> a) -> IO (Maybe a)
ask field ex tr = do ask field ex tr = do
putText $ "Please enter " <> field <> "("<> ex <>"): " putText $ "Please enter " <> field <> "("<> ex <>"): "