From 1acb64f9c8daf3fffca0bb05ae32e66021355f7e Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Mon, 24 Feb 2020 22:02:35 -0800 Subject: [PATCH] Enable recentf-mode in Emacs --- oni-core.el | 10 ++++++++-- oni-counsel.el | 4 +++- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/oni-core.el b/oni-core.el index 7b011cd..a828539 100644 --- a/oni-core.el +++ b/oni-core.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse ;; Keywords: local -;; Version: 2020.0203.215730 +;; Version: 2020.0224.220825 ;; Package-Requires: (oni-data-dir expand-region multiple-cursors embrace helpful) ;; This program is free software; you can redistribute it and/or modify @@ -28,6 +28,7 @@ ;;; Code: (require 'oni-data-dir) +(require 'recentf) (defconst oni-core--auto-save-directory (oni-data-dir-locate "auto-save-files/") "Directory where auto-saves go.") @@ -64,6 +65,8 @@ (setq abbrev-file-name (oni-data-dir-locate "abbrev_defs")) +(setq recentf-save-file (oni-data-dir-locate "recentf")) + ;;; Get rid of the default help tooltip on the mode-line. (setq mode-line-default-help-echo nil) @@ -98,7 +101,7 @@ (global-set-key (kbd "C-M-SPC") 'er/expand-region) (global-set-key (kbd "M-+") 'mc/mark-next-like-this) (global-set-key (kbd "C-c (") 'embrace-commander) -(global-set-key (kbd "C-x f") 'ffap) +(global-set-key (kbd "C-x M-f") 'ffap) (global-set-key (kbd "C-x C-b") 'ibuffer-jump) (global-set-key [remap describe-function] 'helpful-callable) @@ -109,8 +112,11 @@ (global-set-key (kbd "C-") 'winner-undo) (global-set-key (kbd "C-") 'winner-redo) +(run-with-idle-timer 10 t 'recentf-save-list) + (electric-indent-mode -1) (winner-mode) +(recentf-mode) (add-to-list 'display-buffer-alist `(,(rx string-start diff --git a/oni-counsel.el b/oni-counsel.el index 55dce34..2788db2 100644 --- a/oni-counsel.el +++ b/oni-counsel.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse ;; Keywords: local -;; Version: 2019.0904.210423 +;; Version: 2020.0224.214110 ;; Package-Requires: (counsel diminish helpful) ;; This program is free software; you can redistribute it and/or modify @@ -48,6 +48,8 @@ 'counsel-find-file '(("C" oni-counsel-create-directory-and-file "create"))) +(define-key counsel-mode-map (kbd "C-x f") 'counsel-recentf) + ;;;###autoload(with-eval-after-load 'counsel (require 'oni-counsel)) ;;;###autoload (add-hook 'emacs-startup-hook 'counsel-mode)