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 bc162d3c4e
commit 9cf57426b2
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) (interactive)
(find-file user-init-file)) (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 (use-package emacs
:ensure nil :ensure nil
:bind (("C-z" . nil) :bind (("C-z" . nil)
("C-z i" . find-init-file) ("C-z i" . find-init-file)
("C-z f" . ffap)) ("C-z f" . ffap)
("C-z u" . insert-uuid4-at-point))
:hook ( :hook (
;; keep-sorted start ;; keep-sorted start
(after-save . executable-make-buffer-file-executable-if-script-p) (after-save . executable-make-buffer-file-executable-if-script-p)