crazycode / emacs.d fork watch download tarball
public
Description: my emacs configuration.
Clone URL: git://github.com/crazycode/emacs.d.git 
create funcation rails-cmd-proxy:start-process-color to process rails-ws, 
now the
RWebServer Buffer can display color character.
crazycode (author)
Tue Aug 26 08:31:21 -0700 2008
commit  b982badd3863af0005f776c04e19d2b86df90e30
tree    ce2a491ee66095b1eae7abe931af0f0fc8811e00
parent  8efdd6af5dd270f1afcfd221ae66e30ea17bb1ca
0
vendor/80emacsonrails/emacs-rails/rails-cmd-proxy.el 
...
65
66
67
68
 
69
70
71
...
80
81
82
83
84
85
86
87
88
89
...
92
93
94
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
95
96
97
 
...
65
66
67
 
68
69
70
71
...
80
81
82
 
 
 
 
83
84
85
...
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
 
0
@@ -65,7 +65,7 @@ otherwise if set REVERSE convert from remote to local."
0
 

0
 ;; remote wrappers

0
 

0
-(defun rails-cmd-proxy:start-process (name buffer command command-args)

0
+(defun rails-cmd-proxy:start-process-color (name buffer command command-args)

0
   ""

0
   (rails-project:with-root

0
    (root)

0
@@ -80,10 +80,6 @@ otherwise if set REVERSE convert from remote to local."
0
                                                    command-args))

0
        (setq command rails-cmd-proxy:remote-cmd))

0
 

0
-;;;      (start-process-shell-command name

0
-;;;                                   buffer

0
-;;;                                   command

0
-;;;                                   command-args))))

0
      (let ((process (start-process-shell-command name

0
                                                  buffer

0
                                                  command

0
@@ -92,6 +88,27 @@ otherwise if set REVERSE convert from remote to local."
0
                            'ansi-color-insertion-filter)

0
        process)))) 

0
 

0
+(defun rails-cmd-proxy:start-process (name buffer command command-args)

0
+  ""

0
+  (rails-project:with-root

0
+   (root)

0
+   (let ((proxy-struct (rails-cmd-proxy:lookup root))

0
+         (command command)

0
+         (command-args command-args))

0
+     (when proxy-struct

0
+       (setq command-args

0
+             (rails-cmd-proxy:construct-remote-cmd proxy-struct

0
+                                                   root

0
+                                                   command

0
+                                                   command-args))

0
+       (setq command rails-cmd-proxy:remote-cmd))

0
+

0
+     (start-process-shell-command name

0
+                                  buffer

0
+                                  command

0
+                                  command-args))))

0
+

0
+

0
 (defun rails-cmd-proxy:shell-command-to-string (command)

0
   (rails-project:with-root

0
    (root)
0
vendor/80emacsonrails/emacs-rails/rails-ws.el 
...
90
91
92
93
 
94
95
96
...
201
202
203
204
205
 
 
...
90
91
92
 
93
94
95
96
...
201
202
203
 
204
205
 
0
@@ -90,7 +90,7 @@ using `rails-default-environment'."
0
               (env (if env env rails-default-environment))
0
               (command (rails-ws:compute-server-conmmand rails-ws:default-server-type rails-ws:port env))
0
               (proc
0
-               (rails-cmd-proxy:start-process rails-ruby-command
0
+               (rails-cmd-proxy:start-process-color rails-ruby-command
0
                                               rails-ws:buffer-name
0
                                               (car command)
0
                                               (cadr command))))
0
@@ -201,4 +201,4 @@ Prefix the command to ask parameters for action."
0
                      (read-from-minibuffer "Parameters: "))))
0
      (message "You can auto-open browser only in view or controller"))))
0
 
0
-(provide 'rails-ws)
0
\ No newline at end of file
0
+(provide 'rails-ws)

Comments

    No one has commented yet.