libohad-dev/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Teach Emacs to generate UUID (version 4) identifiers

Browse source
This commit is contained in:
Ohad Livne 2026-02-15 00:49:53 +02:00
parent c219b95dbd
commit 9b59151d13
Signed by: libohad-dev
GPG key ID: 34FDC68B51191A4D
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
.config/emacs/init.el
View file

@ -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)