Move absolutely measured portions of header to src/base

src/base/page.typ

@@ -1,13 +1,17 @@
 #let base_page(
   header: [],
   body
-) = page(
-  paper: "us-letter",
-  margin: (
-    x: 1in,
-    y: 1in,
-  ),
-  header: header,
-  header-ascent: 0in,
-  body
-)
+) = {
+  import "page/header.typ": base_page_header
+
+  page(
+    paper: "us-letter",
+    margin: (
+      x: 1in,
+      y: 1in,
+    ),
+    header: base_page_header(header),
+    header-ascent: 0in,
+    body
+  )
+}

src/base/page/header.typ

@@ -0,0 +1,8 @@
+#let base_page_header(content) = block(
+  width: 100%,
+  height: 0.5in,
+  align(
+    right + top,
+    content
+  )
+)

src/page/essay/header.typ

@@ -1,12 +1,5 @@
 #let page_essay_header(author_name_last: "") = {
-  import "header/content.typ": page_essay_header_content
-  
-  block(
-    width: 100%,
-    height: 0.5in,
-    align(
-      right + top,
-      page_essay_header_content(author_name_last: author_name_last)
-    )
-  )
+  author_name_last
+  " "
+  counter(page).display()
 }

src/page/essay/header/content.typ

@@ -1,5 +0,0 @@
-#let page_essay_header_content(author_name_last: "") = {
-  author_name_last
-  " "
-  counter(page).display()
-}