✨ feat：初始化 QuickJump 项目，实现完整的目录跳转和配置管理功能

2026-02-04 15:49:17 +08:00
commit eb48924491
10 changed files with 1455 additions and 0 deletions
--- a/app/Types.hs
+++ b/app/Types.hs
@@ -0,0 +1,132 @@
+{-# LANGUAGE DeriveGeneric     #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+module Types
+  ( Config(..)
+  , JumpEntry(..)
+  , Command(..)
+  , QuickAction(..)
+  , ConfigAction(..)
+  , defaultConfig
+  , emptyConfig
+  ) where
+
+import           Data.Aeson
+import           Data.Map    (Map)
+import qualified Data.Map    as M
+import           Data.Text   (Text)
+import           GHC.Generics
+
+-- | 单个跳转条目
+data JumpEntry = JumpEntry
+  { path        :: FilePath  -- ^ 目标路径
+  , description :: Maybe Text -- ^ 可选描述
+  , priority    :: Int       -- ^ 优先级（数字越小越优先）
+  } deriving (Show, Eq, Generic)
+
+instance ToJSON JumpEntry where
+  toJSON entry = object
+    [ "path"        .= path entry
+    , "description" .= description entry
+    , "priority"    .= priority entry
+    ]
+
+instance FromJSON JumpEntry where
+  parseJSON = withObject "JumpEntry" $ \v -> JumpEntry
+    <$> v .:  "path"
+    <*> v .:? "description"
+    <*> v .:? "priority" .!= 100
+
+-- | 配置文件结构
+data Config = Config
+  { version     :: Text                    -- ^ 配置版本
+  , entries     :: Map Text JumpEntry      -- ^ 命名跳转条目
+  , defaultPath :: Maybe FilePath          -- ^ 默认打开路径
+  , editor      :: Maybe FilePath          -- ^ 首选编辑器
+  , fileManager :: Maybe FilePath          -- ^ 首选文件管理器
+  } deriving (Show, Eq, Generic)
+
+instance ToJSON Config where
+  toJSON cfg = object
+    [ "version"      .= version cfg
+    , "entries"      .= entries cfg
+    , "default_path" .= defaultPath cfg
+    , "editor"       .= editor cfg
+    , "file_manager" .= fileManager cfg
+    ]
+
+instance FromJSON Config where
+  parseJSON = withObject "Config" $ \v -> Config
+    <$> v .:? "version" .!= "1.0"
+    <*> v .:? "entries" .!= M.empty
+    <*> v .:? "default_path"
+    <*> v .:? "editor"
+    <*> v .:? "file_manager"
+
+-- | 快速操作类型
+data QuickAction
+  = QuickOpen Text           -- ^ 打开配置中的指定条目
+  | QuickOpenPath FilePath   -- ^ 打开指定路径
+  | QuickList                -- ^ 列出所有快速条目
+  | QuickDefault             -- ^ 打开默认路径
+  deriving (Show, Eq)
+
+-- | 配置操作类型
+data ConfigAction
+  = ConfigAdd Text FilePath (Maybe Text)  -- ^ 添加条目: 名称 路径 [描述]
+  | ConfigRemove Text                     -- ^ 删除条目
+  | ConfigList                            -- ^ 列出所有条目
+  | ConfigSetDefault FilePath             -- ^ 设置默认路径
+  | ConfigSetEditor FilePath              -- ^ 设置编辑器
+  | ConfigSetFileManager FilePath         -- ^ 设置文件管理器
+  | ConfigExport FilePath                 -- ^ 导出配置到文件
+  | ConfigImport FilePath Bool            -- ^ 导入配置 (文件路径, 是否合并)
+  | ConfigEdit                            -- ^ 用编辑器打开配置文件
+  | ConfigShow                            -- ^ 显示当前配置
+  deriving (Show, Eq)
+
+-- | 主命令类型
+data Command
+  = Jump Text Bool           -- ^ 跳转到指定条目 (名称, 是否静默)
+  | JumpInteractive Bool     -- ^ 交互式选择跳转 (是否静默)
+  | Quick QuickAction Bool   -- ^ 快速操作 (操作, 是否静默)
+  | ConfigCmd ConfigAction Bool -- ^ 配置操作 (操作, 是否静默)
+  | ShellIntegration         -- ^ 输出 shell 集成脚本
+  | Version                  -- ^ 显示版本
+  deriving (Show, Eq)
+
+-- | 空配置
+emptyConfig :: Config
+emptyConfig = Config
+  { version     = "1.0"
+  , entries     = M.empty
+  , defaultPath = Nothing
+  , editor      = Nothing
+  , fileManager = Nothing
+  }
+
+-- | 默认配置（带示例）
+defaultConfig :: Config
+defaultConfig = Config
+  { version     = "1.0"
+  , entries     = M.fromList
+      [ ("home", JumpEntry
+          { path = "~"
+          , description = Just "Home directory"
+          , priority = 1
+          })
+      , ("docs", JumpEntry
+          { path = "~/Documents"
+          , description = Just "Documents folder"
+          , priority = 2
+          })
+      , ("downloads", JumpEntry
+          { path = "~/Downloads"
+          , description = Just "Downloads folder"
+          , priority = 3
+          })
+      ]
+  , defaultPath = Just "~"
+  , editor      = Just "vim"
+  , fileManager = Nothing
+  }