Finishing touches on --link-images:

- Document in defaults file section of MANUAL.
- Add to pandoc-lua-engine writer option marshalling.
- Add to pandoc-server initialization of writer options.

MANUAL.txt

@@ -1974,6 +1974,10 @@ To include the built-in citeproc filter, use either `citeproc` or
 | ```                              | ```                               |
 +----------------------------------+-----------------------------------+
 | ```                              | ``` yaml                          |
+| --link-images                    | link-images: true                 |
+| ```                              | ```                               |
++----------------------------------+-----------------------------------+
+| ```                              | ``` yaml                          |
 | --html-q-tags                    | html-q-tags: true                 |
 | ```                              | ```                               |
 +----------------------------------+-----------------------------------+

pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/WriterOptions.hs

@@ -120,6 +120,11 @@ typeWriterOptions = deftype "WriterOptions"
     (pushViaJSON, writerHTMLMathMethod)
     (peekViaJSON, \opts x -> opts{ writerHTMLMathMethod = x })
 
+  , property "link_images"
+    "Include links to images instead of embedding in ODT"
+    (pushBool, writerLinkImages)
+    (peekBool, \opts x -> opts{ writerLinkImages = x })
+
   , property "html_q_tags"
     "Use @<q>@ tags for quotes in HTML"
     (pushBool, writerHtmlQTags)

pandoc-server/src/Text/Pandoc/Server.hs

@@ -302,8 +302,8 @@ server = convertBytes
                         , readerStripComments = optStripComments opts
                         }
 
-    let writeropts =
-          def{ writerExtensions = writerExts
+    let writeropts = def
+             { writerExtensions = writerExts
              , writerTabStop = optTabStop opts
              , writerWrapText = optWrap opts
              , writerColumns = optColumns opts
@@ -337,6 +337,7 @@ server = convertBytes
              , writerFigureCaptionPosition = optFigureCaptionPosition opts
              , writerTableCaptionPosition = optTableCaptionPosition opts
              , writerPreferAscii = optAscii opts
+             , writerLinkImages = optLinkImages opts
              }
 
     let reader = case readerSpec of