imalison:insert-uuid

This commit is contained in:
Ivan Malison 2015-07-09 18:29:44 -07:00
parent 29bcc1f882
commit cece434a59

View File

@ -165,6 +165,10 @@
(interactive) (interactive)
(s-replace "\n" "" (shell-command-to-string "uuid"))) (s-replace "\n" "" (shell-command-to-string "uuid")))
(defun imalison:insert-uuid ()
(interactive)
(insert (imalison:uuid)))
(defmacro suppress-messages (&rest forms) (defmacro suppress-messages (&rest forms)
`(flet ((message (&rest r) nil)) `(flet ((message (&rest r) nil))
,@forms)) ,@forms))