~fumi/ChangeLog

Navi2ch for Emacs (Part 10)
http://pc.2ch.net/test/read.cgi/unix/1054769287/ より．

  From: [777] 名無しさん＠お腹いっぱい。 <sage>
  Date: 03/08/31 00:56

  > 既読スレッドだけ上にまとめて表示
  どのマークが付いてるのが一番上にくるといいのですか？

  S-s によるソート順は navi2ch-bm-sort-by-state-order で設定
  できるので、私はこんな感じにしてます。

  (setq navi2ch-bm-sort-by-state-order
        (let ((n 0))
          (mapcar
           '(lambda (x) (cons x (1- (setq n (1+ n)))))
           '("% "
             "%U" "+U" " U"
             "%V" "+V" " V"
             "%C" "+C" " C"
             "=U" "=V" "=C" "= "
             "+ " "  "))))

;; 連続した改行を削除
(defun my-navi2ch-article-collect-newlines ()
  (point-min)
  (while (re-search-forward "\n\n\n+" nil t)
    (replace-match "\n\n" nil nil)))

(add-hook 'navi2ch-article-arrange-message-hook
  'my-navi2ch-article-collect-newlines)

Navi2ch for Emacs (Part 10)
http://pc.2ch.net/test/read.cgi/unix/1054769287/

From: [637] 名無しさん＠お腹いっぱい。 <sage>
Date: 03/08/01 22:11

読んでるスレを直接消す方法って無いですか？（article mode でのスレッド削除です）

最近↓みたいなリンクをiで読み込んだり、飛んでみたりするんだけど。

乳輪でかい女が降臨！！祭ってます！
http://etc.2ch.net/test/read.cgi/intro/1059110657/l20

今は履歴からRしてます。。
_______________________________________________________________________________

From: [639] 名無しさん＠お腹いっぱい。 <sage>
Date: 03/08/03 03:42

>>>637
~/.navi2ch/init.el に こんなの書いてるけど、あんま使ってないなあ。

(define-key navi2ch-article-mode-map "\C-c\C-d"
  'navi2ch-article-remove-article)
(defun navi2ch-article-remove-article ()
  "現在のスレの情報を消す。"
  (interactive)
  (navi2ch-bm-remove-article-subr navi2ch-article-current-board
                                  navi2ch-article-current-article)
  (let ((buf (navi2ch-article-current-buffer)))
    (if buf
        (switch-to-buffer buf)
      (navi2ch-list))))

(auto-compression-mode t)

を書けば大丈夫

migemo と T-Code が衝突するもよう．

- 現象
migemo でサーチを行なうと，マッチする日本語もハイライトされるが，
\C-s，\C-r で日本語に移動できない．

- 対策
.tc に以下を追加．

(setq tcode-use-isearch nil)

- [debian-users:32575] Re: about migemo
  http://lists.debian.or.jp/debian-users/200204/msg00360.html

http://www.shiro.dreamhost.com/scheme/gauche/index-j.html

UNIX USER に特別企画として Gauche の記事があったので，使ってみる．

とりあえず，Emacs の設定．

(setq scheme-program-name "gosh")
(require 'cmuscheme)
(add-hook
 'inferior-scheme-mode-hook
 '(lambda ()
    (set-buffer-process-coding-system
     'euc-jp 'euc-jp)))

(defun scheme-other-window ()
  "Run scheme on other window"
  (interactive)
  (switch-to-buffer-other-window
   (get-buffer-create "*scheme*"))
  (run-scheme scheme-program-name))

(define-key global-map
  "\C-xS" 'scheme-other-window)

キーバインド

M-C-Space	カーソルの次の S 式をマーク
M-C-a	カーソルを含むトップレベルの S 式の先頭へ
M-C-e	カーソルを含むトップレベルの S 式の末尾へ
M-C-f	次の S 式へ
M-C-b	前の S 式へ
M-C-t	カーソルの前後の S 式を交換
M-C-d	1 レベル内側の S 式へ
M-C-u	1 レベル外側の S 式へ

http://kogiku.sourceforge.jp/

設定は

(require 'kogiku)

だけ．

Meadowについて語ってくれなスレ2
http://pc2.2ch.net/test/read.cgi/software/1038091071/743

;; 起動時の白画面をできるだけ見せない設定
;; ~/.emacs の頭の方に書いて、RunMW32.exe --iconic で起動するとよい。
;; ~/.emacs にエラーがある場合には --debug-init オプションで起動しないと
;; ウィンドウが出てこなくなるので注意すること

;; 起動時のフレームの初期位置
(setq my-initial-frame-geometry '((top . 80)
                                  (left . 20)
                                  (width . 80)
                                  (height . 50)))

;; フレームのフォントや配置が変更される過程をなるべく見えなくする
(if window-system
    (progn
      ;; 初期フレームを不可視にする
      (if (null init-file-debug)
          (make-frame-invisible (car (frame-list)) t))
      ;; 設定が終わったら可視状態に戻す
      (add-hook 'window-setup-hook
                (lambda ()
                  (make-frame-visible)
                  (modify-frame-parameters nil my-initial-frame-geometry)
                  ))))

http://www.emacswiki.org/cgi-bin/wiki.pl より．

(defun browse-url-mozilla-new-tab (url &optional new-window)
  ;; new-window ignored
  "Open URL in a new tab in Mozilla."
  (interactive (browse-url-interactive-arg "URL: "))
  (unless
      (string= ""
               (shell-command-to-string
                (concat "mozilla -remote 'openURL(" url ",new-tab)'")))
    (message "Starting Mozilla...")
    (start-process (concat "mozilla " url) nil "mozilla" url)
    (message "Starting Mozilla...done")))

(setq browse-url-browser-function 'browse-url-mozilla-new-tab)

(setq browse-url-new-window-flag t
      browse-url-mozilla-new-window-is-tab t
      browse-url-browser-function
      '(("."        . browse-url-mozilla)))

http://openlab.jp/tcode/

T-code の練習を再び始める．
前回は ~/ 以下にインストールしていたが，
今回はちゃんとパッケージを作ってみた．

.emacs には

(reqire 'tc-setup)

を追記．

eelll のビットマップが黒なので，背景を黒にしないように注意．

(require 'browse-kill-ring)
(setq browse-kill-ring-no-duplicates t)
(ad-enable-advice 'kill-new 'around 'browse-kill-ring-no-kill-new-duplicates)
(ad-activate 'kill-new)

(setq skk-kutouten-type 'en)
(setq skk-kuten-touten-alist
      '((jp . ("。" . "、"))
	(jp2 . ("．" . "、"))
	(en . ("．" . "，"))))

(add-hook 'mime-edit-mode-hook
	  '(lambda ()
	     (make-local-variable skk-kutouten-type)
	     (setq skk-kutouten-type 'jp2)))
(add-hook 'mime-edit-exit-hook
	  '(lambda ()
	     (setq skk-kutouten-type 'en)))

http://www.me.ics.saitama-u.ac.jp/~hira/emacs/howm/

インストールしてみる。

- howm: Hitori Otegaru Wiki Modoki
  http://howm.sourceforge.jp/index-j.html

http://www.geocities.co.jp/SiliconValley-PaloAlto/7043/#spamfilter.el

via: やりなげ日記
     http://www.be.wakwak.com/cgi-bin/sbox/~miyoshi/hns/index.cgi
     の 4月8日、4月10日

SKK専用スレッド Part4
http://pc.2ch.net/test/read.cgi/unix/1049225392/33-

(defsubst my-skk-henkan-key-okuriari-p (k)
  (let ((fc (aref k 0))
        (lc (aref k (1- (length k)))))
    (and (>= fc ?ぁ)
         (<= fc ?ん)
         (>= lc ?a)
         (<= lc ?z))))

(defun my-skk-show-candidates (key)
  (interactive
   (list (read-string "key: ")))
  (let* ((skk-henkan-key key)
         (skk-henkan-okurigana
          (when (my-skk-henkan-key-okuriari-p key) ""))
         (prog-list (delete '(skk-look) skk-search-prog-list))
         (s
          (mapcar #'(lambda (l)
                      (delete "" l))
                  (eval (cons 'list prog-list)))))
    (message "%s" s)
    (with-current-buffer (get-buffer-create "*skk-candidates*")
      (goto-char (point-max))
      (insert (format "%s: %s\n" key s)))))

(defalias 'show-candidates 'my-skk-show-candidates)

M-x show-candidates

- Programming in Emacs Lisp: Table of Contents
- お気楽ごくらくプログラミング入門 -- Lisper への道 --
- Lisp一夜漬け
- Emacs Lisp あれこれ
- 優しい Emacs-Lisp 講座

http://www.math.s.chiba-u.ac.jp/~matsu/emacs/emacs21/index.html

Microsoft のファイルの閲覧とか．

http://pc.2ch.net/test/read.cgi/unix/1039935998/620

From: [620] 480 <sage>
Date: 03/01/29 20:41

スレッド用のフィルタを作ってみました。
http://snapshot.ddo.jp/navi2ch-board-filter.el.gz

こんな感じで使います。
詳しい事はファイルを見てください。

(require 'navi2ch-board-filter)

;; 全ての板で有効な設定
(setq navi2ch-board-filter-global-alist
      '(("山崎[渉歩]" . hide)
        ("千と千尋" . hide)
        ("オナニ.*マラソン" . hide)))

;; 板ごとの設定
(setq navi2ch-board-filter-local-alist
      '(("独身男性"           ; ←板名を正確に指定(正規表現不可)
         ("\\(まんこ\\|マンコ\\|マンコ\\|おっぱい\\|ソープ\\|パイパン\\|\
風俗\\|女子高\\|オナ[ニるー]\\|うんこ\\|ウンコ\\|ＳＥＸ\\|SEX\\|セックス\\|\
夢精\\|妹と風呂\\|\\<６９\\>\\|ロリータ\\|セーラームーン\\|エロゲ\\|\
ラブドール\\|精液\\)" . hide)
         ("[ZＺ]武.*死" . hide))
        ("実況ch"
         ("\\(マネ.*虎\\|笑オンエア\\)" . important)
         ("\\(フジテレビ.*アナウンサ\\|うっちーだけ\\)" . hide))
        ("番組ch"
         ("NHK\\(総合\\|教育\\)" . important)
         ("\\(関西\\|東海\\|九州\\|北海道\\|千葉\\|埼玉\\|群馬\\|WOWOW\\)" . hide))
        (("プログラム" "UNIX" "Linux")  ;←複数指定する場合はリストにする
         ("\\([Ee]macs\\|[Ll]isp\\|[Rr]uby\\)" . important)
         ("\\([Pp]erl\\|COBOL\\|コボル\\|コボラ\\)" . hide))))

http://migemo.namazu.org/

いやな日記

Migemo で連文節の検索ができるようにしてみた。 SKK 式に文節をユーザが指定する仕組みを採用した。たとえば、"takabayashiSatoru" と入力すれば

\(takabayashiSatoru\|ｔａｋａｂａｙａｓｈｉＳａｔｏｒｕ\|
たかばやしさとる\|タカバヤシサトル\)\|\(takabayashi\|
ｔａｋａｂａｙａｓｈｉ\|たかばやし\|タカバヤシ\|高林\)
\([覚暁悟聡達知智哲了覺逹]\|Satoru\|Ｓａｔｏｒｕ\|さとる\|サトル\)"

という正規表現が内部的に生成され「高林哲」を検索できる。
興味のある方は CVS からどうぞ。