Changeset 19747

Show
Ignore:
Timestamp:
09/23/08 03:08:27 (5 years ago)
Author:
kiyoka
Message:

Added the Google search box to header of OldType? pages.

Location:
lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/oldtype.css

    r15937 r19747  
    694694        text-align: left; 
    695695} 
     696 
     697td.header_L { 
     698        border-style: solid; 
     699        border-color: #ffffff; 
     700        border-width: 1px; 
     701        align:        left; 
     702} 
     703 
     704td.header_R { 
     705        border-style: solid; 
     706        border-color: #ffffff; 
     707        border-width: 1px; 
     708        align:        right; 
     709} 
     710 
     711 

  • lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/oldtype.kahua

    r15903 r19747  
    297297                     (br/)) 
    298298                    (text/ "")) 
    299                 (oldtype:icon-image 'logo) 
    300                 (a/ (@/ (href (oldtype:gen-page-path "!RecentChanges")) 
    301                         (class "help") 
    302                         (title "Recent changes of This site")) 
    303                     "[RecentChanges]") 
    304                 (text/ " ") 
    305                 (a/ (@/ (href (oldtype:gen-page-path "!AllPages")) 
    306                         (class "help") 
    307                         (title "All wiki pages of This site")) 
    308                     "[AllPages]") 
    309                 (text/ " ") 
    310                 (span/ "(Late") 
    311                 (oldtype:icon-image 'new4) 
    312                 (oldtype:icon-image 'new3) 
    313                 (oldtype:icon-image 'new2) 
    314                 (oldtype:icon-image 'new1) 
    315                 (oldtype:icon-image 'new0) 
    316                 (span/ "Latest)") 
    317                 (span/ (@/ (class "forw3m")))) 
     299                (table/  
     300                 (tr/ 
     301                  (td/ (@/ (class "header_L")) 
     302                       (oldtype:icon-image 'logo) 
     303                       (a/ (@/ (href (oldtype:gen-page-path "!RecentChanges")) 
     304                               (class "help") 
     305                               (title "Recent changes of This site")) 
     306                           "[RecentChanges]") 
     307                       (text/ " ") 
     308                       (a/ (@/ (href (oldtype:gen-page-path "!AllPages")) 
     309                               (class "help") 
     310                               (title "All wiki pages of This site")) 
     311                           "[AllPages]") 
     312                       (br/) 
     313                       (span/ "(Late") 
     314                       (oldtype:icon-image 'new4) 
     315                       (oldtype:icon-image 'new3) 
     316                       (oldtype:icon-image 'new2) 
     317                       (oldtype:icon-image 'new1) 
     318                       (oldtype:icon-image 'new0) 
     319                       (span/ "Latest)")) 
     320                  (td/ (@/ (class "header_R")) 
     321                       (oldtype:google-searchbox) 
     322                       (span/ (@/ (class "forw3m"))))))) 
    318323          (br/) 
    319324          (h1/ wikiname 

  • lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/util.kahua

    r19687 r19747  
    2020 
    2121 
    22 ;; <!-- SiteSearch Google --> 
    23 ;; <form method="get" action="http://www.google.co.jp/custom" target="_top"> 
    24 ;; <table border="0" bgcolor="#ffffff"> 
    25 ;; <tr><td nowrap="nowrap" valign="top" align="left" height="32"> 
    26 ;; <a href="http://www.google.com/"> 
    27 ;; <img src="http://www.google.com/logos/Logo_25wht.gif" border="0" alt="Google" align="middle"></img></a> 
    28 ;; </td> 
    29 ;; <td nowrap="nowrap"> 
    30 ;; <input type="hidden" name="domains" value="oldtype.sumibi.org"></input> 
    31 ;; <label for="sbi" style="display: none">検索用語を入力</label> 
    32 ;; <input type="text" name="q" size="20" maxlength="255" value="" id="sbi"></input> 
    33 ;; <label for="sbb" style="display: none">検索フォームを送信</label> 
    34 ;; <input type="submit" name="sa" value="検索" id="sbb"></input> 
    35 ;; </td></tr> 
    36 ;; <tr> 
    37 ;; <td>&nbsp;</td> 
    38 ;; <td nowrap="nowrap"> 
    39 ;; <table> 
    40 ;; <tr> 
    41 ;; <td> 
    42 ;; <input type="radio" name="sitesearch" value="" id="ss0"></input> 
    43 ;; <label for="ss0" title="ウェブ検索"><font size="-1" color="#000000">Web</font></label></td> 
    44 ;; <td> 
    45 ;; <input type="radio" name="sitesearch" value="oldtype.sumibi.org" checked id="ss1"></input> 
    46 ;; <label for="ss1" title="検索 oldtype.sumibi.org"><font size="-1" color="#000000">oldtype.sumibi.org</font></label></td> 
    47 ;; </tr> 
    48 ;; </table> 
    49 ;; <input type="hidden" name="client" value="pub-5721837636688174"></input> 
    50 ;; <input type="hidden" name="forid" value="1"></input> 
    51 ;; <input type="hidden" name="ie" value="UTF-8"></input> 
    52 ;; <input type="hidden" name="oe" value="UTF-8"></input> 
    53 ;; <input type="hidden" name="safe" value="active"></input> 
    54 ;; <input type="hidden" name="cof" value="GALT:#008000;GL:1;DIV:#336699;VLC:663399;AH:center;BGC:FFFFFF;LBGC:336699;ALC:0000FF;LC:0000FF;T:000000;GFNT:0000FF;GIMP:0000FF;LH:38;LW:100;L:http://oldtype.sumibi.org/kahua/oldtype/staticimg/oldtype_logo_small.png;S:http://oldtype.sumibi.org/;LP:1;FORID:1"></input> 
    55 ;; <input type="hidden" name="hl" value="ja"></input> 
    56 ;; </td></tr></table> 
    57 ;; </form> 
     22;;<!-- 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> 
     42;;</form> 
     43;;</center> 
    5844;;<!-- SiteSearch Google --> 
    5945(define (oldtype:google-searchbox) 
    60   (form/ 
    61    (@/ (method "get") 
    62        (action "http://www.google.co.jp/custom") 
    63        (target "_top")) 
    64    (table/ 
    65     (@/ (class "searchbox")) 
    66     (tr/ 
    67      (td/ 
    68       (@/ (nowrap "nowrap") 
    69           (valign "top") 
    70           (align "left") 
    71           (height "32")) 
    72       (a/ 
    73        (@/ (href "http://www.google.com/")) 
    74        (img/ 
    75         (@/ (src "http://www.google.com/logos/Logo_25wht.gif") 
    76             (border "0") 
    77             (alt "Google") 
    78             (align "middle"))))) 
    79      (td/ 
    80       (@/ (nowrap "nowrap")) 
    81       (input/  
    82        (@/ (type "hidden") 
    83            (name "domains") 
    84            (value (oldtype:get-arguments 'fqdn)))) 
    85       (label/ 
    86        (@/ (for "sbi") 
    87            (style "display: none")) 
    88        "検索用語を入力") 
    89       (input/ 
    90        (@/ (type "text") 
    91            (name "q") 
    92            (size "20") 
    93            (maxlength "255") 
    94            (value "") 
    95            (id "sbi"))) 
    96       (label/ 
    97        (@/ (for "sbb") 
    98            (style "display: none")) 
    99        "検索フォームを送信") 
    100       (input/ 
    101        (@/ 
    102         (type "submit") 
    103         (name "sa") 
    104         (value "検索") 
    105         (id "sbb"))))) 
    106     (tr/ 
    107      (td/  
    108       (input/ 
    109        (@/ (type "radio") 
    110            (name "sitesearch") 
    111            (value "") 
    112            (id "ss0"))) 
    113       (label/ 
    114        (@/ (for "ss0") 
    115            (title "ウェブ検索")) 
    116        (font/ 
    117         (@/ (size "-1") 
    118             (color "#000000")) 
    119         "Web"))) 
    120      (td/ 
    121       (input/ 
    122        (@/ (type "radio") 
    123            (name "sitesearch") 
    124            (value (oldtype:get-arguments 'fqdn)) 
    125            (checked "") 
    126            (id "ss1"))) 
    127       (label/ 
    128        (@/ (for "ss1") 
    129            (title (string-append "検索 " (oldtype:get-arguments 'fqdn)))) 
    130        (font/ 
    131         (@/ (size "-1") 
    132             (color "#000000")) 
    133         (oldtype:get-arguments 'fqdn)))))) 
    134    (input/ 
    135     (@/ (type "hidden") (name "client") (value "pub-5721837636688174"))) 
    136    (input/ 
    137     (@/ (type "hidden") (name "forid")  (value "1"))) 
    138    (input/ 
    139     (@/ (type "hidden") (name "ie")     (value "UTF-8"))) 
    140    (input/ 
    141     (@/ (type "hidden") (name "oe")     (value "UTF-8"))) 
    142    (input/ 
    143     (@/ (type "hidden") (name "safe")   (value "active"))) 
    144    (input/ 
    145     (@/ (type "hidden") 
    146         (name "cof") 
    147         (value (format "GALT:#008000;GL:1;DIV:#336699;VLC:663399;AH:center;BGC:FFFFFF;LBGC:336699;ALC:0000FF;LC:0000FF;T:000000;GFNT:0000FF;GIMP:0000FF;LH:38;LW:100;L:http://~a/kahua/oldtype/staticimg/oldtype_logo_small.png;S:http://~a/;LP:1;FORID:1" 
    148                        (oldtype:get-arguments 'fqdn) 
    149                        (oldtype:get-arguments 'fqdn))))) 
    150    (input/ 
    151     (@/ (type "hidden") (name "hl")     (value "ja"))))) 
     46  (form/ (@/ (method "get") 
     47            (action "http://www.google.co.jp/search")) 
     48         (table/ (@/ (bgcolor "#FFFFFF")) 
     49                 (tr/ (@/ (valign "top")) 
     50                      (td/ 
     51                       (a/ (@/ (href "http://www.google.co.jp/")) 
     52                           (img/ (@/ (src "http://www.google.com/logos/Logo_40wht.gif") 
     53                                     (border "0") 
     54                                     (alt "Google") 
     55                                     (width "50") 
     56                                     (align "absmiddle"))))) 
     57                      (td/ 
     58                       (input/ (@/ (type "text") 
     59                                   (name "q") 
     60                                   (size "31") 
     61                                   (maxlength "255") 
     62                                   (value ""))) 
     63                       (input/ (@/ (type "hidden") 
     64                                   (name "ie") 
     65                                   (value "UTF-8"))) 
     66                       (input/ (@/ (type "hidden") 
     67                                   (name "oe") 
     68                                   (value "UTF-8"))) 
     69                       (input/ (@/ (type "hidden") 
     70                                   (name "hl") 
     71                                   (value "ja"))) 
     72                       (input/ (@/ (type "submit") 
     73                                   (name "btnG") 
     74                                   (value "Google 検索"))) 
     75                       (font/ (@/ (size "-1")) 
     76                              (input/ (@/ (type "hidden") 
     77                                          (name "domains") 
     78                                          (value (oldtype:get-arguments 'fqdn)))) 
     79                              (br/) 
     80                              (input/ (@/ (type "radio") 
     81                                          (name "sitesearch") 
     82                                          (value ""))) 
     83                              "WWW を検索" 
     84                              (input/ (@/ (type "radio") 
     85                                          (name "sitesearch") 
     86                                          (value (oldtype:get-arguments 'fqdn)) 
     87                                          (checked "true"))) 
     88                              (string-append (oldtype:get-arguments 'fqdn) 
     89                                             " を検索"))))))) 
    15290 
    15391