소스 검색

Add my-counsel-recently

master
10sr 4 년 전
부모
커밋
76820964f8
로그인 계정: 10sr GPG 키 ID: C384BB17CBB19347
1개의 변경된 파일17개의 추가작업 그리고 0개의 파일을 삭제
  1. +17
    -0
      emacs.el

+ 17
- 0
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)


불러오는 중...
취소
저장