marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Generate UIDs

Browse source
This commit is contained in:
Marcus Kammer 2023-10-03 14:17:36 +02:00
parent 3e6bb18034
commit b4abd0455a
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
bundle/bundle--mk.el
View file

@ -157,4 +157,12 @@
;; (or shr-current-font 'variable-pitch))))))))) ;; (or shr-current-font 'variable-pitch)))))))))
(defun mk/get-current-time-formatted () (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)))