diff options
Diffstat (limited to 'emacs.d/nxhtml/related/moz.el')
| -rw-r--r-- | emacs.d/nxhtml/related/moz.el | 289 |
1 files changed, 289 insertions, 0 deletions
diff --git a/emacs.d/nxhtml/related/moz.el b/emacs.d/nxhtml/related/moz.el new file mode 100644 index 0000000..e910286 --- /dev/null +++ b/emacs.d/nxhtml/related/moz.el @@ -0,0 +1,289 @@ +;;; moz.el --- Lets current buffer interact with inferior mozilla. + +;; URL: http://github.com/bard/mozrepl/raw/master/chrome/content/moz.el + +;; Copyright (C) 2006 by Massimiliano Mirra +;; +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2 of the License, or +;; (at your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program; if not, write to the Free Software +;; Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA +;; +;; Author: Massimiliano Mirra, <bard [at] hyperstruct [dot] net> +;; Contributors: +;; - Lennart Borgman + +;;; Commentary: +;; +;; This file implements communication with Firefox via MozRepl +;; (http://hyperstruct.net/projects/mozrepl). It is a slightly +;; modified version of the file moz.el that comes with MozLab. To use +;; it you have to install the MozRepl addon in Firefox. +;; +;; This file contains +;; +;; * a major mode for direct interaction in a buffer (as with +;; telnet) with MozRepl, `inferior-moz-mode'. +;; * a minor mode for sending code portions or whole files from +;; other buffers to MozRepl, `moz-minor-mode'. +;; +;; Assuming you want to use javascript-mode to edit Javascript files, +;; enter the following in your .emacs initialization file (from Emacs +;; integration in the help text): +;; +;; (add-to-list 'auto-mode-alist '("\\.js$" . javascript-mode)) +;; (autoload 'inferior-moz-mode "moz" "MozRepl Inferior Mode" t) +;; (autoload 'moz-minor-mode "moz" "MozRepl Minor Mode" t) +;; (add-hook 'javascript-mode-hook 'javascript-moz-setup) +;; (defun javascript-moz-setup () (moz-minor-mode 1)) +;; +;; Replace javascript-mode above with the name of your favorite +;; javascript mode. +;; +;; If you got this with nXhtml the setup above is already done for +;; you. +;; +;; *Note 1* You have to start the MozRepl server in Firefox (or +;; whatever Mozilla browser you use). From the menus do +;; +;; Tools - MozRepl - Start +;; +;; *Note 2* For clearness and brevity the documentation says Firefox +;; where the correct term should rather be "your Mozilla web +;; browser". + +;;; Change log: +;; +;; 2008-07-20: Lennart Borgman +;; - Add `moz-minor-mode-map'. +;; - Add `inferior-moz-insert-moz-repl'. +;; - Add `inferior-moz-mode-map'. +;; - Add doc strings to interactive functions. +;; - Make minor enhancements to documentation etc. +;; - Change Mozilla to Firefox/MozRepl for clarity and brevity. +;; - Add error handling when starting MozRepl. + +;;; Code: + +(require 'comint) +(require 'cc-cmds) + +;; Maybe fix-me: C-c control-char are reserved for major modes. But +;; this minor mode is used in only one major mode (or one family of +;; major modes) so it complies I think ... +(defvar moz-minor-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "\C-c\C-s" 'run-mozilla) + (define-key map "\C-\M-x" 'moz-send-defun) + (define-key map "\C-c\C-c" 'moz-send-defun-and-go) + (define-key map "\C-c\C-r" 'moz-send-region) + (define-key map "\C-c\C-l" 'moz-save-buffer-and-send) + map)) + +;;;###autoload +(define-minor-mode moz-minor-mode + "MozRepl minor mode for interaction with Firefox. +With no argument, this command toggles the mode. +Non-null prefix argument turns on the mode. +Null prefix argument turns off the mode. + +When this minor mode is enabled, some commands become available +to send current code area \(as understood by c-mark-function) or +region or buffer to an inferior MozRepl process (which will be +started as needed). + +The following keys are bound in this minor mode: + +\\{moz-minor-mode-map}" + nil + " Moz" + :keymap moz-minor-mode-map + :group 'moz) + +(defalias 'run-mozilla 'inferior-moz-switch-to-mozilla) + +(defvar moz-repl-name "repl" + "The current name of the repl.") + +(defvar moz-input-separator "\n--end-remote-input\n") + +(defvar moz-repl-host "localhost") + +(defvar moz-repl-port 4242) + +(defvar moz-temporary-file nil) + +(defun moz-temporary-file () + (if (and moz-temporary-file + (file-readable-p moz-temporary-file)) + moz-temporary-file + (setq moz-temporary-file (make-temp-file "emacs-mozrepl")))) + +(defun moz-send-region (start end) + "Send the region to Firefox via MozRepl." + (interactive "r") + (comint-send-string (inferior-moz-process) + (concat moz-repl-name ".pushenv('printPrompt', 'inputMode'); " + moz-repl-name ".setenv('printPrompt', false); " + moz-repl-name ".setenv('inputMode', 'multiline'); " + "undefined; \n")) + ;; Give the previous line a chance to be evaluated on its own. If + ;; it gets concatenated to the following ones, we are doomed. + (sleep-for 0 1) + (comint-send-region (inferior-moz-process) + start end) + (comint-send-string (inferior-moz-process) + "\n--end-remote-input\n") + (comint-send-string (inferior-moz-process) + (concat moz-repl-name ".popenv('inputMode', 'printPrompt'); " + "undefined; \n")) + (comint-send-string (inferior-moz-process) + "\n--end-remote-input\n") + (display-buffer (process-buffer (inferior-moz-process)))) + +(defun moz-send-defun () + "Send the current function to Firefox via MozRepl. +Curent function is the one recognized by c-mark-function." + (interactive) + (save-excursion + (c-mark-function) + (moz-send-region (point) (mark)))) + +(defun moz-send-defun-and-go () + "Send the current function to Firefox via MozRepl. +Also switch to the interaction buffer." + (interactive) + (moz-send-defun) + (inferior-moz-switch-to-mozilla nil)) + +(defun moz-save-buffer-and-send () + "Save the current buffer and load it in Firefox via MozRepl." + (interactive) + (save-buffer) + (comint-send-string (inferior-moz-process) + (concat moz-repl-name ".pushenv('printPrompt', 'inputMode'); " + moz-repl-name ".setenv('inputMode', 'line'); " + moz-repl-name ".setenv('printPrompt', false); undefined; ")) + (comint-send-string (inferior-moz-process) + (concat moz-repl-name ".load('file://localhost/" (buffer-file-name) "');\n" + moz-repl-name ".popenv('inputMode', 'printPrompt'); undefined;\n")) + (display-buffer (process-buffer (inferior-moz-process)))) + +;;; Inferior Mode + +(defvar inferior-moz-buffer nil + "The buffer in which the inferior process is running.") + +(defun inferior-moz-insert-moz-repl () + "Insert value of `moz-repl-name' and a dot (.)." + (interactive) (insert moz-repl-name ".")) + +(defvar inferior-moz-mode-map + (let ((map (make-sparse-keymap))) + ;; Note: changed from C-c c which is reserved for users. + (define-key map "\C-c\C-c" 'inferior-moz-insert-moz-repl) + map)) + +;;;###autoload +(define-derived-mode inferior-moz-mode comint-mode "Inf-MozRepl" + "Major mode for interacting with Firefox via MozRepl." + (setq comint-input-sender 'inferior-moz-input-sender) + (add-hook 'comint-output-filter-functions 'inferior-moz-track-repl-name nil t)) + +(defun inferior-moz-track-repl-name (comint-output) + (save-match-data + (when (string-match "\\(\\w+\\)> $" comint-output) + (setq moz-repl-name (match-string 1 comint-output))))) + +(defun inferior-moz-self-insert-or-repl-name () + (interactive) + (if (looking-back "\\(\\w+\\)> $") + (insert moz-repl-name ".") + (insert last-command-event))) + +(defun inferior-moz-input-sender (proc string) + "Custom function to send input with comint-send-input. +Instead of sending input and newline separately like in +comint-simple-send, here we *first* concatenate input and +newline, then send it all together. This prevents newline to be +interpreted on its own." + (comint-send-string proc (concat string "\n"))) + +(defun inferior-moz-switch-to-mozilla (arg) + "Switch to the inferior MozRepl buffer. +Create the buffer and start the MozRepl process and connect to +Firefox if needed. + +See also `inferior-moz-start-process'." + (interactive "P") + (when arg + (setq moz-repl-host (read-string "Host: " "localhost")) + (setq moz-repl-port (read-number "Port: " 4242))) + (pop-to-buffer (process-buffer (inferior-moz-process))) + (goto-char (process-mark (inferior-moz-process)))) + +(defun inferior-moz-process () + "Return inferior MozRepl process. Start it if necessary. +See also `inferior-moz-start-process'." + (or (if (buffer-live-p inferior-moz-buffer) + (get-buffer-process inferior-moz-buffer)) + (progn + (inferior-moz-start-process) + (inferior-moz-process)))) + +(defvar mozrepl-home-page "http://hyperstruct.net/projects/mozrepl") + +(defun inferior-moz-start-process () + "Start an inferior Mozrepl process and connect to Firefox. +It runs the hook `inferior-moz-hook' after starting the process +and setting up the inferior Firefox buffer. + +Note that you have to start the MozRepl server from Firefox." + (interactive) + (condition-case err + (progn + (setq inferior-moz-buffer + (apply 'make-comint "MozRepl" (cons moz-repl-host moz-repl-port) nil nil)) + (sleep-for 0 100) + (with-current-buffer inferior-moz-buffer + (inferior-moz-mode) + (run-hooks 'inferior-moz-hook))) + (file-error + (with-output-to-temp-buffer (help-buffer) + (help-setup-xref (list #'describe-function 'inferior-moz-start-process) (interactive-p)) + (with-current-buffer (help-buffer) + (insert "Can't start MozRepl, the error message was:\n\n " + (error-message-string err) + "\n" + "\nA possible reason is that you have not installed" + "\nthe MozRepl add-on to Firefox or that you have not" + "\nstarted it. You start it from the menus in Firefox:" + "\n\n Tools / MozRepl / Start" + "\n" + "\nSee ") + (insert-text-button + "MozRepl home page" + 'action (lambda (button) + (browse-url mozrepl-home-page)) + 'help-echo mozrepl-home-page + 'face 'button) + (insert + " for more information." + "\n" + "\nMozRepl is also available directly from Firefox add-on" + "\npages, but is updated less frequently there.") + )) + (error "Can't start MozRepl")))) + +(provide 'moz) + +;;; moz.el ends here |