From 9cf57426b2433958223e2e2fa439559b6963455c Mon Sep 17 00:00:00 2001 From: Ohad Livne Date: Sun, 15 Feb 2026 00:49:53 +0200 Subject: [PATCH] Teach Emacs to generate UUID (version 4) identifiers --- .config/emacs/init.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/.config/emacs/init.el b/.config/emacs/init.el index bb2f8d2..a5fed9f 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)