home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_gimp.idb / usr / freeware / share / gimp / scripts / web-browser.scm.z / web-browser.scm
Encoding:
Text File  |  1999-07-21  |  4.8 KB  |  139 lines
  1. ; web-browser.scm -- install bookmarks
  2. ; Copyright (c) 1997 Misha Dynin <misha@xcf.berkeley.edu>
  3. ; Note: script-fu must be able to handle zero argument procedures to
  4. ;       process this file!
  5. ;
  6. ; For more information see webbrowser.readme or
  7. ;   http://www.xcf.berkeley.edu/~misha/gimp/
  8. ;
  9. ; This program is free software; you can redistribute it and/or modify
  10. ; it under the terms of the GNU General Public License as published by
  11. ; the Free Software Foundation; either version 2 of the License, or
  12. ; (at your option) any later version.
  13. ;
  14. ; This program is distributed in the hope that it will be useful,
  15. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17. ; GNU General Public License for more details.
  18. ;
  19. ; You should have received a copy of the GNU General Public License
  20. ; along with this program; if not, write to the Free Software
  21. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22.  
  23. (set! web-browser-new-window 0)
  24.  
  25. (define (script-fu-bookmark url)
  26.   (extension-web-browser 1 url web-browser-new-window))
  27.  
  28. (define (bookmark-register proc menu help)
  29.   (script-fu-register proc menu help
  30.             "Misha Dynin <misha@xcf.berkeley.edu>"
  31.             "Misha Dynin"
  32.             "1997"
  33.             ""))
  34.  
  35. (define (script-fu-bookmark-1)
  36.     (script-fu-bookmark "http://www.gimp.org/the_gimp.html"))
  37.  
  38. (bookmark-register  "script-fu-bookmark-1"
  39.             "<Toolbox>/Xtns/Web Browser/GIMP.ORG/The GIMP"
  40.             "Link to http://www.gimp.org/the_gimp.html")
  41.  
  42. (define (script-fu-bookmark-2)
  43.     (script-fu-bookmark "http://www.gimp.org/docs.html"))
  44.  
  45. (bookmark-register  "script-fu-bookmark-2"
  46.             "<Toolbox>/Xtns/Web Browser/GIMP.ORG/Documenation"
  47.             "Link to http://www.gimp.org/docs.html")
  48.  
  49. (define (script-fu-bookmark-3)
  50.     (script-fu-bookmark "http://www.gimp.org/mailing_list.html"))
  51.  
  52. (bookmark-register  "script-fu-bookmark-3"
  53.             "<Toolbox>/Xtns/Web Browser/GIMP.ORG/Mailing Lists"
  54.             "Link to http://www.gimp.org/mailing_list.html")
  55.  
  56. (define (script-fu-bookmark-4)
  57.     (script-fu-bookmark "http://www.gimp.org/data.html"))
  58.  
  59. (bookmark-register  "script-fu-bookmark-4"
  60.             "<Toolbox>/Xtns/Web Browser/GIMP.ORG/Resources"
  61.             "Link to http://www.gimp.org/data.html")
  62.  
  63. (define (script-fu-bookmark-5)
  64.     (script-fu-bookmark "http://www.gimp.org/download.html"))
  65.  
  66. (bookmark-register  "script-fu-bookmark-5"
  67.             "<Toolbox>/Xtns/Web Browser/GIMP.ORG/Download"
  68.             "Link to http://www.gimp.org/download.html")
  69.  
  70. (define (script-fu-bookmark-6)
  71.     (script-fu-bookmark "http://www.gimp.org/art.html"))
  72.  
  73. (bookmark-register  "script-fu-bookmark-6"
  74.             "<Toolbox>/Xtns/Web Browser/GIMP.ORG/GIMP Art"
  75.             "Link to http://www.gimp.org/art.html")
  76.  
  77. (define (script-fu-bookmark-7)
  78.     (script-fu-bookmark "http://www.gimp.org/links.html"))
  79.  
  80. (bookmark-register  "script-fu-bookmark-7"
  81.             "<Toolbox>/Xtns/Web Browser/GIMP.ORG/Links"
  82.             "Link to http://www.gimp.org/links.html")
  83.  
  84. (define (script-fu-bookmark-8)
  85.     (script-fu-bookmark "http://www.gimp.org/gtk/"))
  86.  
  87. (bookmark-register  "script-fu-bookmark-8"
  88.             "<Toolbox>/Xtns/Web Browser/GIMP.ORG/GTK"
  89.             "Link to http://www.gimp.org/gtk/")
  90.  
  91. (define (script-fu-bookmark-10)
  92.     (script-fu-bookmark "http://xach.dorknet.com/gimp/news/"))
  93.  
  94. (bookmark-register  "script-fu-bookmark-10"
  95.             "<Toolbox>/Xtns/Web Browser/GIMP News"
  96.             "Link to http://xach.dorknet.com/gimp/news/")
  97.  
  98. (define (script-fu-bookmark-11)
  99.     (script-fu-bookmark "http://gimp.foebud.org/registry/"))
  100.  
  101. (bookmark-register  "script-fu-bookmark-11"
  102.             "<Toolbox>/Xtns/Web Browser/Plug-In Registry"
  103.             "Link to http://gimp.foebud.org/registry/")
  104.  
  105. (define (script-fu-bookmark-12)
  106.     (script-fu-bookmark "http://www.rru.com/~meo/gimp/faq-user.html"))
  107.  
  108. (bookmark-register  "script-fu-bookmark-12"
  109.             "<Toolbox>/Xtns/Web Browser/User FAQ"
  110.             "Link to http://www.rru.com/~meo/gimp/faq-user.html")
  111.  
  112. (define (script-fu-bookmark-13)
  113.     (script-fu-bookmark "http://www.rru.com/~meo/gimp/faq-dev.html"))
  114.  
  115. (bookmark-register  "script-fu-bookmark-13"
  116.             "<Toolbox>/Xtns/Web Browser/Developer FAQ"
  117.             "Link to http://www.rru.com/~meo/gimp/faq-dev.html")
  118.  
  119. (define (script-fu-bookmark-14)
  120.     (script-fu-bookmark "http://manual.gimp.org/"))
  121.  
  122. (bookmark-register  "script-fu-bookmark-14"
  123.             "<Toolbox>/Xtns/Web Browser/GIMP Manual"
  124.             "Link to http://manual.gimp.org/")
  125.  
  126. (define (script-fu-bookmark-15)
  127.     (script-fu-bookmark "http://abattoir.cc.ndsu.nodak.edu/~nem/gimp/tuts/"))
  128.  
  129. (bookmark-register  "script-fu-bookmark-15"
  130.             "<Toolbox>/Xtns/Web Browser/GIMP Tutorials"
  131.             "Link to http://abattoir.cc.ndsu.nodak.edu/~nem/gimp/tuts/")
  132.  
  133. (define (script-fu-bookmark-16)
  134.     (script-fu-bookmark "http://www.wilberworks.com/bugs.cgi"))
  135.  
  136. (bookmark-register  "script-fu-bookmark-16"
  137.             "<Toolbox>/Xtns/Web Browser/GIMP Bugs"
  138.             "Link to http://www.wilberworks.com/bugs.cgi")
  139.