diff --git a/pandoc-server.cabal b/pandoc-server.cabal
--- a/pandoc-server.cabal
+++ b/pandoc-server.cabal
@@ -1,6 +1,6 @@
 cabal-version:   2.4
 name:            pandoc-server
-version:         0.1.0.7
+version:         0.1.0.8
 build-type:      Simple
 license:         GPL-2.0-or-later
 license-file:    COPYING.md
@@ -49,7 +49,7 @@
 
 library
   import:        common-options
-  build-depends: pandoc                >= 3.3      && < 3.4,
+  build-depends: pandoc                >= 3.4      && < 3.5,
                  pandoc-types          >= 1.22     && < 1.24,
                  containers            >= 0.6.0.1  && < 0.8,
                  aeson                 >= 2.0      && < 2.3,
diff --git a/src/Text/Pandoc/Server.hs b/src/Text/Pandoc/Server.hs
--- a/src/Text/Pandoc/Server.hs
+++ b/src/Text/Pandoc/Server.hs
@@ -21,6 +21,7 @@
 import Text.Pandoc.Writers.Shared (lookupMetaString)
 import Text.Pandoc.Citeproc (processCitations)
 import Text.Pandoc.Highlighting (lookupHighlightingStyle)
+import Text.Pandoc.Chunks (PathTemplate(..))
 import qualified Text.Pandoc.UTF8 as UTF8
 import Data.Text (Text)
 import qualified Data.Text as T
@@ -302,8 +303,8 @@
                         , readerStripComments = optStripComments opts
                         }
 
-    let writeropts =
-          def{ writerExtensions = writerExts
+    let writeropts = WriterOptions
+             { writerExtensions = writerExts
              , writerTabStop = optTabStop opts
              , writerWrapText = optWrap opts
              , writerColumns = optColumns opts
@@ -327,14 +328,22 @@
              , writerListings = optListings opts
              , writerHighlightStyle = hlStyle
              , writerSetextHeaders = optSetextHeaders opts
+             , writerListTables = optListTables opts
              , writerEpubSubdirectory = T.pack $ optEpubSubdirectory opts
              , writerEpubMetadata = T.pack <$> optEpubMetadata opts
              , writerEpubFonts = optEpubFonts opts
+             , writerEpubTitlePage    = optEpubTitlePage opts
              , writerSplitLevel = optSplitLevel opts
+             , writerChunkTemplate = maybe (PathTemplate "%s-%i.html")
+                                         PathTemplate
+                                         (optChunkTemplate opts)
              , writerTOCDepth = optTOCDepth opts
              , writerReferenceDoc = optReferenceDoc opts
              , writerReferenceLocation = optReferenceLocation opts
+             , writerFigureCaptionPosition = optFigureCaptionPosition opts
+             , writerTableCaptionPosition = optTableCaptionPosition opts
              , writerPreferAscii = optAscii opts
+             , writerLinkImages = optLinkImages opts
              }
 
     let reader = case readerSpec of