# HG changeset patch
# User Zachary Kanfer <zkanfer@gmail.com>
# Date 1506572329 14400
#      Thu Sep 28 00:18:49 2017 -0400
# Node ID 9fa0834d7130a529d11c91e7c2277734cb4902fe
# Parent  153fbad8b0d85d14b2c7faac171fe33af8c6d176
add function to make a keyword.

diff --git a/tests.el b/tests.el
--- a/tests.el
+++ b/tests.el
@@ -1329,6 +1329,10 @@
 
 
 
+(ert-deftest make-keyword/returns-proper-keyword ()
+  (should (equal (zpresent--make-keyword "pants")
+                 :pants)))
+
 
 
 ;;; tests.el ends here
diff --git a/zpresent.el b/zpresent.el
--- a/zpresent.el
+++ b/zpresent.el
@@ -906,6 +906,13 @@
                 unique-key))))
 
 
+(defun zpresent--make-keyword (name)
+  "Make a keyword from NAME.
+
+Given \"pants\", returns a keyword that's equal to :pants."
+  (intern (format ":%s" name)))
+
+
 (provide 'zpresent)
 
 ;;; zpresent.el ends here