home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / hm--html-menus / html-view.el.z / html-view.el
Encoding:
Text File  |  1998-05-21  |  6.6 KB  |  185 lines
  1. ;;; html-view.el --- routines for communicating with a NCSA Mosaic process
  2. ;;;
  3. ;;; Some routines for communicating with a NCSA Mosaic process.
  4. ;;; 
  5. ;;; Copyright (C) 1993 Ron Tapia tapia@hydra.unm.edu
  6. ;;; Copyright (C) 1994, 1995 Heiko Mⁿnkel muenkel@tnt.uni-hannover.de
  7. ;;;
  8. ;;; VERSION: 1.10
  9. ;;; LAST MODIFIED: 20/07/95
  10. ;;; Keywords: comm unix wp help
  11. ;;;
  12. ;;; Adapted to the lemacs: 19.07.1993 Heiko Muenkel 
  13. ;;;               (muenkel@tnt.uni-hannover.de)
  14. ;;; Changed: 19.07.1993 by Heiko Muenkel
  15. ;;; Changed: 28.12.1993 by Heiko Muenkel
  16. ;;;    Changed (signal-process id 30)
  17. ;;;    to    (signal-process id html-sigusr1-signal-value)
  18. ;;;    Addapted the file for the new Mosaic-2.1
  19. ;;;    Thanks to Neal Becker, who has reported this problem.
  20. ;;;    The file now requires the package hm--html-menus.
  21. ;;;    But you can also delete the line (require 'hm--html) and
  22. ;;;    add a line like (setq html-sigusr1-signal-value 30)
  23. ;;; Changed: 10.01.1994 by Heiko Muenkel
  24. ;;;    Fixed a bug.
  25. ;;; Changed: 16.12.1994 by Heiko Mⁿnkel
  26. ;;;     Addapted the file for Mosaic-2.4.
  27. ;;; Changed: 03.02.1995 by Heiko Mⁿnkel
  28. ;;;    The "view-buffer" is now different from the original buffer.
  29. ;;;    So the name of the original buffer isn't change anymore. 
  30. ;;; Changed: 02.04.1995 by Heiko Mⁿnkel
  31. ;;;    Integrated the changes from the XEmacs distribution.
  32. ;;; Changed: 20.07.1995 by Heiko Mⁿnkel
  33. ;;;    Fixed a bug in html-view-goto-url.
  34. ;;; 
  35. ;;; This program is free software; you can redistribute it and/or
  36. ;;; modify it under the terms of the GNU General Public License as
  37. ;;; published by the Free Software Foundation; either version 2, or
  38. ;;; (at your option) any later version.
  39. ;;;
  40. ;;; This program is distributed in the hope that it will be useful,
  41. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  42. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  43. ;;; General Public License for more details.
  44. ;;;
  45. ;;; You should have received a copy of the GNU General Public License
  46. ;;; along with GNU Emacs; see the file COPYING.  If not, write to the
  47. ;;; Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  48. ;;;
  49. ;;; Commentary: 
  50. ;;; To use, just set the value of html-view-mosaic-command to whatever you
  51. ;;; use to run NCSA Mosaic. You may have to set html-view-tmp-file.
  52. ;;; Type M-x html-view-start-mosaic <ret>. 
  53. ;;; Afterwards, view files/buffers with html-view-view-file/
  54. ;;; html-view-view-buffer. There's also a command, of dubious utility,
  55. ;;; for jumping to particular documents: html-view-goto-url
  56. ;;;
  57. ;;; If you have any questions or comments mail to tapia@hydra.unm.edu.
  58.  
  59. (require 'adapt)
  60. (require 'hm--html)
  61.  
  62. (defvar html-view-mosaic-process nil "The NCSA Mosaic Process")
  63.  
  64. (defvar html-view-mosaic-command "mosaic"  
  65.   "The command that runs Mosaic on your system")
  66.  
  67. (defvar html-view-mosaic-tmp-file-prefix "/tmp/Mosaic."
  68.   "Prefix for the temp files, which are used by Mosaic.
  69. For old versions this must be \"/tmp/xmosaic.\".
  70. For new versions it is \"/tmp/Mosaic.\".")
  71.  
  72. (defvar html-view-tmp-file (concat "/tmp/mosaic.html-" 
  73.                    (user-login-name)
  74.                    (emacs-pid))
  75.   "File where buffers are saved for viewing by Mosaic")
  76.  
  77. (defvar html-view-display nil "The display that Mosaic is using.")
  78.  
  79. (defvar html-view-wait-counter 100000
  80.   "*Counter for a wait loop.
  81. The wait loop is beween the start of the Mosaic and the command 
  82. `set-process-sentinel'. If Mosaic don't start, then you must set
  83. this value higher. You can try to set it to a lower number otherwise.")
  84.  
  85. ;;;###autoload
  86. (defun html-view-start-mosaic ()
  87.   "Start Mosaic."
  88.   (interactive)
  89.   (or (stringp html-view-display)
  90.       (call-interactively 'html-view-get-display))
  91.   (or (and (processp html-view-mosaic-process)
  92.        (eq (process-status html-view-mosaic-process) 'run))
  93.       (progn (setq html-view-mosaic-process 
  94.            (start-process "mosaic" "mosaic" 
  95.                   html-view-mosaic-command 
  96.                   "-display" html-view-display))
  97.          (let ((i html-view-wait-counter))
  98.            (while (> i 0)
  99.          (setq i (1- i))))
  100.          (set-process-sentinel html-view-mosaic-process
  101.                    'html-view-mosaic-process-sentinel))))
  102.  
  103. ;;;###autoload
  104. (defun html-view-view-file (filename)
  105.   "View an html file with Mosaic."
  106.   (interactive "fFile to view: ")
  107.   (or (and (processp html-view-mosaic-process)
  108.        (eq (process-status html-view-mosaic-process) 'run))
  109.       (html-view-start-mosaic))
  110.   (if (and (processp html-view-mosaic-process)
  111.        (eq (process-status html-view-mosaic-process) 'run))
  112.       (progn
  113.     (let ((buffer (process-buffer html-view-mosaic-process))
  114.           (id (process-id html-view-mosaic-process))
  115.           (file nil))
  116.       (save-excursion
  117.         (set-buffer buffer)
  118.         (erase-buffer)
  119.         (setq file (format "%s%s" html-view-mosaic-tmp-file-prefix id))
  120.         (set-visited-file-name file)
  121.         ;;      (set-visited-file-name (concat "/tmp/Mosaic."
  122.         ;;                     (number-to-string id)))
  123.         (insert-before-markers "goto\n")
  124.         (insert-before-markers (concat
  125.                     "file://"
  126.                     (expand-file-name filename)))
  127.         (save-buffer)
  128.         (signal-process id html-sigusr1-signal-value))))
  129.     (message "Can't start mosaic process.")))
  130.         
  131. ;;;###autoload
  132. (defun html-view-view-buffer (&optional buffer-to-view)
  133.   "View html buffer with Mosaic.
  134. If BUFFER-TO-VIEW is nil, then the current buffer is used."
  135.   (interactive)
  136.   (or (bufferp buffer-to-view)
  137.       (setq buffer-to-view (current-buffer)))
  138.   (save-excursion
  139.     (find-file html-view-tmp-file)
  140.     (insert-buffer buffer-to-view)
  141.     (write-file html-view-tmp-file)
  142.     (html-view-view-file html-view-tmp-file)))
  143.  
  144. ;;;###autoload
  145. (defun html-view-goto-url (url)
  146.   "Goto an URL in Mosaic."
  147.   (interactive "sURL: ")
  148.   (or (processp html-view-mosaic-process)
  149.   (html-view-start-mosaic))
  150.   (if (processp html-view-mosaic-process)
  151.   (progn
  152.     (let ((buffer (process-buffer html-view-mosaic-process))
  153.       (id (process-id html-view-mosaic-process))
  154.       (file nil))
  155.       (save-excursion
  156.     (set-buffer buffer)
  157.     (erase-buffer)
  158. ;;    (setq file (format "%s%s" "/tmp/xmosaic." id))
  159.     (setq file (format "%s%s" html-view-mosaic-tmp-file-prefix id))
  160.     (set-visited-file-name file)
  161.     ;;      (set-visited-file-name (concat "/tmp/Mosaic."
  162.     ;;                     (number-to-string id)))
  163.     (insert-before-markers "goto\n")
  164.     (insert-before-markers url)
  165.     (save-buffer)
  166.     (signal-process id html-sigusr1-signal-value))))
  167.   (message "Can't start mosaic process.")))
  168.  
  169. ;;;###autoload
  170. (defun html-view-get-display (display)
  171.   "Get the display for Mosaic."
  172.   (interactive "sDisplay: ")
  173.   (setq html-view-display display))
  174.  
  175.  
  176. (defun html-view-mosaic-process-sentinel (proc, event)
  177.   (cond ((or (string-match "exited abnormally with code" event)
  178.          (string-match "finished" event))
  179.      (message event)
  180.      (setq html-view-mosaic-process nil))
  181.     (t (message event))))
  182.     
  183.      
  184. (provide 'html-view)
  185.