top  Index  Search  Changes  RSS  Login

Recentf

最近開いたメモの一覧を出したい -- 2ch3:840

…… atime は grep するだけで更新されてしまうから役に立たない. というわけで recentf に頼ってみた.

(require 'cl)
(require 'howm)
(add-hook 'howm-mode-hook 'recentf-track-opened-file)
(recentf-mode 1)
;(setq recentf-max-saved-items 100) ; デフォルトでは少なすぎかも
(defvar howm-recentf-remote t) ; リモートファイルを除くなら「t」を「nil」に

;; 最近開いたメモの一覧.
(defun howm-recentf ()
  (interactive)
  (let* ((hdir (car (howm-search-path)))
         (howm-normalizer 'identity)
         (item-list (mapcan (lambda (file)
                              (and (or howm-recentf-remote
                                       (not (file-remote-p file)))
                                   (howm-folder-territory-p hdir file)
                                   (file-exists-p file)
                                   (list (howm-make-item
                                          (howm-make-page:file file)))))
                            recentf-list)))
    (howm-set-command 'howm-recentf)
    (howm-normalize-show "" item-list)))

;; howm-recentf でタイトルを表示させたければ↓
(when (listp howm-list-title)
  (add-to-list 'howm-list-title 'howm-recentf))

  • タイトルが表示されたりされなかったりするバグを直してみました(thx > 2ch3:857). テストはしていませんが…
  • いくつか修正. patch ありがとうございます. > 鯉江英隆さん (hide at koie.org)
    • リモートファイルを除くオプション (tramp がいちいちパスワードをきいてこないように)
    • 表示順を recentf どおりに
    • 存在しなくなったファイルでエラーを出さないように
(Please LogIn to post comments.)

Last modified:2010/12/20 21:36:18
Keyword(s):
References:[なんでも]