Hatena::ブログ(Diary)

HM weblog

 | 

2012-03-20

  1. Nautilusのごみ箱の表示で竝順がBy Trash Time (Trashed On)のときは設定のSort folders before filesを無視するパッチ

    diff -urNb nautilus-3.2.1.orig/libnautilus-private/nautilus-file.c nautilus-3.2.1/libnautilus-private/nautilus-file.c
    --- nautilus-3.2.1.orig/libnautilus-private/nautilus-file.c	2011-10-18 05:29:15.000000000 +0900
    +++ nautilus-3.2.1/libnautilus-private/nautilus-file.c	2012-03-20 19:21:36.284548656 +0900
    @@ -3215,7 +3215,7 @@
             } else if (attribute == attribute_trashed_on_q) {
     		return nautilus_file_compare_for_sort (file_1, file_2,
     						       NAUTILUS_FILE_SORT_BY_TRASHED_TIME,
    -						       directories_first,
    +						       FALSE,
     						       reversed);
     	}
     
    

    變更箇所はnautilus_file_compare_for_sort_by_attribute_q函数の中。

  2. Emacsのhtmlizeは内部でuntabifyしてゐる。なんてことを。パッチが壊れるぢゃないか。
  3. (defadvice htmlize-untabify (around disable-htmlize-untabify (text start-column))
      "`htmlize' が勝手に untabify するのを防ぐ。"
      (setq ad-return-value text))
    
    (ad-activate #'htmlize-untabify)
    
  4. ついでにタブと空白を数値文字参照に變換する。M-x untabifyM-x tabifyしてもいいやうに。
  5. (defadvice htmlize-protect-string (after 
                                       whitespace-to-numeric-reference (string))
      "`htmlize' 時にタブ文字と空白を數値文字參照へ變換する。"
      (setq ad-return-value
            (replace-regexp-in-string "[ \t]+" 
                                      #'(lambda (s)
                                          (mapconcat #'(lambda (c)
                                                         (format "&#%d;" c))
                                                     (string-to-list s) 
                                                     ""))
                                      ad-return-value)))
    
    (ad-activate #'htmlize-protect-string)
    
 |