平衡点

2008/08/04

_ wassr 始めました

twitter と wassr の両方やっている, なんて節操の無いことかもしれませんが. とりあえず, 呟きもヒトコトも同じ内容を更新していきます. サイドバーは, 今迄は twitter の RSS を拾っていましたけれど, Wassr に変えてみましたよ.

あとは .qmail に食べさせて, メールで twitter と wassr の両方を更新できれば良いんだけど, なんか上手くいきませんね. Net::Twitter で wassr 更新するのは駄目なのかしらん.

[ツッコミを入れる]

2010/08/04

_ simple-hatena-mode + hw.pl + Dropbox

いままで日記は

howm に rd でだらだら書く
適当に hatena 形式に変換
はてダラで up する

だったのだけれどもなんかイマイチな感じがしてきたので, 思いきって simple-hatena-mode に変えてみた. 参考にしたのは「はてなダイアリー/はてなグループの日記データをDropboxで同期する」.

nautilus 無しで Dropbox 使いたい,とか思ってたら Debian の non-free セクションにある dropbox パッケージは nautilus へ Depends していないみたいなので, 試しに適当に install したら使えてしまった.

あとは elscreen とかの連携かな?

[ツッコミを入れる]

2022/08/04

_ Firefox の下部余白(Vim Vixen Issue #1424)

Add-On を有効・無効にしながらじたばたしたが, 既知の不具合の模様.

Vim Vixen Issue #1424

提示されてる Workaround として usrContent.css に

.vimvixen-console-frame {
  color-scheme: light !important;
}

を追加して, とりあえずなんとかなった模様.

[ツッコミを入れる]

2023/08/04

_ Wanderlust の返信順ソート関数

元ネタは Re: wanderlust で GMail 風、新着レス順にソート.

flet の挙動が変わった際には sigma/el-x: Emacs lisp extensions にある dflet を使っていたのだけれど, cl-letf を使う様に書き換えてみたり.

(defun wl-summary-overview-entity-compare-by-reply-date (a b)
  "Compare message A and B by latest date of replies including thread."
  (cl-letf (((symbol-function 'string-max2)
             (lambda (x y) (cond ((string< x y) y) ;;>
                                 ('t x))))
            ((symbol-function 'elmo-entity-to-number)
             (lambda (x) (elt (cddr x) 0)))

            ((symbol-function 'thread-number-get-date)
             (lambda (x) (timezone-make-date-sortable
                          (elmo-msgdb-overview-entity-get-date
                           (elmo-message-entity
                            wl-summary-buffer-elmo-folder
                            x)))))
            ((symbol-function 'thread-get-family)
             (lambda (x)
               (cons x (wl-thread-entity-get-descendant
                        (wl-thread-get-entity x)))))
            ((symbol-function 'max-reply-date)
             (lambda (x) (cond ((eq 'nil x)
                                'nil)
                               ((eq 'nil (cdr x))
                                (thread-number-get-date (car x)))
                               ('t
                                (string-max2 (thread-number-get-date (car x))
                                             (max-reply-date (cdr x)))))))
            )
    (string<  ;;>
     (max-reply-date (thread-get-family (elmo-entity-to-number a)))
     (max-reply-date (thread-get-family (elmo-entity-to-number b))))))
(add-to-list 'wl-summary-sort-specs 'reply-date)
(setq wl-summary-default-sort-spec 'reply-date)