~zck/zpresent commit - sourcehut hg

2 files changed, 11 insertions(+), 0 deletions(-)

M tests.el
M zpresent.el

M tests.el +4 -0

@@ 1329,6 1329,10 @@ 
 
 
 
+(ert-deftest make-keyword/returns-proper-keyword ()
+  (should (equal (zpresent--make-keyword "pants")
+                 :pants)))
+
 
 
 ;;; tests.el ends here

M zpresent.el +7 -0

@@ 906,6 906,13 @@ If you want to insert an image, use '#'z
                 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