1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
; Arguments to plugin-register:
; 1. Plaintext description
; 2. Filename extension
; 3. Command string
; To avoid having the application pop up on the screen before it is
; reparented, add "-geometry +4000+4000" or some other hideously
; remote location. This works for most civilized applications and
; window managers; exceptions are Gtk and MWM.
; For plugins handled by the dummy plugin, the geometry option
; should be added in dummy.scm, not here.
(plugin-register "Siag" "siag"
"siag -plugin -gridonly -geometry 400x200 %s")
(plugin-register "Pathetic Writer" "pw"
"pw -plugin -geometry 400x300 %s")
(plugin-register "Egon Animator" "egon"
"egon -plugin -geometry 400x200 %s")
(define (plugin-register-image desc ext)
(plugin-register desc ext
(string-append SIAGHOME "/plugins/image -geometry +4000+4000 %s")))
(plugin-register-image "GIF image" "gif")
(plugin-register-image "Jpeg image" "jpg")
(plugin-register-image "Jpeg image" "jpeg")
(plugin-register-image "Tagged Image File" "tif")
(plugin-register-image "Tagged Image File" "tiff")
(plugin-register-image "Portable Network Graphics" "png")
(plugin-register-image "BMP image" "bmp")
(plugin-register-image "X pixmap" "xpm")
(plugin-register-image "Portable pixmap" "ppm")
(plugin-register-image "Portable bitmap" "pbm")
(plugin-register-image "Portable graymap" "pgm")
(plugin-register-image "Portable anymap" "pnm")
(plugin-register-image "X bitmap" "xbm")
(plugin-register-image "X window dump" "xwd")
(plugin-register "Run" "run"
(string-append SIAGHOME "/plugins/dummy %s"))
(plugin-register "HTML" "html"
(string-append SIAGHOME "/plugins/dummy %s"))
(plugin-register "Hello" "hello"
(string-append SIAGHOME "/plugins/hello %s"))
|
