Move `--version` handling to pandoc-cli.

Print flag settings (lua, server) and versions of all relevant packages.
Add suffix for nightly builds.

Move `nightly` flag from pandoc to pandoc-cli.

Closes #8339.

1 files changed, 85 insertions, 1 deletions

diff --git a/pandoc-cli/src/pandoc.hs b/pandoc-cli/src/pandoc.hs
index 77bd869d3..e3d76624a 100644
--- a/pandoc-cli/src/pandoc.hs
+++ b/pandoc-cli/src/pandoc.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE CPP #-}
 {- |
    Module      : Main
    Copyright   : Copyright (C) 2006-2022 John MacFarlane
@@ -15,16 +16,49 @@ module Main where
 import qualified Control.Exception as E
 import System.Environment (getArgs, getProgName)
 import Text.Pandoc.App ( convertWithOpts, defaultOpts, options
-                       , parseOptionsFromArgs)
+                       , parseOptionsFromArgs )
 import Text.Pandoc.Error (handleError)
 import qualified Text.Pandoc.UTF8 as UTF8
+import System.Exit (exitSuccess)
+import Data.Monoid (Any(..))
+import Control.Monad (when)
 import PandocCLI.Lua
 import PandocCLI.Server
+import Text.Pandoc.Shared (pandocVersion, defaultUserDataDir)
+import Text.Pandoc.Scripting (ScriptingEngine(..))
+import Data.Version (showVersion)
+import qualified Data.Text as T
+-- We import the following to avoid warnings about unused packages.
+-- We need these in the cabal file so that VERSION_xxx is defined.
+import Text.TeXMath ()
+import Skylighting ()
+import Data.Ipynb ()
+import Text.Pandoc.Definition ()
+import Citeproc ()
+
+#ifdef NIGHTLY
+import qualified Language.Haskell.TH as TH
+import Data.Time
+#endif
+
+#ifdef NIGHTLY
+versionSuffix :: String
+versionSuffix = "-nightly-" ++
+  $(TH.stringE =<<
+    TH.runIO (formatTime defaultTimeLocale "%F" <$> Data.Time.getCurrentTime))
+#else
+versionSuffix :: String
+versionSuffix = ""
+#endif
 
 main :: IO ()
 main = E.handle (handleError . Left) $ do
   prg <- getProgName
   rawArgs <- map UTF8.decodeArg <$> getArgs
+  let hasVersion = getAny $ foldMap
+         (\s -> Any (s == "-v" || s == "--version"))
+         (takeWhile (/= "--") rawArgs)
+  when hasVersion versionInfo
   case prg of
     "pandoc-server.cgi" -> runCGI
     "pandoc-server"     -> runServer rawArgs
@@ -38,3 +72,53 @@ main = E.handle (handleError . Left) $ do
           let cliOpts = options engine
           opts <- parseOptionsFromArgs cliOpts defaultOpts prg rawArgs
           convertWithOpts engine opts
+
+copyrightMessage :: String
+copyrightMessage =
+ "Copyright (C) 2006-2022 John MacFarlane. Web:  https://pandoc.org\n"
+ ++
+ "This is free software; see the source for copying conditions. There is no\n"
+ ++
+ "warranty, not even for merchantability or fitness for a particular purpose."
+
+compileInfo :: String
+compileInfo =
+  "Compiled with pandoc-types " ++ VERSION_pandoc_types ++
+  ", texmath " ++ VERSION_texmath ++ ", skylighting " ++
+  VERSION_skylighting ++ ",\nciteproc " ++ VERSION_citeproc ++
+  ", ipynb " ++ VERSION_ipynb ++ ", pandoc-cli " ++ VERSION_pandoc_cli
+#ifdef VERSION_pandoc_server
+  ++ ", pandoc-server " ++ VERSION_pandoc_server
+#endif
+#ifdef VERSION_hslua_cli
+  ++ ", hslua_cli " ++ VERSION_hslua_cli
+#endif
+
+flagSettings :: String
+flagSettings =
+#ifdef VERSION_pandoc_server
+  "+server"
+#else
+  "-server"
+#endif
+  ++ " " ++
+#ifdef VERSION_hslua_cli
+  "+lua"
+#else
+  "-lua"
+#endif
+
+versionInfo :: IO ()
+versionInfo = do
+  progname <- getProgName
+  defaultDatadir <- defaultUserDataDir
+  scriptingEngine <- getEngine
+  putStr $ unlines
+   [ progname ++ " " ++ showVersion pandocVersion ++ versionSuffix
+   , flagSettings
+   , compileInfo
+   , "Scripting engine: " ++ T.unpack (engineName scriptingEngine)
+   , "User data directory: " ++ defaultDatadir
+   , copyrightMessage
+   ]
+  exitSuccess