adjustPriority,

countTasks,

deletableTasks,

deleteNote,

deleteTag,

deleteTasks,

doTasks,

| AddTag TagText [IdText]

| DeleteTag TagText [IdText]

| AddNote Text [IdText]

| DeleteNote IdText

| SetDueUtc DateTime [IdText]

| Start [IdText]

| Stop [IdText]

<+> "Use"

<+> dquotes (pretty alias)

<+> "instead."

<> hardline

<> hardline

getCommand :: (Text, Text) -> Mod CommandFields Command

<*> some (strArgument idsVar))

"Add a note to specified tasks")

<> command "deletenote" (toParserInfo (DeleteNote

<$> strArgument (metavar "ULID" <> help "The ULID of the note"))

"Delete the specified note")

<> command "due" (toParserInfo (SetDueUtc

<$> argument (maybeReader (parseUtc . T.pack))

(metavar "DUE_UTC" <> help "Due timestamp in UTC")

header =

annotate (bold <> color Blue) "TaskLite"

<+> prettyVersion

<> hardline

<> hardline

<> annotate

(color Blue)

"Task-list manager powered by Haskell and SQLite"

<> hardline

<> hardline

<> annotate

(color Blue)

"Task-list manager powered by Haskell and SQLite"

examples = do

let

AddTag tagText ids -> addTag conf connection tagText ids

DeleteTag tagText ids -> deleteTag conf connection tagText ids

AddNote noteText ids -> addNote conf connection noteText ids

DeleteNote id -> deleteNote conf connection id

SetDueUtc datetime ids -> setDueUtc conf connection datetime ids

Duplicate ids -> duplicateTasks conf connection ids

CountFiltered taskFilter -> countTasks conf connection taskFilter