diff options
Diffstat (limited to 'emacs.d/nxhtml/related/mozadd.el')
| -rw-r--r-- | emacs.d/nxhtml/related/mozadd.el | 369 |
1 files changed, 369 insertions, 0 deletions
diff --git a/emacs.d/nxhtml/related/mozadd.el b/emacs.d/nxhtml/related/mozadd.el new file mode 100644 index 0000000..a303fe4 --- /dev/null +++ b/emacs.d/nxhtml/related/mozadd.el @@ -0,0 +1,369 @@ +;;; mozadd.el --- Additional functionality for MozRepl +;; +;; Author: Lennart Borgman (lennart O borgman A gmail O com) +;; Created: 2009-07-22 Wed +(defconst mozadd:version "0.2") ;; Version: +;; Last-Updated: 2009-08-04 Tue +;; URL: +;; Keywords: +;; Compatibility: +;; +;; Features that might be required by this library: +;; + ;; `cc-cmds', `cc-defs', `cc-engine', `cc-vars', `comint', `json', + ;; `moz', `regexp-opt', `ring'. +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Commentary: +;; +;; Live tracking of editing changes, see +;; `mozadd-mirror-mode' +;; `mozadd-refresh-edited-on-save-mode' +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Change log: +;; +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;; 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 3, 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; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth +;; Floor, Boston, MA 02110-1301, USA. +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Code: + +(require 'moz) +(require 'json) + +(defun mozadd-warning (format-string &rest args) + (let ((str (apply 'format format-string args))) + (message "%s" (propertize str 'face 'secondary-selection)))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Refresh Firefox after save etc + +;; Partly after an idea on EmacsWiki + +(defvar mozadd-edited-buffer nil) +(setq mozadd-edited-buffer nil) + +;;;###autoload +(define-minor-mode mozadd-refresh-edited-on-save-mode + "Refresh mozadd edited file in Firefox when saving file. +The mozadd edited file is the file in the last buffer visited in +`mozadd-mirror-mode'. + +You can use this for example when you edit CSS files. + +The mozadd edited file must be shown in Firefox and visible." + :lighter "MozRefresh" + (if mozadd-refresh-edited-on-save-mode + (add-hook 'after-save-hook 'mozadd-queue-reload-mozilla-edited-file nil t) + (remove-hook 'after-save-hook 'mozadd-queue-reload-mozilla-edited-file t))) +(put 'mozadd-refresh-edited-on-save-mode 'permanent-local t) + +;;;###autoload +(define-globalized-minor-mode global-mozadd-refresh-edited-on-save-mode + mozadd-refresh-edited-on-save-mode + (lambda () + (when (or (derived-mode-p 'css-mode) + (mozadd-html-buffer-file-p)) + (mozadd-refresh-edited-on-save-mode 1)))) + +(defun mozadd-queue-reload-mozilla-edited-file () + "Reload edited file." + (when (buffer-live-p mozadd-edited-buffer) + (if (buffer-modified-p mozadd-edited-buffer) + (mozadd-warning "Mozadd: Edited buffer %s is not saved, can't reload browser." + (buffer-name mozadd-edited-buffer)) + (mozadd-add-queue-get-mirror-location) + (mozadd-add-task-1 'mozadd-send-refresh-edited-to-mozilla)))) + +(defun mozadd-send-refresh-edited-to-mozilla () + "Update the remote mozrepl instance" + (with-current-buffer mozadd-edited-buffer + (if (not (mozadd-edited-file-is-shown)) + (mozadd-warning "Mozadd: Edited buffer %s is not shown, can't reload browser." + (buffer-name mozadd-edited-buffer)) + (comint-send-string (inferior-moz-process) + "setTimeout(BrowserReload(), \"1000\");"))) + (mozadd-exec-next)) + + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; Mirror html buffer in Firefox + +;; Partly after an idea on +;; http://people.internetconnection.net/2009/02/interactive-html-development-in-emacs/ + +;; Fun, it kind of works, but is perhaps totally useless .... - slow +;; and maybe scrolling... - but the file I am testing with have 3000 +;; lines... + +;; Fix-me: How do you get the currently shown page in Firefox? + +(defun mozadd-perhaps-start () + "Start if MozRepl if not running. Return message if not ok." + (unless (buffer-live-p inferior-moz-buffer) + (condition-case err + (progn + (inferior-moz-start-process) + nil) + (error (error-message-string err))))) + +(defvar mozadd-mirror-location nil) +(make-variable-buffer-local 'mozadd-mirror-location) +(put 'mozadd-mirror-location 'permanent-local t) + +(defvar mozadd-initial-mirror-location nil) +(make-variable-buffer-local 'mozadd-initial-mirror-location) +(put 'mozadd-initial-mirror-location 'permanent-local t) + +;;(mozadd-get-comint-string-part "\"hi\" there") +(defun mozadd-get-comint-string-part (comint-output) + (save-match-data + (if (string-match "^\".*?\"" comint-output) + (match-string 0 comint-output) + comint-output))) + +(defun mozadd-get-initial-mirror-location (comint-output) + ;;(message "mozadd-get-initial-mirror-location %S" comint-output) + (with-current-buffer mozadd-edited-buffer + (setq mozadd-initial-mirror-location (mozadd-get-comint-string-part comint-output))) + (mozadd-exec-next) + comint-output) + +(defun mozadd-get-mirror-location (comint-output) + ;;(message "mozadd-get-mirror-location %S" comint-output) + (with-current-buffer mozadd-edited-buffer + (setq mozadd-mirror-location (mozadd-get-comint-string-part comint-output))) + (mozadd-exec-next) + comint-output) + +(defun mozadd-add-queue-get-mirror-location () + (mozadd-add-task "content.location.href" 'mozadd-get-mirror-location)) + +(defun mozadd-skip-output-until-prompt (comint-output) + ;;(message "mozadd-skip-output-until-prompt %S" comint-output) + (if (not (string-match-p "\\(\\w+\\)> $" comint-output)) + "" + ;;(message "done recieve %s" (current-time-string)) + (mozadd-exec-next) + comint-output + "" + )) + +(defun mozadd-queue-send-buffer-content-to-mozilla (buffer) + (mozadd-add-queue-get-mirror-location) + (setq mozadd-edited-buffer buffer) + (mozadd-add-task-1 'mozadd-send-buffer-content-to-mozilla)) + +(defun mozadd-edited-file-is-shown () + (with-current-buffer mozadd-edited-buffer + (string= mozadd-mirror-location mozadd-initial-mirror-location))) + +(defvar mozadd-xml-path-outline-style "2px solid red") +(defun mozadd-send-buffer-content-to-mozilla () + "Update the remote mozrepl instance" + (with-current-buffer mozadd-edited-buffer + (if (mozadd-edited-file-is-shown) + (mozadd-requeue-me-as-task + (concat "content.document.body.innerHTML=" + (json-encode + (save-restriction + (widen) + (let ((where-points nil) + (str "") + (p1 (point-min)) + p2) + ;; If nxml-where-mode is on add corresponding outline style. + (when (and (boundp 'nxml-where-mode) nxml-where-mode) + (mapc (lambda (ovl) + (when (overlay-get ovl 'nxml-where) + (when (/= ?/ (1+ (char-after (overlay-start ovl)))) + (push (1- (overlay-end ovl)) where-points)))) + (overlays-in (point-min) (point-max))) + (setq where-points (sort where-points '<))) + (dolist (p2 where-points) + (setq str (concat str + (buffer-substring-no-properties p1 + p2))) + (setq str (concat str + " style=\"outline: " + mozadd-xml-path-outline-style + "\"")) + (setq p1 p2) + ) + (setq str (concat str + (buffer-substring-no-properties p1 + (point-max)))) + str)) + ) + ";") + 'mozadd-skip-output-until-prompt) + (mozadd-skip-current-task)) + ;; Timer to avoid looping + (run-with-idle-timer 0 nil 'mozadd-maybe-exec-next) + )) + +(defvar mozadd-current-task nil) +(setq mozadd-current-task nil) + +(defvar mozadd-task-queue nil) +(setq mozadd-task-queue nil) +;;(mozadd-add-task "content.location.href" 'mozadd-get-initial-mirror-location) +;;(mozadd-add-task "hi" 1) +;;(mozadd-add-task "hm" 2) + +(defun mozadd-clear-exec-queue () + (setq mozadd-current-task nil) + (setq mozadd-task-queue nil) + (when (buffer-live-p inferior-moz-buffer) + (with-current-buffer inferior-moz-buffer + (dolist (fun (buffer-local-value 'comint-preoutput-filter-functions (current-buffer))) + (remove-hook 'comint-preoutput-filter-functions fun t))))) + +(defun mozadd-add-task (input task) + (mozadd-add-task-1 (list input task))) + +(defun mozadd-add-task-1 (task) + (setq mozadd-task-queue (cons task mozadd-task-queue)) + (setq mozadd-task-queue (reverse mozadd-task-queue)) + ;;(message "add-task: mozadd-task-queue=%S, current=%s" mozadd-task-queue mozadd-current-task) + (mozadd-maybe-exec-next)) + +(defun mozadd-maybe-exec-next () + ;;(message "mozadd-maybe-exec-next, current=%s" mozadd-current-task) + (unless mozadd-current-task + (mozadd-exec-next))) + +(defun mozadd-exec-next () + (when mozadd-current-task + (let* ((old-task mozadd-current-task) ;;(pop mozadd-task-queue)) + (old-filter (when (listp old-task) (nth 1 old-task)))) + (when (and old-filter (buffer-live-p inferior-moz-buffer)) + (with-current-buffer inferior-moz-buffer + (remove-hook 'comint-preoutput-filter-functions old-filter t))))) + (setq mozadd-current-task nil) + (when mozadd-task-queue + (let* ((this (pop mozadd-task-queue)) + (input (when (listp this) (nth 0 this))) + (task (when (listp this) (nth 1 this))) + ) + (setq mozadd-current-task this) + ;;(message "EXEC: %s" this) + (if (not (listp this)) + (funcall this) + (when (buffer-live-p inferior-moz-buffer) + (with-current-buffer inferior-moz-buffer + (add-hook 'comint-preoutput-filter-functions task nil t))) + (comint-send-string (inferior-moz-process) input))))) + +(defun mozadd-skip-current-task () + ;;(message "mozadd-skip-current-task") + ;;(pop mozadd-task-queue) + (setq mozadd-current-task nil)) + +(defun mozadd-requeue-me-as-task (input task) + (mozadd-skip-current-task) + ;;(message "mozadd-requeue-me-as-task %S %S" input task) + (setq mozadd-task-queue (cons (list input task) mozadd-task-queue))) + +(defcustom mozadd-browseable-file-extensions + '("html" "htm" "xhtml") + "File extensions possibly viewable in a web browser." + :type '(repeat (string :tag "File extension (without leading dot)")) + :group 'mozadd) + +(defun mozadd-html-buffer-file-p () + "Return non-nil if buffer file is viewable in a web browser." + (when (buffer-file-name) + (member (file-name-extension (buffer-file-name)) + mozadd-browseable-file-extensions))) + +;;;###autoload +(define-minor-mode mozadd-mirror-mode + "Mirror content of current file buffer immediately in Firefox. +When you turn on this mode the file will be opened in Firefox. +Every change you make in the buffer will trigger a redraw in +Firefox - regardless of if you save the file or not. + +For the mirroring to work the edited file must be shown in +Firefox and visible. + +If `nxml-where-mode' is on the marks will also be shown in +Firefox as CSS outline style. You can customize the style +through the option `mozadd-xml-path-outline-style'. + +See also `mozadd-refresh-edited-on-save-mode'." + nil + :lighter " MozMirror" + :group 'mozadd + (if mozadd-mirror-mode + (unless (catch 'ok + (unless (mozadd-html-buffer-file-p) + (mozadd-warning "You can only mirror html file buffers") + (throw 'ok nil)) + (when (buffer-modified-p) + (mozadd-warning "Please save buffer first") + (throw 'ok nil)) + (let ((msg (mozadd-perhaps-start))) + (when msg + (mozadd-warning msg) + (throw 'ok nil))) + (mozadd-clear-exec-queue) + (setq mozadd-edited-buffer (current-buffer)) + (mozadd-add-task (concat "content.location.href = " + "\"file:///" (buffer-file-name) "\";") + 'mozadd-get-initial-mirror-location) + (add-hook 'after-change-functions 'mozadd-update-mozilla t t) + (add-hook 'nxhtml-where-hook 'mozadd-update-mozilla t t) + (add-hook 'post-command-hook 'mozadd-edited-buffer-post-command) + t) + (setq mozadd-mirror-mode nil)) + (setq mozadd-edited-buffer nil) + (remove-hook 'post-command-hook 'mozadd-edited-buffer-post-command) + (remove-hook 'nxhtml-where-hook 'mozadd-update-mozilla t) + (remove-hook 'after-change-functions 'mozadd-update-mozilla t))) +(put 'mozadd-mirror-mode 'permanent-local t) + +;;;###autoload +(define-globalized-minor-mode global-mozadd-mirror-mode mozadd-mirror-mode + (lambda () + (when (mozadd-html-buffer-file-p) + (mozadd-mirror-mode 1)))) + +(defun mozadd-edited-buffer-post-command () + "Check if we are in a new edited buffer." + (when mozadd-mirror-mode + (setq mozadd-edited-buffer (current-buffer)))) + + +(defvar mozadd-buffer-content-to-mozilla-timer nil) + +(defun mozadd-update-mozilla (&rest ignored) + (when (timerp mozadd-buffer-content-to-mozilla-timer) + (cancel-timer mozadd-buffer-content-to-mozilla-timer)) + (setq mozadd-buffer-content-to-mozilla-timer + (run-with-idle-timer 1 nil 'mozadd-queue-send-buffer-content-to-mozilla (current-buffer)))) +(put 'mozadd-update-mozilla 'permanent-local-hook t) + + +(provide 'mozadd) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; mozadd.el ends here |