ubiquity-mozrepl.lisp

(defun moz-exec (code)
  (with-open-stream (mozrepl (connect "localhost" 4242))
    (read-line mozrepl nil)
    (princ code mozrepl)
    (while (read-char-no-hang mozrepl nil))))

(defun run-ubiquity (in) (interactive "sUbiquity: ")
  (moz-exec (concat "with(opener||self){minimize();restore();"
                    (format nil "gUbiquity.preview('~{\\u~4,'0X~}');"
                            (map 'list 'char-unicode in))
                    "focus()}\n")))
(global-set-key #\C-\, 'run-ubiquity)