|
|
@@ -1261,46 +1261,46 @@ found, otherwise returns nil." |
|
|
|
|
|
|
|
;; (safe-require-or-eval 'sync-recentf) |
|
|
|
|
|
|
|
(when (safe-require-or-eval 'recentf) |
|
|
|
(add-to-list 'recentf-exclude |
|
|
|
(regexp-quote recentf-save-file)) |
|
|
|
(add-to-list 'recentf-exclude |
|
|
|
(regexp-quote (expand-file-name user-emacs-directory))) |
|
|
|
(add-to-list 'recentf-exclude |
|
|
|
"/sync-recentf-marker\\'") |
|
|
|
(define-key ctl-x-map (kbd "C-r") 'recentf-open-files) |
|
|
|
(remove-hook 'find-file-hook |
|
|
|
'recentf-track-opened-file) |
|
|
|
(defun my-recentf-load-track-save-list () |
|
|
|
"Load current recentf list from file, track current visiting file, then save |
|
|
|
the list." |
|
|
|
(recentf-load-list) |
|
|
|
(recentf-track-opened-file) |
|
|
|
(recentf-save-list)) |
|
|
|
(add-hook 'find-file-hook |
|
|
|
'my-recentf-load-track-save-list) |
|
|
|
(add-hook 'kill-emacs-hook |
|
|
|
'recentf-load-list) |
|
|
|
;;(run-with-idle-timer 5 t 'recentf-save-list) |
|
|
|
;; (add-hook 'find-file-hook |
|
|
|
;; (lambda () |
|
|
|
;; (recentf-add-file default-directory))) |
|
|
|
(when (autoload-eval-lazily 'recentf-show) |
|
|
|
(define-key ctl-x-map (kbd "C-r") 'recentf-show) |
|
|
|
;; (add-hook 'recentf-show-before-listing-hook |
|
|
|
;; 'recentf-load-list) |
|
|
|
) |
|
|
|
(recentf-mode 1) |
|
|
|
(define-key recentf-dialog-mode-map (kbd "<up>") 'previous-line) |
|
|
|
(define-key recentf-dialog-mode-map (kbd "<down>") 'next-line) |
|
|
|
(define-key recentf-dialog-mode-map "p" 'previous-line) |
|
|
|
(define-key recentf-dialog-mode-map "n" 'next-line) |
|
|
|
(add-hook 'recentf-dialog-mode-hook |
|
|
|
(lambda () |
|
|
|
;; (recentf-save-list) |
|
|
|
;; (define-key recentf-dialog-mode-map (kbd "C-x C-f") |
|
|
|
;; 'my-recentf-cd-and-find-file) |
|
|
|
(cd "~/")))) |
|
|
|
;; (when (safe-require-or-eval 'recentf) |
|
|
|
;; (add-to-list 'recentf-exclude |
|
|
|
;; (regexp-quote recentf-save-file)) |
|
|
|
;; (add-to-list 'recentf-exclude |
|
|
|
;; (regexp-quote (expand-file-name user-emacs-directory))) |
|
|
|
;; (add-to-list 'recentf-exclude |
|
|
|
;; "/sync-recentf-marker\\'") |
|
|
|
;; (define-key ctl-x-map (kbd "C-r") 'recentf-open-files) |
|
|
|
;; (remove-hook 'find-file-hook |
|
|
|
;; 'recentf-track-opened-file) |
|
|
|
;; (defun my-recentf-load-track-save-list () |
|
|
|
;; "Load current recentf list from file, track current visiting file, then save |
|
|
|
;; the list." |
|
|
|
;; (recentf-load-list) |
|
|
|
;; (recentf-track-opened-file) |
|
|
|
;; (recentf-save-list)) |
|
|
|
;; (add-hook 'find-file-hook |
|
|
|
;; 'my-recentf-load-track-save-list) |
|
|
|
;; (add-hook 'kill-emacs-hook |
|
|
|
;; 'recentf-load-list) |
|
|
|
;; ;;(run-with-idle-timer 5 t 'recentf-save-list) |
|
|
|
;; ;; (add-hook 'find-file-hook |
|
|
|
;; ;; (lambda () |
|
|
|
;; ;; (recentf-add-file default-directory))) |
|
|
|
;; (when (autoload-eval-lazily 'recentf-show) |
|
|
|
;; (define-key ctl-x-map (kbd "C-r") 'recentf-show) |
|
|
|
;; ;; (add-hook 'recentf-show-before-listing-hook |
|
|
|
;; ;; 'recentf-load-list) |
|
|
|
;; ) |
|
|
|
;; (recentf-mode 1) |
|
|
|
;; (define-key recentf-dialog-mode-map (kbd "<up>") 'previous-line) |
|
|
|
;; (define-key recentf-dialog-mode-map (kbd "<down>") 'next-line) |
|
|
|
;; (define-key recentf-dialog-mode-map "p" 'previous-line) |
|
|
|
;; (define-key recentf-dialog-mode-map "n" 'next-line) |
|
|
|
;; (add-hook 'recentf-dialog-mode-hook |
|
|
|
;; (lambda () |
|
|
|
;; ;; (recentf-save-list) |
|
|
|
;; ;; (define-key recentf-dialog-mode-map (kbd "C-x C-f") |
|
|
|
;; ;; 'my-recentf-cd-and-find-file) |
|
|
|
;; (cd "~/")))) |
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;; dired |
|
|
|