@airmark/quiver 0.35.8 → 0.37.0

package/quills/medal_citation/0.1.0/packages/tonguetoquill-medal-citation/LICENSE

@@ -0,0 +1,201 @@
+                                 Apache License
+                           Version 2.0, January 2004
+                        http://www.apache.org/licenses/
+
+   TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
+
+   1. Definitions.
+
+      "License" shall mean the terms and conditions for use, reproduction,
+      and distribution as defined by Sections 1 through 9 of this document.
+
+      "Licensor" shall mean the copyright owner or entity authorized by
+      the copyright owner that is granting the License.
+
+      "Legal Entity" shall mean the union of the acting entity and all
+      other entities that control, are controlled by, or are under common
+      control with that entity. For the purposes of this definition,
+      "control" means (i) the power, direct or indirect, to cause the
+      direction or management of such entity, whether by contract or
+      otherwise, or (ii) ownership of fifty percent (50%) or more of the
+      outstanding shares, or (iii) beneficial ownership of such entity.
+
+      "You" (or "Your") shall mean an individual or Legal Entity
+      exercising permissions granted by this License.
+
+      "Source" form shall mean the preferred form for making modifications,
+      including but not limited to software source code, documentation
+      source, and configuration files.
+
+      "Object" form shall mean any form resulting from mechanical
+      transformation or translation of a Source form, including but
+      not limited to compiled object code, generated documentation,
+      and conversions to other media types.
+
+      "Work" shall mean the work of authorship, whether in Source or
+      Object form, made available under the License, as indicated by a
+      copyright notice that is included in or attached to the work
+      (an example is provided in the Appendix below).
+
+      "Derivative Works" shall mean any work, whether in Source or Object
+      form, that is based on (or derived from) the Work and for which the
+      editorial revisions, annotations, elaborations, or other modifications
+      represent, as a whole, an original work of authorship. For the purposes
+      of this License, Derivative Works shall not include works that remain
+      separable from, or merely link (or bind by name) to the interfaces of,
+      the Work and Derivative Works thereof.
+
+      "Contribution" shall mean any work of authorship, including
+      the original version of the Work and any modifications or additions
+      to that Work or Derivative Works thereof, that is intentionally
+      submitted to Licensor for inclusion in the Work by the copyright owner
+      or by an individual or Legal Entity authorized to submit on behalf of
+      the copyright owner. For the purposes of this definition, "submitted"
+      means any form of electronic, verbal, or written communication sent
+      to the Licensor or its representatives, including but not limited to
+      communication on electronic mailing lists, source code control systems,
+      and issue tracking systems that are managed by, or on behalf of, the
+      Licensor for the purpose of discussing and improving the Work, but
+      excluding communication that is conspicuously marked or otherwise
+      designated in writing by the copyright owner as "Not a Contribution."
+
+      "Contributor" shall mean Licensor and any individual or Legal Entity
+      on behalf of whom a Contribution has been received by Licensor and
+      subsequently incorporated within the Work.
+
+   2. Grant of Copyright License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      copyright license to reproduce, prepare Derivative Works of,
+      publicly display, publicly perform, sublicense, and distribute the
+      Work and such Derivative Works in Source or Object form.
+
+   3. Grant of Patent License. Subject to the terms and conditions of
+      this License, each Contributor hereby grants to You a perpetual,
+      worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+      (except as stated in this section) patent license to make, have made,
+      use, offer to sell, sell, import, and otherwise transfer the Work,
+      where such license applies only to those patent claims licensable
+      by such Contributor that are necessarily infringed by their
+      Contribution(s) alone or by combination of their Contribution(s)
+      with the Work to which such Contribution(s) was submitted. If You
+      institute patent litigation against any entity (including a
+      cross-claim or counterclaim in a lawsuit) alleging that the Work
+      or a Contribution incorporated within the Work constitutes direct
+      or contributory patent infringement, then any patent licenses
+      granted to You under this License for that Work shall terminate
+      as of the date such litigation is filed.
+
+   4. Redistribution. You may reproduce and distribute copies of the
+      Work or Derivative Works thereof in any medium, with or without
+      modifications, and in Source or Object form, provided that You
+      meet the following conditions:
+
+      (a) You must give any other recipients of the Work or
+          Derivative Works a copy of this License; and
+
+      (b) You must cause any modified files to carry prominent notices
+          stating that You changed the files; and
+
+      (c) You must retain, in the Source form of any Derivative Works
+          that You distribute, all copyright, patent, trademark, and
+          attribution notices from the Source form of the Work,
+          excluding those notices that do not pertain to any part of
+          the Derivative Works; and
+
+      (d) If the Work includes a "NOTICE" text file as part of its
+          distribution, then any Derivative Works that You distribute must
+          include a readable copy of the attribution notices contained
+          within such NOTICE file, excluding those notices that do not
+          pertain to any part of the Derivative Works, in at least one
+          of the following places: within a NOTICE text file distributed
+          as part of the Derivative Works; within the Source form or
+          documentation, if provided along with the Derivative Works; or,
+          within a display generated by the Derivative Works, if and
+          wherever such third-party notices normally appear. The contents
+          of the NOTICE file are for informational purposes only and
+          do not modify the License. You may add Your own attribution
+          notices within Derivative Works that You distribute, alongside
+          or as an addendum to the NOTICE text from the Work, provided
+          that such additional attribution notices cannot be construed
+          as modifying the License.
+
+      You may add Your own copyright statement to Your modifications and
+      may provide additional or different license terms and conditions
+      for use, reproduction, or distribution of Your modifications, or
+      for any such Derivative Works as a whole, provided Your use,
+      reproduction, and distribution of the Work otherwise complies with
+      the conditions stated in this License.
+
+   5. Submission of Contributions. Unless You explicitly state otherwise,
+      any Contribution intentionally submitted for inclusion in the Work
+      by You to the Licensor shall be under the terms and conditions of
+      this License, without any additional terms or conditions.
+      Notwithstanding the above, nothing herein shall supersede or modify
+      the terms of any separate license agreement you may have executed
+      with Licensor regarding such Contributions.
+
+   6. Trademarks. This License does not grant permission to use the trade
+      names, trademarks, service marks, or product names of the Licensor,
+      except as required for reasonable and customary use in describing the
+      origin of the Work and reproducing the content of the NOTICE file.
+
+   7. Disclaimer of Warranty. Unless required by applicable law or
+      agreed to in writing, Licensor provides the Work (and each
+      Contributor provides its Contributions) on an "AS IS" BASIS,
+      WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+      implied, including, without limitation, any warranties or conditions
+      of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
+      PARTICULAR PURPOSE. You are solely responsible for determining the
+      appropriateness of using or redistributing the Work and assume any
+      risks associated with Your exercise of permissions under this License.
+
+   8. Limitation of Liability. In no event and under no legal theory,
+      whether in tort (including negligence), contract, or otherwise,
+      unless required by applicable law (such as deliberate and grossly
+      negligent acts) or agreed to in writing, shall any Contributor be
+      liable to You for damages, including any direct, indirect, special,
+      incidental, or consequential damages of any character arising as a
+      result of this License or out of the use or inability to use the
+      Work (including but not limited to damages for loss of goodwill,
+      work stoppage, computer failure or malfunction, or any and all
+      other commercial damages or losses), even if such Contributor
+      has been advised of the possibility of such damages.
+
+   9. Accepting Warranty or Additional Liability. While redistributing
+      the Work or Derivative Works thereof, You may choose to offer,
+      and charge a fee for, acceptance of support, warranty, indemnity,
+      or other liability obligations and/or rights consistent with this
+      License. However, in accepting such obligations, You may act only
+      on Your own behalf and on Your sole responsibility, not on behalf
+      of any other Contributor, and only if You agree to indemnify,
+      defend, and hold each Contributor harmless for any liability
+      incurred by, or claims asserted against, such Contributor by reason
+      of your accepting any such warranty or additional liability.
+
+   END OF TERMS AND CONDITIONS
+
+   APPENDIX: How to apply the Apache License to your work.
+
+      To apply the Apache License to your work, attach the following
+      boilerplate notice, with the fields enclosed by brackets "[]"
+      replaced with your own identifying information. (Don't include
+      the brackets!)  The text should be enclosed in the appropriate
+      comment syntax for the file format. We also recommend that a
+      file or class name and description of purpose be included on the
+      same "printed page" as the copyright notice for easier
+      identification within third-party archives.
+
+   Copyright 2026 Nibs
+
+   Licensed under the Apache License, Version 2.0 (the "License");
+   you may not use this file except in compliance with the License.
+   You may obtain a copy of the License at
+
+       http://www.apache.org/licenses/LICENSE-2.0
+
+   Unless required by applicable law or agreed to in writing, software
+   distributed under the License is distributed on an "AS IS" BASIS,
+   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+   See the License for the specific language governing permissions and
+   limitations under the License.

package/quills/medal_citation/0.1.0/packages/tonguetoquill-medal-citation/fonts/LiberationSerif/LICENSE

@@ -0,0 +1,102 @@
+Digitized data copyright (c) 2010 Google Corporation
+	with Reserved Font Arimo, Tinos and Cousine.
+Copyright (c) 2012 Red Hat, Inc.
+	with Reserved Font Name Liberation.
+
+This Font Software is licensed under the SIL Open Font License,
+Version 1.1.
+
+This license is copied below, and is also available with a FAQ at:
+http://scripts.sil.org/OFL
+
+SIL OPEN FONT LICENSE Version 1.1 - 26 February 2007
+
+PREAMBLE The goals of the Open Font License (OFL) are to stimulate
+worldwide development of collaborative font projects, to support the font
+creation efforts of academic and linguistic communities, and to provide
+a free and open framework in which fonts may be shared and improved in
+partnership with others.
+
+The OFL allows the licensed fonts to be used, studied, modified and
+redistributed freely as long as they are not sold by themselves.
+The fonts, including any derivative works, can be bundled, embedded,
+redistributed and/or sold with any software provided that any reserved
+names are not used by derivative works.  The fonts and derivatives,
+however, cannot be released under any other type of license.  The
+requirement for fonts to remain under this license does not apply to
+any document created using the fonts or their derivatives.
+
+ 
+
+DEFINITIONS
+"Font Software" refers to the set of files released by the Copyright
+Holder(s) under this license and clearly marked as such.
+This may include source files, build scripts and documentation.
+
+"Reserved Font Name" refers to any names specified as such after the
+copyright statement(s).
+
+"Original Version" refers to the collection of Font Software components
+as distributed by the Copyright Holder(s).
+
+"Modified Version" refers to any derivative made by adding to, deleting,
+or substituting ? in part or in whole ?
+any of the components of the Original Version, by changing formats or
+by porting the Font Software to a new environment.
+
+"Author" refers to any designer, engineer, programmer, technical writer
+or other person who contributed to the Font Software.
+
+
+PERMISSION & CONDITIONS
+
+Permission is hereby granted, free of charge, to any person obtaining a
+copy of the Font Software, to use, study, copy, merge, embed, modify,
+redistribute, and sell modified and unmodified copies of the Font
+Software, subject to the following conditions:
+
+1) Neither the Font Software nor any of its individual components,in
+   Original or Modified Versions, may be sold by itself.
+
+2) Original or Modified Versions of the Font Software may be bundled,
+   redistributed and/or sold with any software, provided that each copy
+   contains the above copyright notice and this license. These can be
+   included either as stand-alone text files, human-readable headers or
+   in the appropriate machine-readable metadata fields within text or
+   binary files as long as those fields can be easily viewed by the user.
+
+3) No Modified Version of the Font Software may use the Reserved Font
+   Name(s) unless explicit written permission is granted by the
+   corresponding Copyright Holder. This restriction only applies to the
+   primary font name as presented to the users.
+
+4) The name(s) of the Copyright Holder(s) or the Author(s) of the Font
+   Software shall not be used to promote, endorse or advertise any
+   Modified Version, except to acknowledge the contribution(s) of the
+   Copyright Holder(s) and the Author(s) or with their explicit written
+   permission.
+
+5) The Font Software, modified or unmodified, in part or in whole, must
+   be distributed entirely under this license, and must not be distributed
+   under any other license. The requirement for fonts to remain under
+   this license does not apply to any document created using the Font
+   Software.
+
+
+ 
+TERMINATION
+This license becomes null and void if any of the above conditions are not met.
+
+ 
+
+DISCLAIMER
+THE FONT SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO ANY WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT
+OF COPYRIGHT, PATENT, TRADEMARK, OR OTHER RIGHT.  IN NO EVENT SHALL THE
+COPYRIGHT HOLDER BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+INCLUDING ANY GENERAL, SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL
+DAMAGES, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF THE USE OR INABILITY TO USE THE FONT SOFTWARE OR FROM OTHER
+DEALINGS IN THE FONT SOFTWARE.
+

package/quills/medal_citation/0.1.0/packages/tonguetoquill-medal-citation/src/afam.typ

@@ -0,0 +1,71 @@
+#let font = "Liberation Serif"
+
+#let blank(v) = v == none or v == [] or v == ""
+
+#let ordinal(n) = {
+  let mod = calc.rem(n, 10)
+  let teen = n >= 11 and n <= 13
+  let suffix = if teen or mod == 0 or mod >= 4 { "th" }
+    else if mod == 1 { "st" }
+    else if mod == 2 { "nd" }
+    else { "rd" }
+  str(n) + suffix
+}
+
+#let month-year(d) = upper(d.display("[month repr:long]")) + " " + str(d.year())
+
+#let citation(f) = {
+  set page(paper: "us-letter", margin: 0pt)
+  set text(font: font, size: 15pt, fill: black, hyphenate: false)
+  set par(leading: 0.5em, spacing: 0.5em)
+
+  place(top + left, dx: 187pt, dy: 32.6pt, image("medal-afam.png", width: 242.9pt))
+
+  place(center + top, dy: 164.8pt, text(size: 21.5pt, weight: "bold")[DEPARTMENT OF THE AIR FORCE])
+  place(center + top, dy: 208.1pt, text(size: 11.7pt, weight: "bold")[THIS IS TO CERTIFY THAT])
+  place(center + top, dy: 222.7pt, text(size: 15.6pt, weight: "bold")[THE AIR AND SPACE ACHIEVEMENT MEDAL])
+  // A later award centers the cluster under the medal name. Basic prints no line.
+  let cluster = if blank(f.oak_leaf_cluster) or f.oak_leaf_cluster == "Basic" { none } else { upper(f.oak_leaf_cluster) }
+  let drop = if cluster == none { 0pt } else { 16pt }
+  if cluster != none {
+    place(center + top, dy: 250pt + drop, text(size: 11.7pt, weight: "bold", cluster))
+  }
+  place(center + top, dy: 275pt + drop, text(size: 11.7pt, weight: "bold")[HAS BEEN AWARDED TO])
+  place(center + top, dy: 293pt + drop, text(size: 9.8pt, upper(f.rank)))
+  place(center + top, dy: 308.5pt + drop, text(size: 11.7pt, weight: "bold")[FOR])
+  place(center + top, dy: 326.6pt + drop, text(size: 11.7pt, upper(f.service)))
+  place(center + top, dy: 343.3pt + drop, text(size: 9.8pt)[#f.period_from #h(8pt) TO #h(8pt) #f.period_to])
+  place(center + top, dy: 369.8pt + drop, text(size: 11.7pt, weight: "bold")[ACCOMPLISHMENTS])
+  // The seal is 69.5pt tall and stays on the page, so the signature stops here.
+  let sign-dy = 716pt
+  let given-dy = sign-dy - 16pt
+  let story-dy = 406.7pt + drop
+  let story-h = given-dy - 8pt - story-dy
+  // Half an inch keeps the 15pt lines off the page edge.
+  let side = 36pt
+  let story-w = 612pt - side - side
+  let story = block(width: story-w, {
+    set par(justify: true, leading: 0.5em, spacing: 0.65em)
+    // A pasted line break reflows across the block.
+    show linebreak: [ ]
+    show parbreak: [ ]
+    f.accomplishments
+  })
+  place(top + left, dx: side, dy: story-dy, block(width: story-w, height: story-h, clip: true, story))
+
+  place(top + left, dx: 464.7pt, dy: sign-dy - 8pt, image("seal.png", width: 69.5pt))
+  place(top + left, dx: 82.7pt, dy: given-dy, text(size: 11.7pt)[
+    GIVEN UNDER MY HAND THIS
+    #h(12pt)
+    #if type(f.signed_on) == datetime {
+      ordinal(f.signed_on.day())
+      h(12pt)
+      [DAY OF]
+      h(12pt)
+      month-year(f.signed_on)
+    }
+  ])
+  place(top + left, dx: 82.7pt, dy: sign-dy, line(length: 211pt, stroke: 0.6pt))
+  place(top + left, dx: 82.7pt, dy: sign-dy + 15.4pt, text(size: 11.7pt, f.commander_name))
+  place(top + left, dx: 82.7pt, dy: sign-dy + 28.9pt, text(size: 11.7pt, f.commander_title))
+}

package/quills/medal_citation/0.1.0/packages/tonguetoquill-medal-citation/src/afcm.typ

@@ -0,0 +1,48 @@
+#let font = "Liberation Serif"
+
+#let blank(v) = v == none or v == [] or v == ""
+
+#let citation(f) = {
+  set page(paper: "us-letter", margin: 0pt)
+  set text(font: font, size: 15pt, fill: black, hyphenate: false)
+  set par(leading: 0.5em, spacing: 0.5em)
+
+  // Headings sit 3pt right of the page center, matching the certificate.
+  let heading(dy, size, weight, body) = {
+    place(center + top, dx: 3pt, dy: dy, text(size: size, weight: weight, body))
+  }
+
+  place(top + left, dx: 203.3pt, dy: 57.7pt, image("medal-afcm.png", width: 211.6pt))
+
+  heading(185.6pt, 24.5pt, "bold")[DEPARTMENT OF THE AIR FORCE]
+  heading(226.2pt, 13.7pt, "bold")[THIS IS TO CERTIFY THAT]
+  heading(246.3pt, 17.6pt, "bold")[THE AIR AND SPACE COMMENDATION MEDAL]
+  // The medal name ends near 264pt and the next heading starts at 287pt.
+  let cluster = if blank(f.oak_leaf_cluster) or f.oak_leaf_cluster == "Basic" { none } else { upper(f.oak_leaf_cluster) }
+  if cluster != none {
+    heading(267.5pt, 11.7pt, "bold", cluster)
+  }
+  heading(288.6pt, 13.7pt, "bold")[HAS BEEN AWARDED TO]
+  heading(305.1pt, 9.8pt, "regular", upper(f.rank))
+  heading(332.6pt, 13.7pt, "bold")[FOR]
+  heading(359.6pt, 11.7pt, "regular", upper(f.service))
+  heading(383.4pt, 9.8pt, "regular")[#f.period_from #h(8pt) TO #h(8pt) #f.period_to]
+  heading(408.4pt, 13.7pt, "bold")[ACCOMPLISHMENTS]
+  let side = 36pt
+  let story-w = 612pt - side - side
+  let story-dy = 447pt
+  let story = block(width: story-w, {
+    set par(justify: true, leading: 0.5em, spacing: 0.65em)
+    show linebreak: [ ]
+    show parbreak: [ ]
+    f.accomplishments
+  })
+  place(top + left, dx: side, dy: story-dy, story)
+
+  heading(716pt, 9.8pt, "regular")[GIVEN UNDER MY HAND]
+  heading(730pt, 9.8pt, "regular", f.signed_on)
+  place(top + left, dx: 465.6pt, dy: 720pt, image("seal.png", width: 69.7pt))
+  place(top + left, dx: 82.8pt, dy: 746pt, line(length: 200pt, stroke: 0.6pt))
+  place(top + left, dx: 82.8pt, dy: 754pt, text(size: 11.7pt, f.commander_name))
+  place(top + left, dx: 82.8pt, dy: 768pt, text(size: 11.7pt, f.commander_title))
+}

package/quills/medal_citation/0.1.0/packages/tonguetoquill-medal-citation/src/lib.typ

@@ -0,0 +1,3 @@
+#import "afam.typ": citation as afam
+#import "afcm.typ": citation as afcm
+#import "msm.typ": citation as msm

package/quills/medal_citation/0.1.0/packages/tonguetoquill-medal-citation/src/msm.typ

@@ -0,0 +1,53 @@
+#let font = "Liberation Serif"
+
+#let blank(v) = v == none or v == [] or v == ""
+
+#let citation(f) = {
+  set page(paper: "us-letter", margin: 0pt)
+  set text(font: font, size: 15pt, fill: black, hyphenate: false)
+  set par(leading: 0.5em, spacing: 0.5em)
+
+  // Headings sit 2.4pt right of the page center, matching the certificate.
+  let heading(dy, size, weight, body) = {
+    place(center + top, dx: 2.4pt, dy: dy, text(size: size, weight: weight, body))
+  }
+
+  place(top + left, dx: 187.6pt, dy: 47.3pt, image("medal-msm.png", width: 242.2pt))
+
+  heading(162.7pt, 22.5pt, "bold")[THE UNITED STATES OF AMERICA]
+  heading(188.0pt, 13.7pt, "regular")[TO ALL WHO SHALL SEE THESE PRESENTS, GREETING:]
+  heading(203.9pt, 13.7pt, "regular")[THIS IS TO CERTIFY THAT THE PRESIDENT OF THE UNITED STATES OF]
+  heading(219.8pt, 13.7pt, "regular")[AMERICA AUTHORIZED BY EXECUTIVE ORDER, 16 JANUARY 1969]
+  heading(235.6pt, 13.7pt, "regular")[HAS]
+  heading(251.5pt, 13.7pt, "regular")[AWARDED]
+  heading(270.2pt, 17.6pt, "bold")[THE MERITORIOUS SERVICE MEDAL]
+  // The medal name ends near 288pt and "TO" starts at 314pt.
+  let cluster = if blank(f.oak_leaf_cluster) or f.oak_leaf_cluster == "Basic" { none } else { upper(f.oak_leaf_cluster) }
+  if cluster != none {
+    heading(293.5pt, 11.7pt, "bold", cluster)
+  }
+  heading(314.9pt, 12.7pt, "bold")[TO]
+  heading(339.9pt, 9.8pt, "regular", upper(f.rank))
+  heading(352pt, 12.7pt, "bold")[FOR]
+  heading(366pt, 11.7pt, "regular", upper(f.service))
+  heading(379pt, 9.8pt, "regular")[#f.period_from #h(8pt) TO #h(8pt) #f.period_to]
+  heading(391pt, 12.7pt, "bold")[ACCOMPLISHMENTS]
+  let side = 36pt
+  let story-w = 612pt - side - side
+  let story-dy = 429pt
+  let story = block(width: story-w, {
+    set par(justify: true, leading: 0.5em, spacing: 0.65em)
+    show linebreak: [ ]
+    show parbreak: [ ]
+    f.accomplishments
+  })
+  place(top + left, dx: side, dy: story-dy, story)
+
+  heading(694pt, 9.8pt, "regular")[GIVEN UNDER MY HAND]
+  heading(706pt, 9.8pt, "regular", f.signed_on)
+  place(top + left, dx: 82.7pt, dy: 726pt, line(length: 158pt, stroke: 0.6pt))
+  place(top + left, dx: 271.8pt, dy: 718pt, image("seal.png", width: 69.6pt))
+  place(top + left, dx: 82.7pt, dy: 734pt, text(size: 11.7pt, f.commander_name))
+  place(top + left, dx: 82.7pt, dy: 748pt, text(size: 11.7pt, f.commander_grade))
+  place(top + left, dx: 82.7pt, dy: 762pt, text(size: 11.7pt, f.commander_title))
+}

package/quills/medal_citation/0.1.0/packages/tonguetoquill-medal-citation/typst.toml

@@ -0,0 +1,12 @@
+[package]
+name = "tonguetoquill-medal-citation"
+version = "0.1.0"
+compiler = "0.15.1"
+entrypoint = "src/lib.typ"
+repository = "https://github.com/tonguetoquill/airmark-quiver"
+authors = ["tonguetoquill"]
+license = "Apache-2.0"
+description = "Air and Space Achievement, Meritorious Service, and Air and Space Commendation Medal citations."
+keywords = ["USAF", "Air Force", "medal", "citation", "decoration"]
+categories = ["office"]
+disciplines = ["politics", "business", "education"]

package/quills/medal_citation/0.1.0/plate.typ

@@ -0,0 +1,145 @@
+#import "@local/quillmark-helper:0.2.0" as qm
+#import "@local/tonguetoquill-medal-citation:0.1.0": afam, afcm, msm
+
+#let trim(v) = {
+  if type(v) != content { return v }
+  let kids = v.at("children", default: none)
+  if kids == none { return v }
+  let padding(c) = c == [ ] or c.func() == parbreak
+  while kids.len() > 0 and padding(kids.first()) { kids = kids.slice(1) }
+  while kids.len() > 0 and padding(kids.last()) { kids = kids.slice(0, -1) }
+  kids.sum(default: [])
+}
+
+#let ink-value(v) = {
+  let trimmed = trim(v)
+  if trimmed == none or trimmed == "" or trimmed == [] { [] } else { trimmed }
+}
+
+#let ink(key) = ink-value(qm.data.at(key))
+
+// The accomplishments paragraph is 1350 characters. A space counts.
+#let counted(c) = {
+  c == [ ] or c.func() == linebreak or c.func() == parbreak or c.func() == smartquote
+}
+
+#let char-count(c) = {
+  if type(c) == str { return c.clusters().len() }
+  if type(c) != content { return 0 }
+  if counted(c) { return 1 }
+  if c.has("text") and type(c.at("text")) == str { return c.text.clusters().len() }
+  if c.has("children") { return c.children.map(char-count).sum(default: 0) }
+  if c.has("body") { return char-count(c.body) }
+  if c.has("child") { return char-count(c.child) }
+  0
+}
+
+// Returns (kept content or none, characters still available).
+#let take-chars(c, left) = {
+  if left <= 0 { return (none, 0) }
+  if type(c) == str {
+    let clusters = c.clusters()
+    if clusters.len() <= left { return (c, left - clusters.len()) }
+    return (clusters.slice(0, left).join(), 0)
+  }
+  if type(c) != content { return (c, left) }
+  if counted(c) { return (c, left - 1) }
+  if c.has("text") and type(c.at("text")) == str {
+    let clusters = c.text.clusters()
+    if clusters.len() <= left { return (c, left - clusters.len()) }
+    let kept = clusters.slice(0, left).join()
+    let fields = c.fields()
+    fields.remove("text")
+    let out = if fields.len() == 0 { text(kept) } else { text(..fields, kept) }
+    return (out, 0)
+  }
+  if c.has("children") {
+    let kept = ()
+    let rest = left
+    for k in c.children {
+      if rest <= 0 { break }
+      let (piece, next) = take-chars(k, rest)
+      rest = next
+      if piece != none { kept.push(piece) }
+    }
+    if kept.len() == 0 { return (none, rest) }
+    let out = if c.fields().keys() == ("children",) {
+      kept.sum(default: [])
+    } else {
+      let fields = c.fields()
+      fields.remove("children")
+      c.func()(..fields, children: kept)
+    }
+    return (out, rest)
+  }
+  if c.has("body") {
+    let (piece, rest) = take-chars(c.body, left)
+    if piece == none { return (none, rest) }
+    let fields = c.fields()
+    fields.remove("body")
+    let out = if fields.len() == 0 { c.func()(piece) } else { c.func()(..fields, piece) }
+    return (out, rest)
+  }
+  if c.has("child") {
+    let (piece, rest) = take-chars(c.child, left)
+    if piece == none { return (none, rest) }
+    let fields = c.fields()
+    fields.remove("child")
+    let out = if fields.len() == 0 { c.func()(piece) } else { c.func()(..fields, piece) }
+    return (out, rest)
+  }
+  (c, left)
+}
+
+#let capped(body, limit) = {
+  if type(body) != content { return body }
+  if char-count(body) <= limit { return body }
+  let (out, _) = take-chars(body, limit)
+  if out == none { [] } else { out }
+}
+
+#let period-pattern = "[day padding:none] [month repr:long] [year]"
+#let shown-date(key) = {
+  let shown = qm.ink(qm.data, key, period-pattern)
+  if shown == none { [] } else { upper(shown) }
+}
+
+#let choice(key) = {
+  let field = qm.data.at(key)
+  let value = if type(field) == str { field } else { field.value }
+  if value == none { "" } else { value }
+}
+
+#let medal-field = qm.data.medal
+#let medal = if type(medal-field) == str { medal-field } else { medal-field.value }
+
+#let common = (
+  oak_leaf_cluster: choice("oak_leaf_cluster"),
+  rank: ink("rank"),
+  service: ink("service"),
+  period_from: shown-date("period_from"),
+  period_to: shown-date("period_to"),
+  accomplishments: capped(ink("accomplishments"), 1350),
+  commander_title: ink("commander_title"),
+)
+
+#if medal == "Air and Space Achievement Medal" {
+  afam((
+    ..common,
+    signed_on: medal-field.at("afam_signed_on"),
+    commander_name: ink-value(medal-field.commander_name),
+  ))
+} else if medal == "Meritorious Service Medal" {
+  msm((
+    ..common,
+    signed_on: shown-date("medal.signed_on"),
+    commander_name: ink-value(medal-field.msm_commander_name),
+    commander_grade: ink-value(medal-field.commander_grade),
+  ))
+} else if medal == "Air and Space Commendation Medal" {
+  afcm((
+    ..common,
+    signed_on: shown-date("medal.signed_on"),
+    commander_name: ink-value(medal-field.commander_name),
+  ))
+}