Add my-counsel-recently

emacs.el

@@ -2644,6 +2644,23 @@ Any output will be written to current buffer."
 ;; (setq mozc-candidate-style 'overlay)
 ;; (setq mozc-candidate-style 'echo-area)
 
+(defvar my-cousel-recently-history nil "History of `my-counsel-recently'.")
+
+(when (and (require 'recently nil t)
+           (fboundp 'ivy-read))
+  (defun my-counsel-recently ()
+    "Consel `recently'."
+    (interactive)
+    (ivy-read "Recently: " (recently-list)
+              :require-match t
+              :history 'my-cousel-recently-history
+              :preselect default-directory
+              :action (lambda (x) (find-file x))
+              :caller 'my-counsel-recently))
+
+  (define-key ctl-x-map (kbd "C-r") 'my-counsel-recently)
+  )
+
 
 ;; Local Variables:
 ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)