Add modified-only command

Author: dotKuro

tasklite-core/app/Main.hs

@@ -116,6 +116,7 @@ data Command
   | ListOld
   | ListOpen
   | ListModified
+  | ListModifiedOnly
   | ListDone
   | ListObsolete
   | ListDeletable
@@ -465,7 +466,10 @@ commandParser conf =
         "List all open tasks by priority desc")
 
     <> command "modified" (toParserInfo (pure ListModified)
-        "List all modified tasks by modified_utc desc")
+        "List all tasks by modified_utc desc")
+
+    <> command "modified-only" (toParserInfo (pure ListModifiedOnly)
+      "List all modified tasks by modified_utc desc")
 
     -- All tasks due to no later than
     -- <> command "yesterday"
@@ -858,6 +862,7 @@ executeCLiCommand conf now connection cmd =
     ListOld -> listOldTasks conf now connection
     ListOpen -> openTasks conf now connection
     ListModified -> modifiedTasks conf now connection
+    ListModifiedOnly -> modifiedOnlyTasks conf now connection
     ListOverdue -> overdueTasks conf now connection
     ListRepeating -> listRepeating conf now connection
     ListRecurring -> listRecurring conf now connection

tasklite-core/source/Lib.hs

@@ -1571,8 +1571,17 @@ openTasks conf now connection = do
     \order by `priority` desc"
   pure $ formatTasks conf now tasks
 
+
 modifiedTasks :: Config -> DateTime -> Connection -> IO (Doc AnsiStyle)
-modifiedTasks conf now connection = 
+modifiedTasks conf now connection = do
+  tasks <- query_ connection $ Query
+    "select * from `tasks_view` \
+    \order by `modified_utc` desc"
+  pure $ formatTasks conf now tasks
+
+
+modifiedOnlyTasks :: Config -> DateTime -> Connection -> IO (Doc AnsiStyle)
+modifiedOnlyTasks conf now connection = 
   let
     filterModified =
       P.filter (\task ->
@@ -1588,7 +1597,6 @@ modifiedTasks conf now connection =
     "select * from `tasks_view` \
     \order by `modified_utc` desc"
   pure $ formatTasks conf now $ filterModified tasks
-      
 
 
 overdueTasks :: Config -> DateTime -> Connection -> IO (Doc AnsiStyle)