From 0658710f7fcd2ac57abfaf1c387ef363a4a889da Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 5 Mar 2025 20:42:14 +0100
Subject: Checkout command

Changelog: Added `checkout` command
---
 src/Command/Checkout.hs | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 src/Command/Checkout.hs

(limited to 'src/Command/Checkout.hs')

diff --git a/src/Command/Checkout.hs b/src/Command/Checkout.hs
new file mode 100644
index 0000000..c180a34
--- /dev/null
+++ b/src/Command/Checkout.hs
@@ -0,0 +1,34 @@
+module Command.Checkout (
+    CheckoutCommand,
+) where
+
+import Data.Text (Text)
+import Data.Text qualified as T
+
+import Command
+import Repo
+
+
+data CheckoutCommand = CheckoutCommand (Maybe RepoName) Text
+
+instance Command CheckoutCommand where
+    commandName _ = "checkout"
+    commandDescription _ = "Checkout (part of) a given repository"
+
+    type CommandArguments CheckoutCommand = [ Text ]
+
+    commandUsage _ = T.pack $ unlines $
+        [ "Usage: minici checkout [<repo> [<revision>]] [<option>...]"
+        ]
+
+    commandInit _ _ = \case
+        (name : revision : _) -> CheckoutCommand (Just (RepoName name)) revision
+        [ name ] -> CheckoutCommand (Just (RepoName name)) "HEAD"
+        [] -> CheckoutCommand Nothing "HEAD"
+    commandExec = cmdCheckout
+
+cmdCheckout :: CheckoutCommand -> CommandExec ()
+cmdCheckout (CheckoutCommand name revision) = do
+    repo <- maybe getDefaultRepo getRepo name
+    commit <- maybe (fail $ T.unpack $ "revision `" <> revision <> "' not found") return =<< readCommit repo revision
+    checkoutAt commit "."
-- 
cgit v1.2.3