Kazuhiro's blog
ようこそ! Kazuhiro's blog
木曜日, 9月 19 2019 @ 05:14 午前 JST
 記事を友人にメールする 印刷用画面 

cld4-epw-20150508 is released

general

cdae2-epwを作成されたクサガメさんが、Cambridge Learner's Dictionary 4th Editionに付属のCD-ROMの内容を、EBStudioで変換できるようにするためのPerlスクリプトを公開されています。

 記事を友人にメールする 印刷用画面 

Re: wanderlust で GMail 風、新着レス順にソート

general

元ネタはMatsubaraさんの記事fumiさんの記事および2ちゃんねるから。

エラーの原因は最初の(cdr x)(cddr x)の誤りであるからだったような気がしますが、詳細は忘れました。fletを取り除いたり、速度も(多分)速くしたものを公開しておきます。 condition-caseは二つともいらない気がしますが、wl-summary-overview-entity-compare-by-dateがそうなっているので合わせておきました。

(defun wl-summary-overview-entity-compare-by-reply-date (a b)
  "Compare entity A and B by latest date of replies."
  (let ((fx
         #'(lambda (x)
             (let* ((number (elmo-message-entity-number x))
                    (list (cons number
                                (wl-thread-entity-get-descendant
                                 (wl-thread-get-entity number))))
                    max time)
               (while list
                 (when (condition-case nil
                           (elmo-time-less-p
                            max
                            (setq time
                                  (elmo-message-entity-field
                                   (elmo-message-entity
                                    wl-summary-buffer-elmo-folder (car list))
                                   'date)))
                         (error nil))
                   (setq max time))
                 (setq list (cdr list)))
               max))))
    (condition-case nil
        (elmo-time-less-p (funcall fx a) (funcall fx b))
      (error nil))))
(add-to-list 'wl-summary-sort-specs 'reply-date)

尚、実用上はメッセージの時刻をわざわざ比較せずともメッセージ番号の比較で十分だと思いますので、下記のコードを利用して、reply-numberでソートするのが速度的には有利です。

(defun wl-summary-overview-entity-compare-by-reply-number (a b)
  "Compare entity A and B by latest number of replies."
  (let ((fx #'(lambda (x)
                (setq x (elmo-message-entity-number x))
                (apply 'max x (wl-thread-entity-get-descendant 
                               (wl-thread-get-entity x))))))
    (< (funcall fx a) (funcall fx b))))
(add-to-list 'wl-summary-sort-specs 'reply-number)

タグ:Wanderlust Emacs

 記事を友人にメールする 印刷用画面 

ELECOM USB 3.0対応メモリーリーダライタの罠

general

がんばっておもしろおかしく書こうかと思いましたが10秒で挫折したので結論だけ。

ELECOMのUSB 3.0対応メモリーリーダライタはコンパクトフラッシュ Type IIには対応していません。 私が買ったMR3-C002のパッケージの表には対応メディアにMicro Driveと書かれ、パッケージ裏の対応メディアの一覧やニュースリリースにもコンパクトフラッシュ (Type II) とかマイクロドライブなども記載されていますが、開口部の厚みが足りないのでType IIのカードは物理的にささりません。 WEBサイトで公表している対応表にだけは正しい情報が記載されていますが、製品紹介のページやオンラインショップの製品情報などは訂正されていません。

ちなみに、約1年後に発表された新製品Type IIカードが刺さらない (JPG)のは明らかですが、対応しているとニュースリリースには書かれています。

(記載内容はこの記事を書いた時点でのものです。)

(追記) 画像を添付しました。ちなみに、CF Type IIの厚みは5mmです。

(追記その2) 2013/11/28付けの対応表 (pdf) ではCF Type IIとマイクロドライブは対応していることになっているので、新製品の発表時には本当に気づいていなかったのかもしれません。

(追記その3 2014/02/19) MR3-A006については家電量販店ではパッケージに対応メディアの一覧を修正するシールが貼られているのを確認しました。他の製品については製品自体が無かったので不明です。 また、オンラインショップの製品紹介は修正されていません。

 記事を友人にメールする 印刷用画面 

cdae2-epw is released

general

まだテストバージョンとのことですが、 the Cambridge Dictionary of American English, Second Editionに付属のCD-ROMをEBStudioで変換できるようにするためのPerlスクリプトをクサガメさん公開されています。

タグ: EBStudio EPWING CDAE2

 記事を友人にメールする 印刷用画面 

SEMI-EPGで自動verifyを抑制する

general

SEMI-EPGで、鍵をauto retrieveされると困る人がいるようなので。 直接の解では無いですが、SEMIと同様に、自動でverifyを行わないようにさせる設定です。

(eval-after-load "semi-setup"
  '(eval-after-load "mime-view"
     '(when mime-setup-enable-epg
        (mime-add-condition
         'preview
         '((type . application)
           (subtype . pgp-signature)
           (body . invisible)
           (body-presentation-method . mime-preview-application/*-signature))
         'with-default "mime-pgp"))))

(2014/01/31 追記) 手元のものではmime-pgp-verify-when-previewnilにすることでSEMIと同様の動作になるようにしました。

タグ: SEMI-EPG Wanderlust