diff --git a/R/revealjs_presentation.R b/R/revealjs_presentation.R
index 47f4073..7d8c082 100644
--- a/R/revealjs_presentation.R
+++ b/R/revealjs_presentation.R
@@ -216,6 +216,15 @@
   # use history
   args <- c(args, pandoc_variable_arg("history", "true"))
 
+  # The IDS corporate design puts the orange bar flush against the top left
+  # corner of the slide. reveal.js defaults to margin = 0.04, i.e. it keeps 4%
+  # of the display empty around the content, which would leave a white border
+  # above and to the left of the bar. Default to 0 instead, unless the document
+  # asks for a margin of its own via reveal_options.
+  if (!is.list(reveal_options) || is.null(reveal_options[["margin"]])) {
+    args <- c(args, pandoc_variable_arg("margin", "0"))
+  }
+
   # additional reveal options
   if (is.list(reveal_options)) {
     for (option in names(reveal_options)) {