Add two new Org functions

They help me insert timestamps, which can sometimes be tedious.

configuration.org

@@ -1090,6 +1090,31 @@ PRIORITY may be one of the characters ?A, ?B, or ?C."
   (org-agenda arg "c"))
 #+end_src
 
+*** Insert the current timestamp
+
+#+begin_src emacs-lisp
+(defun gpolonkai/org-insert-current-timestamp (&optional arg)
+  "Insert the current timestamp"
+  (interactive "P")
+  (org-time-stamp '(16) arg))
+#+end_src
+
+*** Insert a heading with CREATED set to the current time
+
+This emulates how Orgzly work with my current settings.
+
+#+begin_src emacs-lisp
+(defun gpolonkai/org-insert-heading-created (&optional arg)
+  (interactive "p")
+  (let* ((org-insert-heading-respect-content t)
+         (format-string (concat "[" (substring (cdr org-time-stamp-formats) 1 -1) "]"))
+         (timestamp (format-time-string format-string (current-time))))
+    (if (> arg 1)
+        (org-insert-subheading '(4))
+      (org-insert-heading))
+    (org-set-property "CREATED" timestamp)))
+#+end_src
+
 * UI preferences
 
 ** Tweak window chrome