dotemacs

commit 51fc131a05ca7d1a2eef9e874d29a2d40a4daf2a
parent ead5417119f2edabbfe5dd193052646a4b4f4dd9
Author: Lukas Henkel <lh@entf.net>
Date:   Tue, 31 Aug 2021 19:53:18 +0200

Add function for inserting random sha1sums

Diffstat:
M
lisp/utils.el
 | 
5
+++++

1 file changed, 5 insertions(+), 0 deletions(-)
diff --git a/lisp/utils.el b/lisp/utils.el
@@ -14,4 +14,9 @@
     (base64-encode-region (point-min) (point-max))
     (buffer-string)))
 
+(defun util-insert-random-sha1 ()
+  "Insert a random sha1 sum at point"
+  (interactive)
+  (insert (sha1 (number-to-string (random)))))
+
 (provide 'utils)