image-diredで，ディレクトリやアーカイブファイルの表紙を表示する †

表題のようなことができたら便利だと思いましたので，image-diredの2つの関数を 編集してみます。

TODO:

• 非同期実行(deferred)
• 正規表現見直し(とくにcase)
• tar.gz, rar対応
• ディレクトリから表紙画像を選ぶためのより賢い方法
• rubyスクリプトの，ハードコードな箇所の修正
• xcf, psd, pdf対応

準備 †

(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 †

(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.
       (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 †

(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")
  (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 "  -maxdepth 1 -type f |"
                                        "sed 's!^.*/!!' | "
                                        "grep -E -i '\\.(png|gif|jpeg|jpg)$' | "
                                        "sort -n | "
                                        "head -1 | "
                                        "tr -d '\\n'  " ))))
            (message "file: %s" 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)
                     ;; サムネイルファイルがナイこと，かつ

                     (<= (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 †

暫定。ムダに重い。

(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 †

以下は，zipファイルから1枚の画像ファイルを選んで， "/dev/shm/image-dired/temp"に展開するスクリプトです． パスのとおった場所に保存しておきます．

#!/usr/bin/ruby

require("digest/md5");

fileList= [];

if(ARGV[0] =~ /^.*\.(zip|ZIP)$/)
  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();

  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