about.qmd

---
image: images/profile.png
about: 
  id: about-heading
  template: trestles
  image-width: 316px
format:
  html:
    toc: false
    page-layout: article
---

```{r}

box::use(
  dplyr[...],
  glue[...],
  googlesheets4[...],
  here[here],
  ./helpers[bibliography, format_entries, make_blocks]
)

here("_credentials.RData") |> load()

```

::: {#about-heading}
### Who am I? 🤔

Well, I'm a **BEHAVIORAL ECOLOGIST** studying the social and environmental
drivers of human behavior; an **ARCHAEOLOGIST** using past human behavior to
test hypotheses; a **DATA SCIENTIST** trying to make archaeological research
more reproducible; an **EDUCATOR** working to make archaeological science more
accessible; and a **NERD** hoping to make life just a little more weird. I'll
take all the Middle Earth, Marvel, Star Trek, Star Wars, and Stargate I can get.
That, and DnD. I'm even a critter.\

::: {.small .text-muted}
*Oh! If you came looking for my curriculum vitae, just click the*
[{{< ai cv size=lg >}}](blake_vitae.pdf) *button in the navbar.*
:::
:::

## {{< fa address-card >}} Contact Information

::: {.grid style="row-gap: 1em;"}
::: {.g-col-12 .g-col-md-8}
<p class="mb-0">

Center for Collaborative Synthesis in Archaeology\
Institute of Behavioral Science\
University of Colorado, Boulder\
1440 15th Street\
Boulder, CO 80302\
(303) 492-8147

</p>
:::

::: {.g-col-12 .g-col-md-4 .ms-md-auto}
[CU Boulder Page](https://ibs.colorado.edu/people/kenneth-blake-vernon/){.btn
.btn-outline-primary target="_blank"}
:::
:::

## {{< fa briefcase >}} Appointments

```{r}

read_sheet(google_page_id, sheet = "appointments") |>
  mutate(
    end = ifelse(is.na(end), "present", end),
    x = glue("<li class='mb-3'>**{title}** | {start}&#8209;{end}<br>{organization}</li>")
  ) |> 
  arrange(desc(start)) |> 
  pull(x) |> 
  (\(x) cat("<ul class='list-unstyled'>", x, "</ul>", sep = "\n"))()
  
```

## {{< fa graduation-cap >}} Education

```{r}

read_sheet(google_page_id, sheet = "education") |> 
  mutate(
    x = glue::glue("<li class='mb-3'>**{university}** | {location}<br>{degree} in {major}, {end}</li>"), 
  ) |> 
  arrange(desc(start)) |> 
  pull(x) |> 
  (\(x) cat("<ul class='list-unstyled'>", x, "</ul>", sep = "\n"))()

```

## {{< fa people-arrows >}} Professional Affiliations {#affiliations}

```{r}

read_sheet(google_page_id, sheet = "affiliations") %>% 
  mutate(
    end = ifelse(is.na(end), "present", end),
    x = glue::glue("<li class='mb-3'><a href='{url}' target='_blank'>{organization}</a> | {start}&#8209;{end}</li>")
  ) %>% 
  pull(x) |> 
  (\(x) cat("<ul class='list-unstyled'>", x, "</ul>", sep = "\n"))()

```