dired バッファ内の画像eog
を押したときにスタイルのナビゲーションが必要です。vウェブを少し検索しましたが、簡単なものは見つかりませんでした。ありますがimage-dired
、サムネイルは私が望むものではありません。
私は、ほとんどのファイル タイプですでに導入されているような
動作がv必要です。view-mode
npq
私はいくつかのものをハックしましdired-view-next
たが、良い仕事をするパッケージがすでにあるのだろうか?
これは Emacs 24.4 で修正されました。IOW、Emacs 24 の最近の開発スナップショットで動作します。
v
in Dired は、要求どおりに機能します。画像が表示されます。次にn
、p
、 、およびは、q
期待どおりのことを行います。それぞれ、次または前のファイル (画像) を表示し、終了します。各イメージは に示されimage-mode
、n
DTRT などにバインドされます。
開発スナップショットからimage-mode.el
コードを取得して、それを init ファイルに追加することを検討してください。Emacs 24.3(または使用しているEmacsのバージョン)でうまく機能するように、そのコードの一部をいじる必要があるかどうかはわかりません。
Image Diredから、 を実行できますimage-dired-display-thumbnail-original-image
。v
が実行されるようにキーマップを変更するとimage-dired-display-thumbnail-original-image
、別のバッファに画像が表示されるだけになります。
画像を開くときに現在の dired モードを変更できるように、カスタム マイナー モードを作成することもできます。この新しいモードは、カーソルを現在のバッファに保持したまま、画像を別のバッファで開き、カーソルと表示された画像をそれぞれ次/前の画像に移動しますn
。しかし、それを行う方法がわかりません。p
q
これに相当するものがない場合に備えて、ここにコードを記載します。それは私が望むように動作しますが、実装は少しばかげています:
(defmacro image-view (direction)
`(lambda ()
(interactive)
(quit-window)
(let ((pt (point))
filename)
(or (ignore-errors
(catch 'filename
(while (dired-next-line ,direction)
(when (image-type-from-file-name
(setq filename (dired-get-filename)))
(throw 'filename filename)))))
(goto-char pt))
(dired-view-file))))
(eval-after-load "image-mode"
'(progn
(define-key image-mode-map "n" (image-view 1))
(define-key image-mode-map "h" (image-view -1))))