diff --git a/emacs/.emacs.d/site-lisp/org-init.el b/emacs/.emacs.d/site-lisp/org-init.el
index d125f23..e827322 100644
--- a/emacs/.emacs.d/site-lisp/org-init.el
+++ b/emacs/.emacs.d/site-lisp/org-init.el
@@ -62,6 +62,9 @@
    "  :DIRECTORY: =" default-directory "=\n"
    (when (buffer-file-name) "  :FILE: [[file:%F][%F]]\n")
    (when (org-clocking-p) "  :TASK: %K\n")
+   (when desktop-dirname
+     (concat "  :PROJECT: "
+             (file-name-base (directory-file-name desktop-dirname))))
    "\n  %?"))
 
 (defun oni:org-maybe-outline-path ()