|
|
@@ -153,6 +153,7 @@ found, otherwise returns nil." |
|
|
|
ilookup |
|
|
|
pasteboard |
|
|
|
awk-preview |
|
|
|
recently |
|
|
|
|
|
|
|
)) |
|
|
|
|
|
|
@@ -708,6 +709,9 @@ found, otherwise returns nil." |
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;; file handling |
|
|
|
|
|
|
|
(when (safe-require-or-eval 'recently) |
|
|
|
(recently-mode 1)) |
|
|
|
|
|
|
|
(when (safe-require-or-eval 'editorconfig) |
|
|
|
;; (set-variable 'editorconfig-get-properties-function |
|
|
|
;; 'editorconfig-core-get-properties-hash) |
|
|
@@ -1812,243 +1816,6 @@ and search from projectile root (if projectile is available)." |
|
|
|
(editorconfig-auto-apply-mode 1) |
|
|
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
|
;; recently |
|
|
|
|
|
|
|
(defgroup recently nil |
|
|
|
"Recently visited files" |
|
|
|
:tag "Recently" |
|
|
|
:prefix "recently-" |
|
|
|
:group 'tools) |
|
|
|
|
|
|
|
(defcustom recently-file |
|
|
|
(concat user-emacs-directory |
|
|
|
"recently.el") |
|
|
|
"Recently file." |
|
|
|
:type 'string |
|
|
|
:group 'recently) |
|
|
|
|
|
|
|
(defcustom recently-max |
|
|
|
100 |
|
|
|
"Recently list max length." |
|
|
|
:type 'int |
|
|
|
:group 'recently) |
|
|
|
|
|
|
|
(defcustom recently-excludes |
|
|
|
'() |
|
|
|
"List of regexps for filenames excluded from the recent list." |
|
|
|
:type '(repeat string) |
|
|
|
:group 'recently) |
|
|
|
(add-to-list 'recently-excludes |
|
|
|
(eval-when-compile (rx "/COMMIT_EDITMSG" eot))) |
|
|
|
|
|
|
|
(defvar recently-list |
|
|
|
'() |
|
|
|
"Recently list.") |
|
|
|
|
|
|
|
(defvar recently-file-mtime |
|
|
|
nil |
|
|
|
"Modified time of file when last read file.") |
|
|
|
|
|
|
|
(defun recently-write () |
|
|
|
"Write to file." |
|
|
|
;; Failsafe to avoid purging all existing entries |
|
|
|
(cl-assert recently-list) |
|
|
|
(with-temp-buffer |
|
|
|
(prin1 recently-list |
|
|
|
(current-buffer)) |
|
|
|
(write-region (point-min) |
|
|
|
(point-max) |
|
|
|
recently-file))) |
|
|
|
|
|
|
|
(defun recently-read () |
|
|
|
"Read file." |
|
|
|
(when (file-readable-p recently-file) |
|
|
|
(with-temp-buffer |
|
|
|
(insert-file-contents recently-file) |
|
|
|
(goto-char (point-min)) |
|
|
|
(setq recently-list |
|
|
|
(read (current-buffer)))) |
|
|
|
(setq recently-file-mtime |
|
|
|
(nth 5 |
|
|
|
(file-attributes recently-file))))) |
|
|
|
|
|
|
|
(defun recently-reload () |
|
|
|
"Reload file and update `recently-list' value. |
|
|
|
|
|
|
|
This function does nothing when there is no update to `recently-file' since last |
|
|
|
read." |
|
|
|
(when (and (file-readable-p recently-file) |
|
|
|
(not (equal recently-file-mtime |
|
|
|
(nth 5 |
|
|
|
(file-attributes recently-file))))) |
|
|
|
(recently-read) |
|
|
|
(cl-assert (equal recently-file-mtime |
|
|
|
(nth 5 |
|
|
|
(file-attributes recently-file)))))) |
|
|
|
|
|
|
|
(defun recently-add (path) |
|
|
|
"Add PATH to list." |
|
|
|
(cl-assert (string= path |
|
|
|
(expand-file-name path))) |
|
|
|
(when (cl-loop for re in recently-excludes |
|
|
|
if (string-match re path) return nil |
|
|
|
finally return t) |
|
|
|
(recently-reload) |
|
|
|
(let* ((l (cl-copy-list recently-list)) |
|
|
|
(l (delete path |
|
|
|
l)) |
|
|
|
(l (cl-loop for e in l |
|
|
|
unless (file-in-directory-p path e) |
|
|
|
collect e)) |
|
|
|
(l (cons path |
|
|
|
l)) |
|
|
|
(l (recently--truncate l |
|
|
|
recently-max))) |
|
|
|
(unless (equal recently-list |
|
|
|
l) |
|
|
|
(setq recently-list l) |
|
|
|
(recently-write) |
|
|
|
(setq recently-file-mtime |
|
|
|
(nth 5 |
|
|
|
(file-attributes recently-file))))))) |
|
|
|
|
|
|
|
(defun recently--truncate (list len) |
|
|
|
"Truncate LIST to LEN." |
|
|
|
(if (> (length list) |
|
|
|
len) |
|
|
|
(cl-subseq list |
|
|
|
0 |
|
|
|
len) |
|
|
|
list)) |
|
|
|
|
|
|
|
(defun recently-find-file-hook () |
|
|
|
"Add current file." |
|
|
|
(when buffer-file-name |
|
|
|
(recently-add buffer-file-name))) |
|
|
|
|
|
|
|
(defun recently-dired-mode-hook () |
|
|
|
"Add current directory." |
|
|
|
(recently-add (expand-file-name default-directory))) |
|
|
|
|
|
|
|
(add-hook 'find-file-hook |
|
|
|
'recently-find-file-hook) |
|
|
|
|
|
|
|
(add-hook 'dired-mode-hook |
|
|
|
'recently-dired-mode-hook) |
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;; |
|
|
|
;; recently-show |
|
|
|
|
|
|
|
(defvar recently-show-window-configuration nil |
|
|
|
"Used for internal") |
|
|
|
|
|
|
|
(defvar recently-show-abbreviate t |
|
|
|
"Non-nil means use `abbreviate-file-name' when listing recently opened files.") |
|
|
|
|
|
|
|
;;;###autoload |
|
|
|
(defun recently-show (&optional buffer-name) |
|
|
|
"Show simplified list of recently opened files. |
|
|
|
If optional argument BUFFER-NAME is non-nil, it is a buffer name to |
|
|
|
use for the buffer. It defaults to \"*recetf-show*\"." |
|
|
|
;; If optional argument FILES is non-nil, it is a list of recently-opened |
|
|
|
;; files to choose from. It defaults to the whole recent list. |
|
|
|
(interactive) |
|
|
|
(let ((bf (recently-show--create-buffer-tabulated buffer-name))) |
|
|
|
(if bf |
|
|
|
(progn |
|
|
|
(setq recently-show-window-configuration (current-window-configuration)) |
|
|
|
(pop-to-buffer bf)) |
|
|
|
(message "No recent file!")))) |
|
|
|
|
|
|
|
(defun recently-show--create-buffer-tabulated (&optional buffer-name) |
|
|
|
"Create buffer listing recently files." |
|
|
|
(let ((bname (or buffer-name |
|
|
|
"*Recently*"))) |
|
|
|
(when (get-buffer bname) |
|
|
|
(kill-buffer bname)) |
|
|
|
(with-current-buffer (get-buffer-create bname) |
|
|
|
;; (setq tabulated-list-sort-key (cons "Name" nil)) |
|
|
|
(recently-show--set-tabulated-list-mode-variables) |
|
|
|
(recently-show-tabulated-mode) |
|
|
|
(current-buffer)))) |
|
|
|
|
|
|
|
(defun recently-show--set-tabulated-list-mode-variables () |
|
|
|
"Set variables for `tabulated-list-mode'." |
|
|
|
(recently-reload) |
|
|
|
(setq tabulated-list-entries |
|
|
|
(mapcar (lambda (f) |
|
|
|
(list f |
|
|
|
(vector (file-name-nondirectory f) |
|
|
|
(if recently-show-abbreviate |
|
|
|
(abbreviate-file-name f) |
|
|
|
f)))) |
|
|
|
recently-list |
|
|
|
)) |
|
|
|
(let ((max |
|
|
|
(apply 'max |
|
|
|
(mapcar (lambda (l) |
|
|
|
(length (elt (cadr l) 0))) |
|
|
|
tabulated-list-entries)))) |
|
|
|
(setq tabulated-list-format |
|
|
|
`[("Name" |
|
|
|
,(min max |
|
|
|
30) |
|
|
|
t) |
|
|
|
("Full Path" 0 t)]))) |
|
|
|
|
|
|
|
(defun recently-show-tabulated-find-file () |
|
|
|
"Find file at point." |
|
|
|
(interactive) |
|
|
|
(let ((f (tabulated-list-get-id))) |
|
|
|
(cl-assert f nil "No entry at point") |
|
|
|
(recently-show-tabulated-close) |
|
|
|
(find-file f))) |
|
|
|
|
|
|
|
(defun recently-show-tabulated-view-file () |
|
|
|
"View file at point." |
|
|
|
(interactive) |
|
|
|
(let ((f (tabulated-list-get-id))) |
|
|
|
(cl-assert f nil "No entry at point") |
|
|
|
(recently-show-tabulated-close) |
|
|
|
(view-file f))) |
|
|
|
|
|
|
|
(defun recently-show-tabulated-dired() |
|
|
|
"Open dired buffer of directory at point." |
|
|
|
(interactive) |
|
|
|
(let ((f (tabulated-list-get-id))) |
|
|
|
(cl-assert f nil "No entry at point") |
|
|
|
(recently-show-tabulated-close) |
|
|
|
(dired (if (file-directory-p f) |
|
|
|
f |
|
|
|
(or (file-name-directory f) |
|
|
|
"."))))) |
|
|
|
|
|
|
|
(defvar recently-show-tabulated-mode-map |
|
|
|
(let ((map (make-sparse-keymap))) |
|
|
|
(suppress-keymap map) |
|
|
|
(define-key map (kbd "C-m") 'recently-show-tabulated-find-file) |
|
|
|
(define-key map "v" 'recently-show-tabulated-view-file) |
|
|
|
(define-key map "@" 'recently-show-tabulated-dired) |
|
|
|
(define-key map (kbd "C-g") 'recently-show-tabulated-close) |
|
|
|
(define-key map "/" 'isearch-forward) |
|
|
|
map)) |
|
|
|
|
|
|
|
(define-derived-mode recently-show-tabulated-mode tabulated-list-mode "Recently-Show" |
|
|
|
"Major mode for browsing recently opened files and directories." |
|
|
|
(setq tabulated-list-padding 2) |
|
|
|
(add-hook 'tabulated-list-revert-hook |
|
|
|
'recently-show--set-tabulated-list-mode-variables |
|
|
|
nil |
|
|
|
t) |
|
|
|
(tabulated-list-init-header) |
|
|
|
(tabulated-list-print nil nil)) |
|
|
|
|
|
|
|
(defun recently-show-tabulated-close () |
|
|
|
"Close recently-show window." |
|
|
|
(interactive) |
|
|
|
(kill-buffer (current-buffer)) |
|
|
|
(set-window-configuration recently-show-window-configuration)) |
|
|
|
|
|
|
|
(define-key ctl-x-map (kbd "C-r") 'recently-show) |
|
|
|
|
|
|
|