@@ -84,6 +84,7 @@ data Command
84
84
{- Modify With Parameter -}
85
85
| Prioritize Float [IdText ]
86
86
| AddTag TagText [IdText ]
87
+ | DeleteTag TagText [IdText ]
87
88
| AddNote Text [IdText ]
88
89
| SetDueUtc DateTime [IdText ]
89
90
| Start [IdText ]
@@ -379,6 +380,11 @@ commandParser conf =
379
380
<*> some (strArgument idsVar))
380
381
" Add a tag to specified tasks" )
381
382
383
+ <> command " deletetag" (toParserInfo (DeleteTag
384
+ <$> strArgument (metavar " TAG" <> help " The tag" )
385
+ <*> some (strArgument idsVar))
386
+ " Delete a tag from specified tasks" )
387
+
382
388
<> command " note" (toParserInfo (AddNote
383
389
<$> strArgument (metavar " NOTE" <> help " The note" )
384
390
<*> some (strArgument idsVar))
@@ -919,6 +925,7 @@ executeCLiCommand conf now connection cmd =
919
925
NextTask -> nextTask conf connection
920
926
FindTask aPattern -> findTask connection aPattern
921
927
AddTag tagText ids -> addTag conf connection tagText ids
928
+ DeleteTag tagText ids -> deleteTag conf connection tagText ids
922
929
AddNote noteText ids -> addNote conf connection noteText ids
923
930
SetDueUtc datetime ids -> setDueUtc conf connection datetime ids
924
931
Duplicate ids -> duplicateTasks conf connection ids
0 commit comments