Explorar el Código

Add my-counsel-recently

master
10sr hace 4 años
padre
commit
76820964f8
Firmado por: 10sr ID de clave GPG: C384BB17CBB19347
Se han modificado 1 ficheros con 17 adiciones y 0 borrados
  1. +17
    -0
      emacs.el

+ 17
- 0
emacs.el Ver fichero

@@ -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)


Cargando…
Cancelar
Guardar