miyamuko · July 20, 2010 13:09
diff --git a/gistfile1.cl b/gistfile1.cl
 ;; 指定したシンボルの refwiki を開く

 (defun refwiki (symbol)
  (interactive "SSymbol: ")
  (shell-execute (format nil "http://xyzzy.s53.xrea.com/reference/wiki.cgi?p=~A"
                         (si:www-url-encode (string symbol) nil "0-9A-Za-z._~ "))
                 t))
	;; 指定したシンボルの refwiki を開く

	(defun refwiki (symbol)
	(interactive "SSymbol: ")
	(shell-execute (format nil "http://xyzzy.s53.xrea.com/reference/wiki.cgi?p=~A"
	(si:www-url-encode (string symbol) nil "0-9A-Za-z._~ "))
	t))