Changeset 29347 for lang/gauche

Show
Ignore:
Timestamp:
01/31/09 19:41:25 (6 years ago)
Author:
kiyoka
Message:

Replace Google custom search's code.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/util.kahua

    r26422 r29347  
    2121 
    2222;;<!-- SiteSearch Google --> 
    23 ;;<center> 
    24 ;;<form method=get action="http://www.google.co.jp/search"> 
    25 ;;<table bgcolor="#FFFFFF"><tr valign=top><td> 
    26 ;;<a href="http://www.google.co.jp/"> 
    27 ;;<img src="http://www.google.com/logos/Logo_40wht.gif"  
    28 ;;border="0" alt="Google" align="absmiddle"></a> 
    29 ;;</td> 
    30 ;;<td> 
    31 ;;<input type=text name=q size=31 maxlength=255 value=""> 
    32 ;;<input type=hidden name=ie value=UTF-8> 
    33 ;;<input type=hidden name=oe value=UTF-8> 
    34 ;;<input type=hidden name=hl value="ja"> 
    35 ;;<input type=submit name=btnG value="Google 検索"> 
    36 ;;<font size=-1> 
    37 ;;<input type=hidden name=domains value="oldtype.sumibi.org"><br> 
    38 ;;<input type=radio name=sitesearch value=""> WWW を検索  
    39 ;;<input type=radio name=sitesearch value="oldtype.sumibi.org" checked> oldtype.sumibi.org を検索 
    40 ;;</font> 
    41 ;;</td></tr></table> 
     23;;<form action="http://www.google.com/cse" id="cse-search-box"> 
     24;;  <div> 
     25;;    <input type="hidden" name="cx" value="005847915313634728664:qzl0os7e8d4" /> 
     26;;    <input type="hidden" name="ie" value="UTF-8" /> 
     27;;    <input type="text" name="q" size="31" /> 
     28;;    <input type="submit" name="sa" value="検索" /> 
     29;;  </div> 
    4230;;</form> 
    43 ;;</center> 
     31;;<script type="text/javascript" src="http://www.google.com/coop/cse/brand?form=cse-search-box&lang=ja"></script> 
    4432;;<!-- SiteSearch Google --> 
    4533(define (oldtype:google-searchbox) 
    46   (form/ (@/ (method "get") 
    47             (action "http://www.google.co.jp/search")) 
    48          (table/ (@/ (bgcolor "#FFFFFF")) 
    49                  (tr/ (@/ (valign "top")) 
    50                       (td/ 
    51                        (input/ (@/ (type "text") 
    52                                    (name "q") 
    53                                    (size "31") 
    54                                    (maxlength "255") 
    55                                    (value ""))) 
    56                        (input/ (@/ (type "hidden") 
    57                                    (name "ie") 
    58                                    (value "UTF-8"))) 
    59                        (input/ (@/ (type "hidden") 
    60                                    (name "oe") 
    61                                    (value "UTF-8"))) 
    62                        (input/ (@/ (type "hidden") 
    63                                    (name "hl") 
    64                                    (value "ja"))) 
    65                        (input/ (@/ (type "submit") 
    66                                    (name "btnG") 
    67                                    (value "Google 検索"))) 
    68                        (font/ (@/ (size "-1")) 
    69                               (input/ (@/ (type "hidden") 
    70                                           (name "domains") 
    71                                           (value (oldtype:get-arguments 'fqdn)))) 
    72                               (br/) 
    73                               (input/ (@/ (type "radio") 
    74                                           (name "sitesearch") 
    75                                           (value ""))) 
    76                               "WWW を検索" 
    77                               (input/ (@/ (type "radio") 
    78                                           (name "sitesearch") 
    79                                           (value (oldtype:get-arguments 'fqdn)) 
    80                                           (checked "true"))) 
    81                               (string-append (oldtype:get-arguments 'fqdn) 
    82                                              " を検索"))))))) 
    83  
     34  (node-set/ 
     35   (form/ (@/ (method "get") 
     36              (action "http://www.google.com/cse") 
     37              (id     "cse-search-box")) 
     38          (div/ 
     39           (input/ (@/ (type  "hidden") 
     40                       (name  "cx") 
     41                       (value "005847915313634728664:qzl0os7e8d4"))) 
     42           (input/ (@/ (type  "hidden") 
     43                       (name  "ie") 
     44                       (value "UTF-8"))) 
     45           (input/ (@/ (type  "text") 
     46                       (name  "q") 
     47                       (size  "31"))) 
     48           (input/ (@/ (type  "submit") 
     49                       (name  "sa") 
     50                       (value "検索"))))) 
     51   (script/ (@/ (type  "text/javascript") 
     52                (src   "http://www.google.com/coop/cse/brand?form=cse-search-box&lang=ja"))))) 
    8453 
    8554(define (oldtype:icon-image sym)