Commits

Anonymous committed ebaa95c

(hpath:display-where): Customizable.
(hpath:find-alist): Added eog, oowriter, oocalc

Comments (0)

Files changed (1)

     other-frame             - display in another, possibly existing, frame
     other-frame-one-window  - display in another frame, deleting other windows.")
 
-(defvar hpath:display-where 'other-window
-  "Symbol specifying the default method to use to display Hyperbole link referents.
-See documentation of `hpath:display-where-alist' for valid values.")
-
 (defvar hpath:display-where-alist
   (list
    (list 'this-window 'find-file)
     other-frame             - display in another, possibly existing, frame
     other-frame-one-window  - display in another frame, deleting other windows.")
 
+(defcustom hpath:display-where 'other-window
+  "Symbol specifying the default method to use to display Hyperbole link referents.
+See documentation of `hpath:display-where-alist' for valid values."
+  :group 'hyperbole
+  :type (cons 'choice 
+	      (mapcar (function (lambda (x) (list 'const (car x)))) hpath:display-where-alist)))
+
 ;; `hyperb:window-system' variable from "hversion.el" must be defined
 ;; prior to this variable definition.
 ;;
 		      ("\\.dvi$"  . "xdvi")
 		      ("\\.pdf$"  . ("xpdf" "acroread"))
 		      ("\\.ps\\.g?[zZ]$" . "zcat %s | ghostview -")
-		      ("\\.\\(gif\\|tiff?\\|xpm\\|xbm\\|xwd\\|pm\\|pbm\\|jpe?g\\)"  . "xv")
+		      ("\\.\\(gif\\|tiff?\\|xpm\\|xbm\\|xwd\\|pm\\|pbm\\|jpe?g\\)"  . ("xv" "eog"))
 		      ("\\.ra?s$" . "snapshot -l")
 		      ("\\.\\(fm\\|frame\\|mif\\)$" .
 		       "frame.pl -vn -preader -c -f%s") ;; was "msgfm_driver"
-		      ("\\.\\(doc\\|boo\\)$" . "ileaf")
+		      ("\\.\\(doc\\|boo\\|stw\\)$" . ("ileaf" "oowriter"))
+		      ("\\.\\(xls\\|sxc\\|csv\\)$" . "oocalc")
 		      )))
     (if (memq window-system '(dps ns))
 	nextstep-suffixes