# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1424178474 -7200
# Node ID e2ce4a60af3e6196a399c1a16c9c4493f8629558
# Parent  c658f0d30525e8f10870181e50e85400e21cf19a
my-recentf.clean-project

diff -r c658f0d30525 -r e2ce4a60af3e .emacs-my
--- 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")