diff --git a/.gitignore b/.gitignore
index 14cd118..0c45146 100644
--- a/.gitignore
+++ b/.gitignore
@@ -12,3 +12,4 @@ libs
 _main.*
 bookdown*
 tmp-pdfcrop-*
+figures
diff --git a/figures.R b/figures.R
new file mode 100644
index 0000000..87f94ea
--- /dev/null
+++ b/figures.R
@@ -0,0 +1,18 @@
+library(stringr)
+library(purrr)
+
+chapters <- dir("_bookdown_files", full.names = TRUE, pattern = "_files$")
+
+figures <- dir(chapters, full.names = TRUE, pattern = "-latex")
+
+name <- figures %>%
+  dirname() %>%
+  basename() %>%
+  str_replace("_files", "")
+
+out_path <- file.path("figures", name)
+
+dir.create("figures/")
+out_path %>% walk(dir.create)
+
+map2(figures, out_path, ~ file.copy(dir(.x, full.names = TRUE), .y))