- 追加された行はこの色です。
- 削除された行はこの色です。
#contents
* image-diredで，ディレクトリやアーカイブファイルの表紙を表示する [#c32a19a7]
表題のようなことができたら便利だと思いましたので，image-diredの2つの関数を
編集してみます。
TODO:
- 非同期実行(deferred)
- 正規表現見直し(とくにcase)
- tar.gz, rar対応
- ディレクトリから表紙画像を選ぶためのより賢い方法
- rubyスクリプトの，ハードコードな箇所の修正
- xcf, psd, pdf対応
** 準備 [#a6c01fe6]
(require 'image-dired)
(call-process "mkdir" nil nil nil "-p" "/dev/shm/image-dired/temp")
(custom-set-variables '(image-dired-dir "/dev/shm/image-dired"))
(setq image-dired-archive-file-pattern "\\.\\(zip\\|ZIP\\)$")
(define-key dired-mode-map (kbd "C-x t") 'image-dired-dired-toggle-marked-thumbs)
** image-dired-dired-toggle-marked-thumbs [#w4ccbf4b]
(defun image-dired-dired-toggle-marked-thumbs (&optional arg)
;; argがnon-nil の場合は，マークされたファイルのかわりに
;; 指定されたファイルを対象にします．
(interactive "P")
(dired-map-over-marks
;; それぞれのマークされた行について
;; body(第一引数)を評価して，結果のリストを返します．
(let* ((image-pos (dired-move-to-filename))
;; 画像を挿入する位置
(image-file (dired-get-filename nil t))
;; 画像ファイル名
thumb-file
;; サムネイルファイル(?)
overlay)
;; オーバーレイ(?)
(when (and image-file
(or (file-directory-p image-file)
(string-match-p image-dired-archive-file-pattern image-file)
(string-match-p (image-file-name-regexp) image-file)))
;; 画像ファイル名が non-nilで，かつ
;; ファイル名が image-file-name-regexp(\\.BMPとか)
;; に一致するとき
;; 式1
(setq thumb-file (image-dired-get-thumbnail-image image-file))
;; 式2
;; If image is not already added, then add it.
(let* ((cur-ovs (overlays-in (point) (1+ (point))))
(thumb-ov (car (cl-remove-if-not
(lambda (ov) (overlay-get ov 'thumb-file))
cur-ovs))))
(if thumb-ov
(delete-overlay thumb-ov)
(put-image thumb-file image-pos)
(setq overlay
(cl-loop for o in (overlays-in (point) (1+ (point)))
when (overlay-get o 'put-image) collect o into ov
finally return (car ov)))
(overlay-put overlay 'image-file image-file)
(overlay-put overlay 'thumb-file thumb-file)))))
(if thumb-file
(let* ((cur-ovs (overlays-in (point) (1+ (point))))
(thumb-ov (car (cl-remove-if-not
(lambda (ov) (overlay-get ov 'thumb-file))
cur-ovs))))
(if thumb-ov
(delete-overlay thumb-ov)
(put-image thumb-file image-pos)
(setq overlay
(cl-loop for o in (overlays-in (point) (1+ (point)))
when (overlay-get o 'put-image) collect o into ov
finally return (car ov)))
(overlay-put overlay 'image-file image-file)
(overlay-put overlay 'thumb-file thumb-file))))))
arg ; Show or hide image on ARG next files.
'show-progress) ; Update dired display after each image is updated.
(add-hook 'dired-after-readin-hook
'image-dired-dired-after-readin-hook nil t))
** image-dired-get-thumbnail-image [#t300d3e6]
(defun image-dired-get-thumbnail-image (file)
"Return the image descriptor for a thumbnail of image file FILE."
;; サムネイル画像のディスクリプタ(FILE)をかえす．
(message "image-dired-get-thumbnail-image")
(unless
(or (string-match (image-file-name-regexp) file)
(string-match image-dired-archive-file-pattern file)
(file-directory-p file))
(error "%s is not a valid image file" file))
;; 引数が image-file-name-regexp にマッチしないときは
;; エラーをかえす．
(let ((thumb-file (image-dired-thumb-name file)))
;; file に， ディレクトリのハッシュ値をつけた絶対パス(文字列)
(unless (and (file-exists-p thumb-file)
;; サムネイルファイルがナイこと，かつ
(<= (float-time (nth 5 (file-attributes file)))
(float-time (nth 5 (file-attributes thumb-file)))))
;; サムネイルファイルが，元のファイルより古い場合
;; アーカイブファイルの場合:
;; 1. file(zipファイル名)から，表紙画像をとりだして
;; (image-dired-dir)に展開する
;; 2. file を，1.でつくったファイル名で上書きする
(if (string-match image-dired-archive-file-pattern file)
(progn
(setq file
(shell-command-to-string
(concat "archiveImageThumb.rb " file)))
(message "archivefile's thumb: %s" file)))
;; file がディレクトリのときは，ディレクトリ内の表紙ファイルに
;; 置換する->対象ディレクトリ内のファイルを数字順にソート
;; TODO: 画像以外のファイルがある場合(Thumbs.dbとか)，コケる．
(if (file-directory-p file)
(progn
(setq file (concat file "/"
(cond
( (string-match image-dired-archive-file-pattern file)
(progn
(message "shell-command: %s"
(concat "archiveImageThumb.rb " (shell-quote-argument file) ))
(setq file
(shell-command-to-string
(concat "archiveImageThumb.rb " (shell-quote-argument file) )))
(message "archivefile's thumb: %s" file)) )
( (file-directory-p file)
(progn
(setq file (concat file "/"
(shell-command-to-string
(concat "find " file " -type f | "
(concat "find " file " -maxdepth 1 -type f |"
"sed 's!^.*/!!' | "
"grep -E -i '\\.(png|gif|jpeg|jpg)$' | "
"sort -n | "
"head -1 | "
"tr -d '\\n' " ))))
(message file)))
(message "file: %s" file)) ) )
(image-dired-create-thumb file thumb-file))
;; サムネイルを生成しておく
(message "creating image thumb...")
(create-image thumb-file)
(if (string-match (image-file-name-regexp) file)
(let ((thumb-file (image-dired-thumb-name file)))
;; file に， ディレクトリのハッシュ値をつけた絶対パス(文字列)
(unless (and (file-exists-p thumb-file)
;; サムネイルファイルがナイこと，かつ
;; (list 'image :type 'jpeg
;; :file thumb-file
;; :relief image-dired-thumb-relief :margin image-dired-thumb-margin)
))
(<= (float-time (nth 5 (file-attributes file)))
(float-time (nth 5 (file-attributes thumb-file)))))
;; サムネイルファイルが，元のファイルより古い場合
(image-dired-create-thumb file thumb-file))
;; サムネイルを生成しておく
(message "creating image thumb...: %s, %s" file thumb-file)
(create-image thumb-file)
;; (list 'image :type 'jpeg
;; :file thumb-file
;; :relief image-dired-thumb-relief :margin image-dired-thumb-margin)
)
nil))
** image-dired-dired-remove-marked-thumbs [#qafa1561]
暫定。ムダに重い。
(defun image-dired-dired-remove-marked-thumbs (&optional arg)
(interactive "P")
(dired-map-over-marks
(let* ((image-pos (dired-move-to-filename))
(image-file (dired-get-filename nil t))
thumb-file
overlay)
(when (and image-file
(or (file-directory-p image-file)
(string-match-p image-dired-archive-file-pattern image-file)
(string-match-p (image-file-name-regexp) image-file)))
(setq thumb-file (image-dired-get-thumbnail-image image-file))
(if thumb-file
(let* ((cur-ovs (overlays-in (point) (1+ (point))))
(thumb-ov (car (cl-remove-if-not
(lambda (ov) (overlay-get ov 'thumb-file))
cur-ovs))))
(if thumb-ov
(delete-overlay thumb-ov)
)))))
arg ; Show or hide image on ARG next files.
'show-progress) ; Update dired display after each image is updated.
(add-hook 'dired-after-readin-hook
'image-dired-dired-after-readin-hook nil t))
** archiveImageThumb.rb [#g0ee14ae]
以下は，zipファイルから1枚の画像ファイルを選んで，
"/dev/shm/image-dired/temp"に展開するスクリプトです．
パスのとおった場所に保存しておきます．
#!/usr/bin/ruby
require("digest/md5");
fileList= [];
if(ARGV[0] =~ /^.*\.(zip|ZIP)$/)
buf= `unzip -l #{ARGV[0]}`.lines[3..-3]
filename= File.basename(ARGV[0]);
buf= `unzip -l '#{ARGV[0]}' `.lines[3..-3]
buf.each{|l|
l= l.strip();
if( l =~ /\.(jpg|JPG|jpeg|JPEG|png|PNG)$/)
# extract file name col
l =~ /\d+ +\d\d-\d\d-\d{4} +\d\d:\d\d +(.*)$/;
fileList.push( $~[1] );
end
}
fileList= fileList.sort();
`unzip -u #{ARGV[0]} #{fileList[0]} -d /dev/shm/image-dired/temp`
printf( "/dev/shm/image-dired/temp/%s", fileList[0] );
digest = Digest::MD5.hexdigest(ARGV[0]);
extname= File.basename( "/dev/shm/image-dired/temp/" + fileList[0] );
`unzip -o '#{ARGV[0]}' #{fileList[0]} -d /dev/shm/image-dired/temp`
`mv '/dev/shm/image-dired/temp/#{fileList[0]}' '/dev/shm/image-dired/temp/#{digest}_#{extname}' `
printf( "/dev/shm/image-dired/temp/#{digest}_#{extname}" );
else
`touch /dev/shm/image-dired/archiveImageThumb.rb-error`
end
