~fumi/ChangeLog

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" と入力すれば
[src]
\(takabayashiSatoru\|ｔａｋａｂａｙａｓｈｉＳａｔｏｒｕ\|
たかばやしさとる\|タカバヤシサトル\)\|\(takabayashi\|
ｔａｋａｂａｙａｓｈｉ\|たかばやし\|タカバヤシ\|高林\)
\([覚暁悟聡達知智哲了覺逹]\|Satoru\|Ｓａｔｏｒｕ\|さとる\|サトル\)"</pre>
という正規表現が内部的に生成され「高林哲」を検索できる。
興味のある方は CVS からどうぞ。

Tコード入力環境tc2
からsourceを取ってきて、

./configure --prefix=$HOME --with-lispdir=~/elisp/tc
make
make install
tc-inst ~/tcode

(setq tcode-use-isearch nil)
(require 'tc-setup)

- eelll
  T-Codeの練習用モード。

YaTeXでキーバインドがぶつかるので、\C-c\C-eに変更。

http://navi2ch.sourceforge.net/

2chのread.cgiの改造に伴い、読めない板が出てきたので、update。

% cvs -d:pserver:anonymous@cvs.navi2ch.sourceforge.net:/cvsroot/navi2ch login

% cvs -z3 -d:pserver:anonymous@cvs.navi2ch.sourceforge.net:/cvsroot/navi2ch co navi2ch

で、.emacsに

(setq navi2ch-enable-readcgi t)
(setq navi2ch-board-enable-readcgi t)
(setq navi2ch-board-use-subback-html nil)

;;; browse-kill-ring に関する設定
(autoload 'browse-kill-ring "browse-kill-ring" "interactively insert items from kill-ring" t)
(global-set-key "\C-x\C-y" 'browse-kill-ring)
(make-face 'separator)
(set-face-foreground 'separator "slate gray")
(set-face-bold-p 'separator t)
(setq browse-kill-ring-separator "--------------------------------"
      browse-kill-ring-separator-face 'separator
      browse-kill-ring-quit-action 'save-and-restore
      browse-kill-ring-highlight-current-entry t) 

http://paddington.ic.uva.nl/public/cygwin-mount.el

(require 'cygwin-mount)
(cygwin-mount-activate)

Cygwinのディレクトリ構成(/usr/local /mnt/等)を理解させる。

mkdir /dict
ebzip -l 3 -s movie -o /dict /mnt/cdrom

として、辞書をHDDに取り込む。

.emacsに

;;; lookup
(autoload 'lookup "lookup" nil t)
(autoload 'lookup-region "lookup" nil t)
(autoload 'lookup-pattern "lookup" nil t)
(define-key global-map "\C-ce" 'lookup-pattern)
(setq lookup-use-kakasi t)
(setq lookup-use-bitmap t)

と追加。.lookup

(setq lookup-search-agents
      '((ndeb "/dict/")))

とする。

;;; irchat
(setq irchat-server "irc.kyoto.wide.ad.jp")
(autoload 'irchat "irchat" "Internet Relay Chat." t)

を、.emacsに追加。
C-c j で、channelに入る。