miyamuko/gist:482933

## 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))