Paste: misc/fuel/fuel-listener.el

Author: alise
Mode: lisp
Date: Wed, 1 Sep 2010 18:53:03
Plain Text | 
;; Replace fuel-listener--connect-process with:

(defun fuel-listener--connect-process (port)
  (with-current-buffer (fuel-listener--buffer)
    (let ((process (get-buffer-process (current-buffer))))
      (when (not process)
        (message "Connecting to remote listener ...")
        (make-comint-in-buffer "fuel listener" (current-buffer)
                               (cons "localhost" port))
        (fuel-listener--wait-for-prompt 10000)
        (fuel-con--setup-connection (current-buffer))))))

Annotation: .emacs

Author: alise
Mode: lisp
Date: Wed, 1 Sep 2010 18:53:41
Plain Text | 
(load-file "/PATH/TO/FACTOR/misc/fuel/fu.el")
(add-hook 'factor-mode-hook 'connect-to-factor)
(server-start)

Annotation: edit-in-emacs

Author: alise
Mode: shellscript
Date: Wed, 1 Sep 2010 18:55:01
Plain Text | 
# make sure it's +x

#!/usr/bin/env bash
export DISPLAY=:0
tempuid=$(id -u)
if [ ! -e "/tmp/emacs$tempuid/server" ]; then
    emacs & disown
    while [ ! -e "/tmp/emacs$tempuid/server" ]; do sleep .25; done
fi
exec emacsclient "$@"

Annotation: .factor-rc

Author: alise
Mode: factor
Date: Wed, 1 Sep 2010 18:55:24
Plain Text | 
USING: threads namespaces editors.emacs fuel.remote ;

"/PATH/TO/edit-in-emacs" \ emacsclient-path set-global

[ fuel-start-remote-listener* ] in-thread

New Annotation

Summary:
Author:
Mode:
Body: