2005-02-02

Apit

Apitなるものを使ってみた。
どんな感じだろ？

2004-07-22

rail

Meadow2

rail に手を入れてみた。
どこかで手に入れた rail-current との差分は以下のとおり。(http://www.nijino.com/ari/tmp/rail-meadow1.99.patch も含まれています。)
誰か添削してくれると嬉しいなぁ。

diff -r -u rail-current/contrib/MEADOW_VERSION rail-current-20040722/contrib/MEADOW_VERSION
--- rail-current/contrib/MEADOW_VERSION	2002-10-20 02:57:42.000000000 +0900
+++ rail-current-20040722/contrib/MEADOW_VERSION	2004-07-22 14:30:28.772425400 +0900
@@ -5,6 +5,7 @@
 1.10	TSUYU			露		66段
 1.14	AWSAKA			逢坂		62段
 1.15	SHOUBU			菖蒲		63段                               
+2.01	KARUKAYA		刈萱
 
 
 [Meadow Beta Version names]
diff -r -u rail-current/rail-common.el rail-current-20040722/rail-common.el
--- rail-current/rail-common.el	2002-11-25 23:14:48.000000000 +0900
+++ rail-current-20040722/rail-common.el	2004-07-22 14:20:48.925065500 +0900
@@ -86,23 +86,23 @@
 				 rchar)
 				(t delimiter))))
       (if (looking-at (format rail-meadow-beta-version-header-format delimiter))
-	  (let* ((b1    (match-beginning 2))
-		 (e1    (match-end 2))
-		 (b2    (match-beginning 3))
-		 (e2    (match-end 3))
-		 (num   (buffer-substring b2 e2))
-		 (flag  (string-match "段" num))
+	  (let* ((b1    (match-beginning 5))
+		 (e1    (match-end 5))
+		 (b2    (match-beginning 6))
+		 (e2    (match-end 6))
+		 (num   (and b2 e2 (buffer-substring b2 e2)))
+		 (flag  (and num (string-match "段" num)))
 		 (code  (buffer-substring b1 e1))
 		 (ccode (rail-assoc code
 				    (append rail-additional-meadow-codename-alist
 					    rail-meadow-codename-alist)
 				    rail-convert-direction)))
 	    (goto-char b1)
-	    (delete-region b1 e2)
-	    (insert (or ccode code) new-delimiter num)
-	    (if flag
-		(or rail-convert-direction (delete-backward-char 1))
-	      (and rail-convert-direction (insert "段"))))
+	    (delete-region b1 (or e2 e1))
+	    (insert (or ccode code))
+	    (when num (insert new-delimiter num))
+	    (when flag
+	      (or rail-convert-direction (delete-backward-char 1))))
 	(rail-replace-codename-primitive
 	 rail-mule-version-header-format
 	 rail-additional-meadow-codename-alist rail-meadow-codename-alist)))))
Only in rail-current-20040722: rail-table-meadow.el
Only in rail-current-20040722: rail-table-mule.el
diff -r -u rail-current/rail-vars.el rail-current-20040722/rail-vars.el
--- rail-current/rail-vars.el	2002-10-20 02:57:42.000000000 +0900
+++ rail-current-20040722/rail-vars.el	2004-07-22 14:16:56.030015900 +0900
@@ -68,7 +68,7 @@
 
 ;; Meadow beta version format
 (defvar rail-meadow-beta-version-header-format
-  "\\([.0-9]+\\|[.0-9]+ Beta[0-9]*\\)[ \t\r\n](\\([^()]+\\)%c\\([0-9]+段?\\))"
+  "\\([.0-9]+\\|[.0-9]+ ?\\(Beta\\|Alpha\\|pre\\)[0-9]*\\(-dev\\)?\\|[.0-9]+\\(-dev\\)\\)[ \t\r\n](\\([^()]+\\)\\(%c\\([0-9]+段?\\)\\)?)"
   "Format of (Meadow-version) string for Meadow-beta.
 This variable is used in rail-replace-codename.")

2004-06-01

Package の install

Meadow2

以下のもの以外は Package から入れる。
- cgreek
  - 多分使わない
- emacs-w3m
  - CVSから入れる
- gnuserv
- imagemagick
  - DL のみする
- intlfonts
  - DL のみする
- mew
  - CVSから入れる
- mu-cite
  - 多分使わない
- navi2ch
  - 多分使わない
- sdic
- skk
  - CVSから入れる
- wanderlust
  - 多分使わない