Implement recently dired

emacs.el

@@ -2045,13 +2045,22 @@ use for the buffer. It defaults to \"*recetf-show*\"."
       (recently-show-tabulated-close)
       (view-file f))))
 
+(defun recently-show-tabulated-dired()
+  "Open dired buffer of directory at point."
+  (interactive)
+  (let ((f (tabulated-list-get-id)))
+    (when f
+      (recently-show-tabulated-close)
+      (dired (if (file-directory-p f)
+                 f
+               (or (file-name-directory f)
+                   "."))))))
+
 (defvar recently-show-tabulated-mode-map
   (let ((map (make-sparse-keymap)))
     (suppress-keymap map)
     (define-key map (kbd "C-m") 'recently-show-tabulated-find-file)
-    ;; TODO: implement
     (define-key map "v" 'recently-show-tabulated-view-file)
-    ;; TODO: implement
     (define-key map "@" 'recently-show-tabulated-dired)
     (define-key map (kbd "C-g") 'recently-show-tabulated-close)
     (define-key map "/" 'isearch-forward)