diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index 654aab3..38679d2 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -18,11 +18,22 @@
   (interactive)
   (find-file user-init-file))
 
+(defun get-uuid4-string ()
+  "Obtain a uuid4 string."
+  (interactive)
+  (string-clean-whitespace (f-read-text "/proc/sys/kernel/random/uuid")))
+
+(defun insert-uuid4-at-point ()
+  "Input a uuid4 string at point"
+  (interactive)
+  (insert (get-uuid4-string)))
+
 (use-package emacs
   :ensure nil
   :bind (("C-z" . nil)
          ("C-z i" . find-init-file)
-         ("C-z f" . ffap))
+         ("C-z f" . ffap)
+         ("C-z u" . insert-uuid4-at-point))
   :hook (
          ;; keep-sorted start
          (after-save . executable-make-buffer-file-executable-if-script-p)