diff --git a/casr-logbook-meta-html.cabal b/casr-logbook-meta-html.cabal
--- a/casr-logbook-meta-html.cabal
+++ b/casr-logbook-meta-html.cabal
@@ -1,5 +1,5 @@
 name:               casr-logbook-meta-html
-version:            0.0.3
+version:            0.0.4
 license:            OtherLicense
 license-file:       LICENSE
 author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>
@@ -34,7 +34,8 @@
   build-depends:
                     base < 5 && >= 4.8
                     , casr-logbook-types >= 0.0.1 && < 0.1
-                    , casr-logbook-meta >= 0.0.4 && < 0.2
+                    , casr-logbook-html >= 0.0.2 && < 0.1
+                    , casr-logbook-meta >= 0.0.4 && < 0.1
                     , lucid >= 2.9 && < 3
                     , lens >= 4.1 && < 5
                     , text >= 1.2 && < 1.3
diff --git a/changelog b/changelog
--- a/changelog
+++ b/changelog
@@ -1,3 +1,7 @@
+0.0.4
+
+* Add `htmlLogbookDocumentMeta` function.
+
 0.0.3
 
 * Use `casr-logbook-types` and not `casr-logbook`.
diff --git a/src/Data/Aviation/Casr/Logbook/Meta/Html.hs b/src/Data/Aviation/Casr/Logbook/Meta/Html.hs
--- a/src/Data/Aviation/Casr/Logbook/Meta/Html.hs
+++ b/src/Data/Aviation/Casr/Logbook/Meta/Html.hs
@@ -26,6 +26,7 @@
   , htmlSimulatorFlightMeta
   , htmlExamMeta
   , htmlBriefingMeta
+  , htmlLogbookDocumentMeta
   , showCentsAsDollars
   , showThousandCentsAsDollars
   , showHundredCentsAsDollars
@@ -34,12 +35,14 @@
 
 import Control.Category((.), id)
 import Control.Monad(when)
-import Data.Aviation.Casr.Logbook.Types (
+import Data.Aviation.Casr.Logbook.Types(
     AircraftFlight
   , SimulatorFlight
   , Briefing
   , Exam
+  , Logbook
   )
+import Data.Aviation.Casr.Logbook.Html.Html(htmlLogbookDocument)
 import Data.Aviation.Casr.Logbook.Meta(
     AircraftFlightExpense(ExpenseAircraftUsage, ExpenseAircraftLanding)
   , AircraftFlightMeta(AircraftFlightMeta)
@@ -361,6 +364,13 @@
     do  span_ [class_ "briefingmetaheader"] "Expenses"
         ul_ [] $
           mapM_ (li_ [class_ "expense"] . htmlBriefingExpense b) q) s
+
+htmlLogbookDocumentMeta ::
+  Html ()
+  -> Logbook AircraftFlightMeta SimulatorFlightMeta ExamMeta BriefingMeta
+  -> Html ()
+htmlLogbookDocumentMeta =
+  htmlLogbookDocument htmlAircraftFlightMeta htmlSimulatorFlightMeta htmlExamMeta htmlBriefingMeta
 
 ----