home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / irchat-pj / 2.5 / irchat-pj-2.5.6p.tar.gz / irchat-pj-2.5.6p.tar / irchat-pj-2.5.6p / doc24 / README.browse-url-plus < prev    next >
Lisp/Scheme  |  2000-07-31  |  8KB  |  200 lines
  1. -*- Text -*-
  2.  
  3. Subject:      browse-url $B$*$h$S(B browse-url-plus $B$NMxMQJ}K!(B
  4. Author:       $B$7$^$@(B $B$_$D$N$V(B <simm@irc.fan.gr.jp>
  5. Date:         1999$BG/(B6$B7n(B27$BF|(B($BF|(B)
  6. Organization: irchat-PJ Project
  7.  
  8. 0.$B$3$NJ8=q$N35MW(B
  9.  
  10. $B$3$3$G$O(B, browse-url $B$*$h$S(B browse-url-plus $B$NMxMQJ}K!$r@bL@$7$^(B
  11. $B$9(B.  $B$^$:(B, $B:G=i$K(B browse-url $B$NMxMQJ}K!$r4JC1$K@bL@$7(B, $B$D$E$$$F(B
  12. browse-url-plus $B$G$N3HD%ItJ,$K$D$$$F@bL@$7$^$9(B.
  13.  
  14. $B=g=x(B :
  15.  
  16.  0. $B$3$NJ8>O$N35MW(B
  17.  
  18.  1. $B4JC1$J(B browse-url $B$N;H$$J}(B
  19.  2. $B%a!<%kAw?.4X?t(B
  20.  3. URL $B$G;XDj$5$l$k%U%!%$%k$r%@%&%s%m!<%I(B
  21.  4. browse-url $B4X?t$NJ#@=(B
  22.  
  23. $B!g(B. $B:G8e$K(B
  24.  
  25. ----------------
  26.  
  27. 1.$B4JC1$J(B browse-url $B$N;H$$J}(B
  28.  
  29. 1.1.$B:G$b4JC1$J(B browse-url $B$N;H$$J}(B
  30.  
  31. $B$^$:(B, $B:G$b4JC1$J;H$$J}$G$9(B. $B$3$l$O@_Dj$b2?$bI,MW$"$j$^$;$s(B.
  32. URL $B$,5-=R$5$l$F$"$k>l=j$K%+!<%=%k$r$b$C$F$$$-(B,
  33.  
  34. M-x browse-url
  35.  
  36. $B$H$7$F$_$^$7$g$&(B. $B$=$&$9$k$H(B, minibuffer $B$K(B
  37.  
  38. URL: ($B%+!<%=%k0LCV$N(BURL)
  39.  
  40. $B$HI=<($5$l$^$9(B. $B$3$3$G(B RETURN $B$rC!$/$H(B, $B%V%i%&%6$,5/F0$5$l(B,
  41. $B$=$N(B URL $B$,%V%i%&%6$KI=<($5$l$^$9(B.
  42.  
  43. 1.2.$B%V%i%&%6$r;XDj$7$?$$(B
  44.  
  45. $B!V$($C(B, $BI=<($5$l$J$$$>!W$H$$$&J}$b$$$k$H;W$$$^$9(B. $B$=$l$O$J$<$+(B.
  46. $B%V%i%&%6$,;XDj$5$l$F$$$J$$(B, $B$b$7$/$O%G%U%)%k%H$N%V%i%&%6$,B8:_$7(B
  47. $B$J$$$+$i$G$9(B. $B$=$3$G(B, $B%V%i%&%6$r;XDj$7$F$d$k$3$H$G(B, $BI=<($G$-$k$h(B
  48. $B$&$K$7$^$9(B.
  49.  
  50. (setq browse-url-browser-function "netscape")
  51.  
  52. $B$3$l$r(B .emacs $B$N$I$3$+$K5-=R$7$F$*$/$3$H$G(B, $BI=<($5$l$k$h$&$K$J$j(B
  53. $B$^$9(B.
  54.  
  55. 1.3.URL$B$K$h$C$F%V%i%&%6$rJQ99$7$?$$(B(Emacs20 $B$N$_(B)
  56.  
  57. Emacs20 $B$G$O(B, browse-url-browser-function $B$,%j%9%H$G$"$k$3$H$b5v(B
  58. $B$5$l$^$9(B.
  59.  
  60. (setq browse-url-browser-function
  61.       '(("^mailto:" . browse-url-compose-mail)
  62.         ("."        . browse-url-netscape)))
  63.  
  64. $B$3$N$h$&$K(B, (regexp . function) $B$N%Z%"$N%j%9%H$K$7$F$*$/$3$H$G(B,
  65. URL $B$K$h$C$F5sF0$rJQ99$9$k$3$H$,$G$-$^$9(B. $B$3$N>l9g(B, $B%a!<%k%"%I%l(B
  66. $B%9$KBP$7$F$O%a!<%k=q$-4X?t$,(B, $B$=$l0J30$O(B Netscaoe Navigator /
  67. Communicator $B$,5/F0$9$k$h$&$K$J$j$^$9(B.
  68.  
  69. 1.4.$B%-!<%P%$%s%I(B
  70.  
  71. $BKh2s$o$6$o$6(B M-x browse-url $B$H$9$k$N$O(B, $BLLE]$G$9(B. $B%-!<$K%P%$%s%I(B
  72. $B$7$F$7$^$$$^$7$g$&(B.
  73.  
  74. (cond ((featurep 'xemacs)
  75.        (define-key global-map [(control return)] 'browse-url))
  76.       (t
  77.        (define-key global-map [C-return] 'browse-url)))
  78.  
  79. $B$3$l$G(B, C-return $B$9$k$H(B, browse-url $B$,5/F0$9$k$3$H$K$J$j$^$9(B.
  80. $B%+!<%=%k$r(B URL $B$K$b$C$F$$$-(B, C-return $B$9$k$3$H$G(B, $B%V%i%&%6$r8F$S(B
  81. $B=P$9$3$H$,$G$-$k$h$&$K$J$j$^$9(B.
  82.  
  83. ----------------
  84.  
  85. 2.$B%a!<%kAw?.4X?t(B
  86.  
  87. $B@hDx(B 1.3. $B$NNc$GMQ$$$?(B browse-url-compose-mail $B$G$9$,(B, $B$3$l$O(B,
  88. $B;XDj$5$l$?%"%I%l%908$N%a!<%k$r(B compose-mail $B4X?t$G5-=R$9$k4X?t$G(B
  89. $B$9(B. $B$G$O(B, $B$3$N%a!<%k$r=q$/$?$a$N4X?t$r(B, $BIaCJ;H$C$F$$$k$b$N(B, $B$?$H(B
  90. $B$($P(B mew-send $B$d(B wl-draft $B$K$7$?$$>l9g$O$I$&$9$l$P$h$$$N$G$7$g$&$+(B.
  91. $B$3$&$$$&$H$-$K(B browse-url-plus $B$NEP>l$G$9(B.
  92.  
  93. browse-url-plus.el $B$r(B load-path $B$N$H$*$C$?$H$3$m$K$*$-(B,
  94.  
  95. (autoload 'browse-url-plus-compose-mail
  96.   "browse-url-plus" "A little-extension for browse-url" t)
  97. (setq browse-url-plus-compose-mail-function 'wl-draft)
  98. (setq browse-url-browser-function
  99.       '(("^mailto:" . browse-url-plus-compose-mail)
  100.         ("."        . browse-url-netscape)))
  101. (cond ((featurep 'xemacs)
  102.        (define-key global-map [(control return)] 'browse-url-plus-x))
  103.       ((<= 20 emacs-major-version)
  104.        (define-key global-map [C-return] 'browse-url))
  105.       (t
  106.        (define-key global-map [C-return] 'browse-url-plus-x)))
  107.  
  108. $B$H(B .emacs $B$K=q$$$F$*$-$^$9(B. $B$3$l$G(B C-return $B$H$9$k$H(B, $B%a!<%k%"%I(B
  109. $B%l%9$,5-=R$5$l$F$"$k>l=j$J$i$P(B, wl-draft $B$,8F$P$l(B, Wanderlust $B$r(B
  110. $BMxMQ$7$F%a!<%k$r=q$/$3$H$,$G$-$k$h$&$K$J$j$^$9(B. Mew $B$JJ}$O(B,
  111. wl-draft $B$NItJ,$r(B mew-send $B$KJQ99$7$F$/$@$5$$(B.
  112.  
  113. ----------------
  114.  
  115. 3.URL $B$G;XDj$5$l$k%U%!%$%k$r%@%&%s%m!<%I(B
  116.  
  117. URL $B$G;XDj$5$l$?%U%!%$%k$r%V%i%&%6$G8+$k$N$G$O$J$/(B, wget$B$rMxMQ$7(B
  118. $B$F%@%&%s%m!<%I$7$?$$>l9g$I$&$9$l$P$h$$$N$G$7$g$&$+(B.
  119.  
  120. $B$3$l$b4JC1$G$9(B. $B@hDx$N@_Dj$N$&$A(B, browse-url-browser-function $B$r(B
  121.  
  122. (setq browse-url-browser-function
  123.       '(("^mailto:" . browse-url-plus-compose-mail)
  124.         ("."        . browse-url-plus-wget-url)))
  125.  
  126. $B$H$9$k$3$H$G(B, C-return $B$9$l$P(B wget $B$,8F$P$l$k$h$&$K$J$j$^$9(B.
  127.  
  128. ----------------
  129.  
  130. 4.browse-url $B4X?t$NJ#@=(B
  131.  
  132. $B$G$O(B, $B%-!<$K$h$C$F(B, $B%V%i%&%65/F0$H(Bwget$B$G$N%@%&%s%m!<%I$r;H$$J,$1(B
  133. $B$?$$>l9g$O$I$&$9$l$P$h$$$N$G$7$g$&$+(B.
  134.  
  135. $B$3$N$?$a$K$O(B, $B$^$:(B browse-url $B4X?t$rJ#@=$7$^$9(B.
  136.  
  137. (browse-url-plus browse-url-alternative "(Alternative)URL: "
  138.                  browse-url-alternative-browser-function)
  139.  
  140. $B$3$l$G(B, browse-url-alternative $B4X?t$,:n$i$l$^$9(B. browse-url $B4X?t(B
  141. $B$KBP$9$k(B browse-url-browser-function $B$KAjEv$9$kJQ?t$O(B, $B4X?t@8@.(B
  142. $B;~$K:G8e$N0z?t$H$7$FM?$($?(B browse-url-alternative-browser-function
  143. $B$G$9(B. 
  144.  
  145. (setq browse-url-browser-function
  146.       '(("^mailto:" . browse-url-plus-compose-mail)
  147.     ("."        . browse-url-netscape)))
  148. (setq browse-url-alternative-browser-function
  149.       '(("^mailto:" . browse-url-plus-compose-mail)
  150.     ("."        . browse-url-plus-wget-url)))
  151. (cond ((featurep 'xemacs)
  152.        (define-key global-map [(control return)] 'browse-url-plus-x)
  153.        (define-key global-map [(meta return)] 'browse-url-alternative))
  154.       ((<= 20 emacs-major-version)
  155.        (define-key global-map [C-return] 'browse-url)
  156.        (define-key global-map [M-return] 'browse-url-alternative))
  157.       (t
  158.        (define-key global-map [C-return] 'browse-url-plus-x)
  159.        (define-key global-map [M-return] 'browse-url-alternative)))
  160.  
  161. $B$3$&$9$k$3$H$G(B, C-return $B$G%V%i%&%65/F0(B, M-return $B$G(B wget $B$K$h$k(B
  162. $B%@%&%s%m!<%I(B, $B$H;H$$J,$1$k$3$H$,$G$-$^$9(B.
  163.  
  164. ----------------
  165.  
  166. $B!g(B.$B:G8e$K(B
  167.  
  168. $B!V(Birchat-pj $B$K$b(B URL$BO"F05!G=$r$D$1$?$$!W!D$3$&(B, $B$U$H;W$$$D$$$?$N(B
  169. $B$,(B browse-url-plus $B$r=q$/$-$C$+$1$G$9(B. $B$"$k$H$-!V(Bbrowse-url $B$H$$(B
  170. $B$&$N$,%G%U%)%k%H$G$D$$$F$k$h!W$H>R2p$5$l(B, $B;H$C$F$_$k$H(B, $B;d$,<BAu(B
  171. $B$7$h$&$H9M$($F$$$?$b$N$,$[$\<B8=$5$l$F$*$j(B, $B!V$3$l$G$$$$$d!W$H;W(B
  172. $B$C$?$N$G$9$,(B, $B;H$$9~$a$P9~$`$[$IM_$,$G$k$b$N$G(B,
  173.  
  174. $B!&%a!<%kAw?.4X?t$rJQ99$7$?$$(B
  175. $B!&(Bwget $B$G$-$k$h$&$K$7$?$$(B
  176. $B!&%-!<$K$h$C$F(B, $B5sF0$rJQ99$7$?$$(B
  177. $B!&(BEmacs20 $B0J30$G$b(B, URL $B$K$h$C$F5sF0$rJQ99$7$?$$(B
  178.  
  179. $B$J$I$H;W$&$h$&$K$J$j(B, $B;W$&$,$^$^$K=q$-$"$2$?(B($B%+%C%H(B & $B%3%T!<$H$b(B
  180. $B$$$&(B :-) $B$N$,(B browse-url-plus $B$G$9(B.
  181.  
  182. # $BF1;~$K(B, XEmacs$B$C$F0F30IO<e$@$J(B, $B$H$$$&46A[$b$b$A$^$7$?(B. (*1)
  183.  
  184. $B:G8e$K(B, browse-url-plus $B$N@_Dj$O(B, $BIUB0$N(B browse-url-plus.emacs
  185. $B$r;29M$K$7$F$/$@$5$$(B.
  186.  
  187. $B$b$7(B, $B$40U8+!&$4MWK>!&<ALd!&%P%0Js9pEy$4$6$$$^$7$?$i(B, $B%a!<%k$r(B
  188. simm@irc.fan.gr.jp $B$^$G$*4j$$$7$^$9(B. IRC $B>e$G8+$D$1$F$/$@$5$C$?>l(B
  189. $B9g$O(B, $B$=$3$G$b$+$^$$$^$;$s(B. $B=5Kv$N%F%l%[!<%@%$;~4V$J$i(B, $B$?$$$,$$(B
  190. IRCnet$B$N$I$3$+$K$$$k$H;W$$$^$9(B. nick $B$O(B simm[0-9]* $B$K%^%C%A$9$k(B
  191. $B$$$:$l$+$G$9(B.
  192.  
  193. ----------------
  194.  
  195. ($BCm(B)
  196.  
  197. simm@irc.fan.gr.jp, 27 Jun 1999
  198. (*1) XEmacs21 $B$G$O(B, fsf-compat $B%Q%C%1!<%8$K$"$k(B thingatpt.el $B$K$h$j(B
  199.      Emacs20 $B$HF1Ey$NF0:n$r$5$;$k$3$H$,$G$-$^$9(B.
  200.