[elpa] 16/35: Add open last closed to recentf menu

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit 38675fab45d552b9a3e560b868d01fd7856f0efb
Author: Matthew L. Fidler <address@hidden>
Date:   Wed Jul 9 10:15:55 2014 -0500

    Add open last closed to recentf menu
---
 ergoemacs-menus.el  |    2 +-
 ergoemacs-themes.el |   26 +++++++++++++++++++++++++-
 2 files changed, 26 insertions(+), 2 deletions(-)

diff --git a/ergoemacs-menus.el b/ergoemacs-menus.el
index 6816914..2d419f6 100644
--- a/ergoemacs-menus.el
+++ b/ergoemacs-menus.el
@@ -259,7 +259,7 @@ All other modes are assumed to be minor modes or 
unimportant.
                             ergoemacs-open-in-desktop)))
           ;; FIXME -- Somehow put open last closed in recentf menu; It
           ;; seems to fit there the best
-          (open-last-closed menu-item "Open last closed" 
ergoemacs-open-last-closed)
+          ;; (open-last-closed menu-item "Open last closed" 
ergoemacs-open-last-closed)
           (kill-buffer menu-item "Close" ergoemacs-close-current-buffer)
           (separator1 menu-item "--")
           (save-buffer menu-item "Save" save-buffer)
diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index f6e9254..b30bcfc 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -147,7 +147,31 @@
   (undo-tree-mode 1)
   (shift-select-mode t)
   (delete-selection-mode 1)
-  (setq recentf-menu-before "Close")
+  (setq recentf-menu-before "Close"
+        recentf-menu-items-for-commands
+        (list
+         ["Open Last Closed"
+          ergoemacs-open-last-closed
+          :help "Remove duplicates, and obsoletes files from the recent list"
+          :keys (ergoemacs-shortcut-for-command 'ergoemacs-open-last-closed)
+          :active t]
+         ["Cleanup list"
+          recentf-cleanup
+          :help "Remove duplicates, and obsoletes files from the recent list"
+          :active t]
+         ["Edit list..."
+          recentf-edit-list
+          :help "Manually remove files from the recent list"
+          :active t]
+         ["Save list now"
+          recentf-save-list
+          :help "Save the list of recently opened files now"
+          :active t]
+         ["Options..."
+          (customize-group "recentf")
+          :help "Customize recently opened files menu and options"
+          :active t]
+         ))
   (recentf-mode 1)
   ;; (setq cua--rectangle-modifier-key ergoemacs-cua-rect-modifier)
   ;; (setq cua--rectangle-keymap (make-sparse-keymap))