Add custom shortcuts feature for task creation

Enable users to define their own shortcuts via the config file. This
implements feature request #78.

- Add Shortcut data type to Config.hs with prefix and tag fields
- Add shortcuts map to Config for storing custom shortcuts
- Modify CLI parser to dynamically add commands from config shortcuts
- Update example-config.yaml with shortcut examples
- Add tests for shortcut parsing and CLI integration
- Add documentation for built-in and custom shortcuts

Example config:
```yaml
shortcuts:
  cook:
    prefix: Cook
    tag: cook
  fix:
    tag: fix
```

With this, `tl cook dinner` adds task "Cook dinner +cook"

Author: claude

docs-source/cli/usage.md

@@ -40,6 +40,48 @@ It is also possible to immediately add tags when creating a task:
 tl add Improve the TaskLite manual +tasklite +pc
 ```
 
+### Built-in Shortcuts
+
+TaskLite provides several built-in shortcuts to quickly add tasks with common tags:
+
+- `tl write "Email to John"` → Adds "Write Email to John +write"
+- `tl read "Article about Haskell"` → Adds "Read Article about Haskell +read"
+- `tl idea "New feature"` → Adds "New feature +idea"
+- `tl watch "Haskell tutorial"` → Adds "Watch Haskell tutorial +watch"
+- `tl listen "Podcast episode"` → Adds "Listen Podcast episode +listen"
+- `tl buy "Groceries"` → Adds "Buy Groceries +buy"
+- `tl sell "Old laptop"` → Adds "Sell Old laptop +sell"
+- `tl pay "Electric bill"` → Adds "Pay Electric bill +pay"
+- `tl ship "Package to Mom"` → Adds "Ship Package to Mom +ship"
+
+### Custom Shortcuts
+
+You can also define your own shortcuts in the config file.
+For example, to add shortcuts for `cook`, `call`, and `fix`:
+
+```yaml
+shortcuts:
+  cook:
+    prefix: Cook
+    tag: cook
+  call:
+    prefix: Call
+    tag: call
+  fix:
+    tag: fix  # No prefix, just adds the tag
+```
+
+With this configuration:
+
+- `tl cook dinner` → Adds "Cook dinner +cook"
+- `tl call Mom` → Adds "Call Mom +call"
+- `tl fix login bug` → Adds "login bug +fix"
+
+Each shortcut has the following fields:
+
+- `prefix` (optional): Text to prepend to the task body
+- `tag`: Tag to add to the task (without the `+` prefix)
+
 And even to set certain fields:
 
 ```shell

tasklite-core/example-config.yaml

@@ -44,3 +44,24 @@ progressBarWidth: 24
 #     pre:
 #       - interpreter: python3
 #         body: print('Python test')
+
+# Custom shortcuts to quickly add tasks with a tag.
+# For example: `tl cook Dinner` will add a task "Cook Dinner +cook"
+# shortcuts:
+#   cook:
+#     prefix: Cook
+#     tag: cook
+#   wash:
+#     prefix: Wash
+#     tag: wash
+#   print:
+#     prefix: Print
+#     tag: print
+#   call:
+#     prefix: Call
+#     tag: call
+#   email:
+#     prefix: Email
+#     tag: email
+#   fix:
+#     tag: fix

tasklite-core/source/Cli.hs

@@ -152,8 +152,10 @@ import Config (
   Config (..),
   HookSet (..),
   HooksConfig (..),
+  Shortcut (..),
   addHookFilesToConfig,
  )
+import Data.Map.Strict qualified as Map
 import Control.Arrow ((>>>))
 import Hooks (executeHooks, formatHookResult)
 import ImportExport (
@@ -385,6 +387,8 @@ data Command
   | Gui
   | UlidToUtc Text
   | ExternalCommand Text (Maybe [Text])
+  | AddCustomShortcut Shortcut [Text]
+  -- ^ Custom shortcut command from config
   deriving (Show, Eq)
 
 
@@ -448,6 +452,20 @@ getCommand (alias, commandName) =
       (progDesc $ T.unpack $ alias <> "-> " <> commandName)
 
 
+-- | Create a parser for a custom shortcut from config
+getShortcutCommand :: (Text, Shortcut) -> Mod CommandFields Command
+getShortcutCommand (cmdName, shortcut) =
+  command (T.unpack cmdName) $
+    info
+      (AddCustomShortcut shortcut <$> some (strArgument
+        (metavar "BODY" <> help "Body of the task")))
+      (progDesc $ T.unpack $ description)
+  where
+    description = case shortcut.prefix of
+      Just pfx -> pfx <> " something (custom shortcut)"
+      Nothing -> "Add task with +" <> shortcut.tag <> " tag (custom shortcut)"
+
+
 toParserInfo :: Parser a -> Text -> ParserInfo a
 toParserInfo parser description =
   info parser (fullDesc <> progDesc (T.unpack description))
@@ -472,6 +490,7 @@ idsVar =
 -- | Help Sections
 basic_sec
   , shortcut_sec
+  , custom_shortcut_sec
   , list_sec
   , vis_sec
   , i_o_sec
@@ -482,6 +501,7 @@ basic_sec
     (Text, Text)
 basic_sec = ("{{basic_sec}}", "Basic Commands")
 shortcut_sec = ("{{shortcut_sec}}", "Shortcuts to Add a Task")
+custom_shortcut_sec = ("{{custom_shortcut_sec}}", "Custom Shortcuts")
 list_sec = ("{{list_sec}}", "List Commands")
 vis_sec = ("{{vis_sec}}", "Visualizations")
 i_o_sec = ("{{i_o_sec}}", "I/O Commands")
@@ -730,6 +750,16 @@ commandParser conf =
         "Ship an item to someone")
     )
 
+  -- Custom shortcuts from config (only show section if there are shortcuts)
+  <|> (if null (Map.toList conf.shortcuts)
+      then P.empty
+      else hsubparser
+        (  metavar (T.unpack $ snd custom_shortcut_sec)
+        <> commandGroup (T.unpack $ fst custom_shortcut_sec)
+        <> foldMap getShortcutCommand (Map.toList conf.shortcuts)
+        )
+      )
+
   <|> hsubparser
     (  metavar (T.unpack $ snd list_sec)
     <> commandGroup (T.unpack $ fst list_sec)
@@ -1158,6 +1188,7 @@ helpReplacements :: Config -> [(Text, Doc AnsiStyle)]
 helpReplacements conf =
   [ basic_sec
   , shortcut_sec
+  , custom_shortcut_sec
   , list_sec
   , vis_sec
   , i_o_sec
@@ -1340,6 +1371,14 @@ executeCLiCommand config now connection progName args availableLinesMb = do
         AddSell bodyWords -> addTaskC $ ["Sell"] <> bodyWords <> ["+sell"]
         AddPay bodyWords -> addTaskC $ ["Pay"] <> bodyWords <> ["+pay"]
         AddShip bodyWords -> addTaskC $ ["Ship"] <> bodyWords <> ["+ship"]
+        AddCustomShortcut shortcut bodyWords ->
+          let
+            prefixWords = case shortcut.prefix of
+              Just pfx -> [pfx]
+              Nothing -> []
+            tagWord = "+" <> shortcut.tag
+          in
+            addTaskC $ prefixWords <> bodyWords <> [tagWord]
         LogTask bodyWords -> logTask conf connection bodyWords
         EnterTask -> enterTask conf connection
         ReadyOn datetime ids -> setReadyUtc conf connection datetime ids

tasklite-core/source/Config.hs

@@ -29,6 +29,9 @@ import Protolude (
  )
 import Protolude qualified as P
 
+import Data.Map.Strict (Map)
+import Data.Map.Strict qualified as Map
+
 import Data.Aeson (
   FromJSON (parseJSON),
   ToJSON (toJSON),
@@ -107,6 +110,26 @@ data HooksConfig = HooksConfig
   deriving (Generic, Show)
 
 
+-- | Custom shortcut for adding tasks with predefined prefix and tag
+data Shortcut = Shortcut
+  { prefix :: Maybe Text
+  -- ^ Optional prefix to prepend to task body (e.g., "Cook")
+  , tag :: Text
+  -- ^ Tag to add to the task (without the + prefix)
+  }
+  deriving (Eq, Generic, Show)
+
+
+instance ToJSON Shortcut
+
+
+instance FromJSON Shortcut where
+  parseJSON = withObject "shortcut" $ \o -> do
+    prefix <- o .:? "prefix"
+    tag <- o .:? "tag" .!= ""
+    pure $ Shortcut{..}
+
+
 instance ToJSON HooksConfig
 
 
@@ -285,6 +308,8 @@ data Config = Config
   , maxWidth :: Maybe Int -- Automatically uses terminal width if not set
   , progressBarWidth :: Int
   , hooks :: HooksConfig
+  , shortcuts :: Map Text Shortcut
+  -- ^ Custom shortcuts for adding tasks (e.g., "cook" -> adds "Cook" prefix and "+cook" tag)
   , noColor :: Bool
   }
   deriving (Generic, Show)
@@ -318,6 +343,7 @@ instance FromJSON Config where
     progressBarWidth <- o .:? "progressBarWidth"
                                 .!= defaultConfig.progressBarWidth
     hooks           <- o .:? "hooks" .!= defaultConfig.hooks
+    shortcuts       <- o .:? "shortcuts" .!= defaultConfig.shortcuts
     noColor         <- o .:? "noColor" .!= defaultConfig.noColor
 
     let maxWidth = maxWidthMb >>=
@@ -423,5 +449,6 @@ defaultConfig =
           , modify = emptyHookSet
           , exit = emptyHookSet
           }
+    , shortcuts = Map.empty
     , noColor = False
     }

tasklite-core/test/TypesSpec.hs

@@ -2,12 +2,12 @@
 
 module TypesSpec where
 
-import Protolude (Maybe (..), Text, ($), (&), (<&>), (<>))
+import Protolude (Either (..), Maybe (..), Text, ($), (&), (<&>), (<>))
 import Protolude qualified as P
 
 import Test.Hspec (Spec, describe, it, shouldBe)
 
-import Config (defaultConfig)
+import Config (Shortcut (..), defaultConfig)
 import Data.Text qualified as T
 import Data.Yaml qualified
 import FullTask (FullTask (body, notes, tags, ulid), emptyFullTask)
@@ -174,3 +174,56 @@ spec = do
             <> "\n"
 
       taskYaml `shouldBe` expected
+
+  describe "Shortcut" $ do
+    it "can be parsed from YAML with prefix and tag" $ do
+      let
+        shortcutYaml :: P.ByteString
+        shortcutYaml =
+          [trimming|
+              prefix: Cook
+              tag: cook
+            |]
+
+        expected :: Shortcut
+        expected =
+          Shortcut
+            { prefix = Just "Cook"
+            , tag = "cook"
+            }
+
+      Data.Yaml.decodeEither' shortcutYaml `shouldBe` Right expected
+
+    it "can be parsed from YAML with tag only" $ do
+      let
+        shortcutYaml :: P.ByteString
+        shortcutYaml =
+          [trimming|
+              tag: fix
+            |]
+
+        expected :: Shortcut
+        expected =
+          Shortcut
+            { prefix = Nothing
+            , tag = "fix"
+            }
+
+      Data.Yaml.decodeEither' shortcutYaml `shouldBe` Right expected
+
+    it "defaults to empty tag when tag is not specified" $ do
+      let
+        shortcutYaml :: P.ByteString
+        shortcutYaml =
+          [trimming|
+              prefix: Cook
+            |]
+
+        expected :: Shortcut
+        expected =
+          Shortcut
+            { prefix = Just "Cook"
+            , tag = ""
+            }
+
+      Data.Yaml.decodeEither' shortcutYaml `shouldBe` Right expected

tasklite/test/CliSpec.hs

@@ -33,8 +33,9 @@ import Cli (
   printOutput,
   renderIOWithConfig,
  )
-import Config (Config, Hook (Hook), HookSet (HookSet), defaultConfig)
+import Config (Config, Hook (Hook), HookSet (HookSet), Shortcut (Shortcut), defaultConfig)
 import Config qualified
+import Data.Map.Strict qualified as Map
 import System.Directory (
   Permissions (executable, readable),
   emptyPermissions,
@@ -244,3 +245,58 @@ spec tmpDirPath = do
         content <- P.readFile filePath
         -- Should contain ANSI escape codes
         T.unpack content `shouldContain` "\ESC["
+
+    it "includes custom shortcuts in help when configured" $ do
+      let
+        testShortcut =
+          Shortcut
+            { Config.prefix = Just "Cook"
+            , Config.tag = "cook"
+            }
+        testConf =
+          defaultConfig
+            { Config.shortcuts = Map.fromList [("cook", testShortcut)]
+            }
+        failure :: ParserFailure ParserHelp =
+          parserFailure
+            defaultPrefs
+            (commandParserInfo testConf)
+            (ShowHelpText P.Nothing)
+            []
+        helpText =
+          renderFailure failure "xxx" & P.fst
+
+      helpText `shouldContain` "cook"
+      helpText `shouldContain` "custom shortcut"
+
+    it "adds task with custom shortcut prefix and tag" $ do
+      let
+        testShortcut =
+          Shortcut
+            { Config.prefix = Just "Cook"
+            , Config.tag = "cook"
+            }
+        testConf =
+          defaultConfig
+            { Config.shortcuts = Map.fromList [("cook", testShortcut)]
+            }
+
+      _ <- printOutput "test-app" (Just ["cook", "dinner"]) testConf
+
+      () `shouldBe` ()
+
+    it "adds task with custom shortcut tag only (no prefix)" $ do
+      let
+        testShortcut =
+          Shortcut
+            { Config.prefix = Nothing
+            , Config.tag = "fix"
+            }
+        testConf =
+          defaultConfig
+            { Config.shortcuts = Map.fromList [("fix", testShortcut)]
+            }
+
+      _ <- printOutput "test-app" (Just ["fix", "bug", "in", "login"]) testConf
+
+      () `shouldBe` ()