Add modified command

Author: dotKuro

tasklite-core/app/Main.hs

@@ -115,6 +115,7 @@ data Command
   | ListNew
   | ListOld
   | ListOpen
+  | ListModified
   | ListDone
   | ListObsolete
   | ListDeletable
@@ -462,6 +463,9 @@ commandParser conf =
 
     <> command "open" (toParserInfo (pure ListOpen)
         "List all open tasks by priority desc")
+      
+    <> command "modified" (toParserInfo (pure ListModified)
+        "List all modified tasks by modified_utc desc")
 
     -- All tasks due to no later than
     -- <> command "yesterday"
@@ -853,6 +857,7 @@ executeCLiCommand conf now connection cmd =
     ListNew -> newTasks conf now connection
     ListOld -> listOldTasks conf now connection
     ListOpen -> openTasks conf now connection
+    ListModified -> modifiedTasks conf now connection
     ListOverdue -> overdueTasks conf now connection
     ListRepeating -> listRepeating conf now connection
     ListRecurring -> listRecurring conf now connection

tasklite-core/source/Lib.hs

@@ -1571,6 +1571,24 @@ 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 = do
+  tasks <- query_ connection $ Query
+    "select * from `tasks_view` \
+    \order by `modified_utc` desc"
+  pure $ formatTasks conf now $ filterModified tasks
+  where
+    filterModified =
+      P.filter (\task ->
+        (removeNSec $ ulidTextToDateTime $ FullTask.ulid  task)
+        /= (parseUtc $ FullTask.modified_utc task))
+    removeNSec :: Maybe DateTime -> Maybe DateTime
+    removeNSec mDateTime =
+      case mDateTime of
+        Just dateTime -> Just $ dateTime { dtTime = (dtTime dateTime) { todNSec = 0 } }
+        Nothing -> Nothing
+      
+
 
 overdueTasks :: Config -> DateTime -> Connection -> IO (Doc AnsiStyle)
 overdueTasks conf now connection = do

tasklite-core/tasklite-core.cabal

@@ -1,6 +1,6 @@
 cabal-version: 2.2
 
--- This file has been generated from package.yaml by hpack version 0.31.2.
+-- This file has been generated from package.yaml by hpack version 0.34.2.
 --
 -- see: https://github.com/sol/hpack
 --