Add urandom function

2024-04-08 23:34:24 -04:00 · 2024-04-08 23:34:24 -04:00 · e2f13a1c58
commit e2f13a1c58
parent 11319dfe20
1 changed files with 8 additions and 0 deletions
--- a/emacs/.emacs.d/config/init-lib.el
+++ b/emacs/.emacs.d/config/init-lib.el
@ -126,4 +126,12 @@
 (use-package shut-up
  :commands (shut-up))

+(defun urandom (len)
+  "Generate a random string of length LEN using /dev/urandom."
+  (interactive "nLength: ")
+  (let ((rand (shell-command-to-string (format "head -c %d /dev/urandom | base64" len))))
+    (when (called-interactively-p 'any)
+      (kill-new (message rand)))
+    rand))
+
 (provide 'init-lib)