--- a/.emacs-my	Wed Feb 11 16:32:42 2015 +0200
+++ b/.emacs-my	Tue Feb 17 15:07:54 2015 +0200
@@ -38,6 +38,13 @@
 ;; Don't sort ``recentf-list`` so ``recentf-open-files`` show files in historical order!
 (setq recentf-menu-filter nil)
 
+(defun my-recentf.clean-project (dir)
+  "Remove from recentf all files that belong to DIR directory."
+  (interactive (list (read-directory-name "Exclude all paths")))
+  (let ( recentf-exclude )
+    (setq recentf-exclude (list (concat "^" (regexp-quote (expand-file-name dir)))))
+    (recentf-cleanup) ))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "revert buffer")