From owner-FreeBSD-users-jp@jp.FreeBSD.org Wed Sep 24 20:57:46 2003
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id h8OBvkd89808;
	Wed, 24 Sep 2003 20:57:46 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from umh.incl.ne.jp (umh.incl.ne.jp [61.201.228.28])
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with ESMTP/inet id h8OBvjJ89803
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Wed, 24 Sep 2003 20:57:45 +0900 (JST)
	(envelope-from sanmi@mcn.ne.jp)
Received: from vck2.incl.ne.jp (vck2.incl.ne.jp [61.201.209.87])
	by umh.incl.ne.jp (8.11.6/3.7W-UMH_20030715) with SMTP id h8OBvjI21959
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Wed, 24 Sep 2003 20:57:45 +0900
Received: from yu.incl.ne.jp(219.121.225.35) by vck2.incl.ne.jp via csmap 
	 id 7840; Wed, 24 Sep 2003 21:49:59 +0900 (JST)
Received: from localhost (ibbd226100.ibb.incl.ne.jp [219.121.226.100])
	by yu.incl.ne.jp (8.12.9/3.7Wpl2-07/29/03) with SMTP id h8OBvitP027761
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Wed, 24 Sep 2003 20:57:44 +0900 (JST)
Received: (qmail 16460 invoked from network); 24 Sep 2003 20:57:43 +0900
Received: from unknown (HELO localhost.my.domain.noname) (192.168.0.100)
  by 192.168.0.100 with SMTP; 24 Sep 2003 20:57:43 +0900
Message-ID: <853cemo0ug.wl%sanmi@mcn.ne.jp>
From: ouga@yu.incl.ne.jp
To: FreeBSD-users-jp@jp.FreeBSD.org
In-Reply-To: <3F716D14.9050206@jaist.ac.jp>
References: <3F715E15.5060308@ymg.urban.ne.jp>
	<3F716D14.9050206@jaist.ac.jp>
User-Agent: Wanderlust/2.11.3 (Wonderwall) WEMIKO/1.14.1
 (=?ISO-2022-JP?B?GyRCNl9KXExTQ24bKEI=?=) FLIM/1.14.5 (Demachiyanagi)
 APEL/10.5 Emacs/21.3 (i586--freebsd) MULE/5.0 (SAKAKI)
X-Face: #@kr|LD%63j^H}NLrGY1;jx2{*yA$ynmaq5lHSweMc.-C^:Up:+LTxXjUQq;\bt'D?bxYe)
 7|#t2vF|sZDi$?hZFYghhI!Snmzr>,"Y;sAk=6J]bhze_kKc,LX,p`ETLO,+J,kqGVp6Sgvg'%WQ^l
 =<t7k($LNtx=Ux(IhUQi5;BwOOF@W%l5^zeF=M
MIME-Version: 1.0 (generated by WEMIKO 1.14.1 - =?ISO-2022-JP?B?Ig==?=
 =?ISO-2022-JP?B?GyRCNl9KXExTQ24bKEIi?=)
Content-Type: multipart/mixed;
 boundary="Multipart_Wed_Sep_24_20:57:43_2003-1"
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Wed, 24 Sep 2003 20:57:43 +0900
X-Sequence: FreeBSD-users-jp 76398
Subject: [FreeBSD-users-jp 76398] Re: WindowMaker
 =?ISO-2022-JP?B?GyRCJEclIiVXJWolMSE8JTclZyVzGyhCIA==?=
 =?ISO-2022-JP?B?GyRCJWElSyVlITwkThsoQg==?=
 =?ISO-2022-JP?B?GyRCRGo1QSRHRnxLXDhsJE8yREc9ISkbKEI=?= 
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: ouga@yu.incl.ne.jp
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+030902

--Multipart_Wed_Sep_24_20:57:43_2003-1
Content-Type: text/plain; charset=ISO-2022-JP

ouga $B$H?=$7$^$9!#(B

$B;d$O(B elisp $B$GJQ49$7$F$$$^$9!#(BGNU emacs 21 $B$G$7$+!"F0:n3NG'$O$7$F$$$^$;$s!#(B

$B$^$:!"(B(load-file "WMRootMenu.el") $B$7$^$9!#(B
$B<!$K(B ~/GNUstep/Defaults/WMRootMenu $B$r3+$-(B M-x convert-WMRoot-Menu $B$G(B
$BJQ49$5$l$^$9!#(B
$B$G!"$=$N$^$^(B emacs $B$GJT=8$7J]B8$G!"(BOK $B$G$9!#(B

--Multipart_Wed_Sep_24_20:57:43_2003-1
Content-Type: application/octet-stream; type=emacs-lisp
Content-Disposition: attachment; filename="WMRootMenu.el"
Content-Transfer-Encoding: 7bit

;; WMRootMenu.el --- WMRootMenu $B$NF|K\8l$r%G%3!<%I$9$k!#(B
;; 
;;     WMRootMenu $BFb$N(B \??? $B$H%(%s%3!<%I$5$l$?F|K\8l$r%G%3!<%I$9$k!#(B
;;     $B;H$$J}$O!"(BWMRootMenu $B$r%P%C%U%!$KI=<($7$F(B convert-WMRootMenu
;;     $B$r<B9T$7$^$9!#(B
;; 
;;     $B$H$j$"$($:F0$1$P$$$$$d$C$F$3$H$G:n$C$?$N$G!"%=!<%9$O1x$$$G$9!#(B
;; 
;; PORTABILITY
;;     Emacs 21.1 $B$GF0:n3NG'$7$F$$$^$9!#(B
;; 
;; Copyright (C) 2002 Ouga <ouga@yu.incl.ne.jp>.

;; May  4 2002

(defun oct3-to-number (string)
  (let ((a (string-to-number (substring string 0 1)))
	(b (string-to-number (substring string 1 2)))
	(c (string-to-number (substring string 2 3))))
    (+ (* a 8 8) (* b 8) c)))

(defun isstroctnum (ch)
  "8$B?J?t$G;H$($kJ8;z$J$i(B non-nil $B$rJV$9!#(B"
  (memq ch '(?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7)))

(defun Print (ch)
  (princ (char-to-string ch)))

(defun convert-WMRootMenu ()
  (interactive)
  (let (a b c buffer)
    (setq buffer (get-buffer-create "newWMRootMenu"))
    (setq standard-output buffer)

    (beginning-of-buffer)
    (while (not (eobp))
      (if (= (following-char) ?\\)
	  (progn
	    (forward-char 1)
	    (setq a (following-char))
	    (if (isstroctnum a)
		(progn
		  (forward-char 1)
		  (setq b (following-char))
		  (if (isstroctnum b)
		      (progn
			(forward-char 1)
			(setq c (following-char))
			(if (isstroctnum c)
			    (Print (oct3-to-number (format "%c%c%c" a b c)))
			  (Print ?\\)
			  (Print a)
			  (Print b)
			  (Print c)))
		    (Print ?\\)
		    (Print a)
		    (Print b)))
	      (Print ?\\)
	      (Print a)))
	(Print (following-char)))
      (forward-char 1))
    (let (foo)
      (save-excursion
	(select-buffer buffer)
	(setq foo (buffer-substring (point-min) (point-max))))
      (kill-buffer buffer)
      (erase-buffer)
      (insert foo)
      (decode-coding-region (point-min) (point-max) 'euc-jp)
      (beginning-of-buffer)
      )
  ))

--Multipart_Wed_Sep_24_20:57:43_2003-1--

