diff --git a/emacs/init.org b/emacs/init.org
index 2afad2e..722ee66 100755
--- a/emacs/init.org
+++ b/emacs/init.org
@@ -1390,6 +1390,17 @@ Always open directory links in Emacs instead of Finder:
     (add-to-list 'org-file-apps '(directory . emacs)))
 #+END_SRC
 
+A function to add ids to every heading in an Org file:
+#+BEGIN_SRC emacs-lisp
+  (defun org-get-create-ids-all ()
+    (interactive)
+    (save-excursion
+      (goto-char (point-max))
+      (while (outline-previous-heading)
+	(org-id-get-create))))
+#+END_SRC
+
+
 ** Agenda files
 #+BEGIN_SRC emacs-lisp
   (defun agenda-files (&optional file)