From bf5e51b5c33d5bdd5658f7e8275850d11fc39ca8 Mon Sep 17 00:00:00 2001
From: Cat Stevens <catb0t@protonmail.ch>
Date: Thu, 4 Jan 2018 22:49:46 -0500
Subject: [PATCH] extra/cap: add a summary and short docs to cap vocab

---
 extra/cap/cap-docs.factor | 15 +++++++++++++++
 extra/cap/summary.txt     |  1 +
 2 files changed, 16 insertions(+)
 create mode 100644 extra/cap/cap-docs.factor
 create mode 100644 extra/cap/summary.txt

diff --git a/extra/cap/cap-docs.factor b/extra/cap/cap-docs.factor
new file mode 100644
index 0000000000..909ee8562d
--- /dev/null
+++ b/extra/cap/cap-docs.factor
@@ -0,0 +1,15 @@
+USING: cap help.markup help.syntax images opengl ui.gadgets.worlds ;
+IN: cap
+
+HELP: screenshot.
+  { $values { "window" world } }
+  { $description
+    "Opens a window with a screenshot of the currently active window."
+  } ;
+
+HELP: screenshot
+  { $values { "window" world } { "bitmap" image } }
+  { $description
+    "Creates a bitmap image of a UI window."
+  }
+  { $notes "If the current " { $link gl-scale-factor } " is " { $snippet "2.0" } ", then the " { $snippet "2x" } " slot in the resulting " { $link image } " will be " { $link t } "." } ;
\ No newline at end of file
diff --git a/extra/cap/summary.txt b/extra/cap/summary.txt
new file mode 100644
index 0000000000..3246a88354
--- /dev/null
+++ b/extra/cap/summary.txt
@@ -0,0 +1 @@
+Creating and displaying screenshots of Factor
\ No newline at end of file