;; ni
		(require "ni/setup")
		;; 自動設定を利用する
		(ni-autoload)
		;; PROXYを通す場合
		;(setq ni::*http-proxy-host* "proxy.host")  ; PROXY のホスト
		;(setq ni::*http-proxy-port* 8080)          ; PROXY のポート

;; xyzzyのNetInstaller/配布パッケージ一覧を元にサイトを最新のものにする
(defun ni::add-site-from-wiki ()
  (interactive)
  (let ((s (ni::http-get-url "http://xyzzy.s53.xrea.com/wiki/index.php?cmd=source&page=NetInstaller%2F%C7%DB%C9%DB%A5%D1%A5%C3%A5%B1%A1%BC%A5%B8%B0%EC%CD%F7")))
    (ni::load-site-data)
    (mapcar
     (lambda (x) (ignore-errors (ni::site-add x)))
     (set-difference
      (remove-if
       'null 
       (mapcar (lambda (i)
		 (and (string-match "^:[^|]+|\\(http:.*\\)$" i)
		      (apply #'concat
			     (mapcar (lambda (x)
				       (let ((tmp (split-string x #\;)))
					 (if (equal (car tmp) "amp")
					     (apply #'concat "&" (cdr tmp))
					   (car tmp))))
				     (split-string (match-string 1) #\&)))))
	       (let (out)
		 (while
		     (handler-case
			 (progn
			   (push (read-line s) out)
			   t)
			 (quit (c)
			   (return-from ni::add-site-from-wiki))
			 (error (c)
			   nil)))
		 (nreverse out))))
      (mapcar (lambda (x) (cdr (assoc "src" x :test 'equal))) ni::*site-data*)
      :test 'equal))) t)
 ;;ここがキーバインド
(define-key ni::*site-map* #\N 'ni::add-site-from-wiki)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; www-mode

;;; -*- Mode: Lisp -*-
; $Id: sample.xyzzy,v 1.3 2005/11/24 15:12:27 torihat Exp $
;
; sample.xyzzy for www-mode
;
; by HATTORI Masashi

(autoload 'www "www/www" t)	                ; 通常起動
(autoload 'www-open-url "www/www" t)            ; URLを指定して起動
(autoload 'www-open-local-file "www/www" t)     ; ローカルのファイルを指定して開く
(autoload 'www-open-current-buffer "www/www" t)	; 現在のバッファのファイルを開く

;;; -*- Mode: Lisp -*-
; $Id: sample.www,v 1.5 2005/11/24 15:24:23 torihat Exp $
;
; sample.www for www-mode
;
; by HATTORI Masashi

;(in-package "www")

; w3mでレンダリングする
;(require "www/www-w3m")
; w3mのパス
;(setq *www-w3m-command*
;      (map-slash-to-backslash "C:/cygwin/usr/bin/w3m.exe"))
; w3m on
;(www-w3m-toggle t)

; スタートページ [*www-bookmark-file*]
;(setq *www-start-page* "http://www.google.co.jp/")

; ダウンロードするディレクトリ ["xyzzy"]
;(setq *www-save-directory* "C:/Temp")

; ブックマークファイル["xyzzy/etc/bookmark.html"]
;(setq *www-bookmark-file* "~/bookmark.html")

; PROXY のホスト
;(setq *www-proxy-host* "your.proxy.server")
; PROXY のポート
;(setq *www-proxy-port* 8080)
; PROXY を経由しないホストのリスト
;(setq *www-direct-connect-list* '("direct1.host"
;				   "direct2.host"))

; Proxy Authorization
;(setq *www-proxy-user* "proxy_user")
;(defvar *www-proxy-pass* "proxy_password")

; Anonymous FTP パスワード
;(setq *www-anon-ftp-pass* "your_email@example.com")

; mailto: の設定（デフォルトは標準のメーラー）
; KaMailを使う場合(KaMail-0.0.2.4以降)
;(setq *www-mailer-func* #'(lambda (addr)
;			    (user::kamail-mailto addr)))

;リンクの色
;(setq *www-link-fgcolor* 4)
;(setq *www-link-fgcolor* nil)
;(setq *www-overlay-fgcolor* 4)
;(setq *www-overlay-bgcolor* 3)

;Formの色
;(setq *www-form-fgcolor* 1)

;前ページのencodingを引き継ぐ
;(setq *www-use-previous-encoding* t)

;リストの行頭文字
;(setq *www-tag-list-char* '("0 " "- " "* " "+ " "= "))

;Cookieを食べる
;(setq *www-cookie-enable* t)
;CookieのHostが一致しないときには食べない
;(setq *www-cookie-ignore-host-mismatch* t)
;CookieのHostが一致しないときに警告
;(setq *www-cookie-alert-host-mismatch* t)
;Cookieを食べる時常に警告
;(setq *www-cookie-alert-always* t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 2ch
;	(autoload '2ch "2ch/main" t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; バックアップディレクトリ
(require "backup")
(setq *backup-directory* "~/backup/")
(setq *hierarchic-backup-directory* t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; tetris
;; (require "site-lisp/xyzzy-memo/game/tetris")

;; drill-plus
;; (require "site-lisp/xyzzy-memo/game/drill")