From b4abd0455ad9083d11a788078e456b4efeafb8ec Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Tue, 3 Oct 2023 14:17:36 +0200 Subject: [PATCH] Generate UIDs --- bundle/bundle--mk.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/bundle/bundle--mk.el b/bundle/bundle--mk.el index 52b0bcad..eef2b9d8 100644 --- a/bundle/bundle--mk.el +++ b/bundle/bundle--mk.el @@ -157,4 +157,12 @@ ;; (or shr-current-font 'variable-pitch))))))))) (defun mk/get-current-time-formatted () - (concat "#+DATE: " (format "[%s]" (format-time-string "%Y-%m-%d %R" (current-time))))) + (concat "#+DATE: " + (format "[%s]" (format-time-string "%Y-%m-%d %R" (current-time))))) + +(defun generate-unique-id () + (interactive) + (let ((random-number-1 (random 9999)) + (random-number-2 (random 9999))) + (let ((unique-id (format "DE-%04d-%04d" random-number-1 random-number-2))) + (message "ID: %s" unique-id) unique-id)))