Erlang/OTP Forums

l(module).

make:all([load]).

   appmod ->
       yaws:outh_set_dyn_headers(Req, H, UT),
        {Mod, PathData} = UT#urltype.data,
        A2 = ARG#arg{appmoddata = PathData,  % trail
           appmod_prepath = UT#urltype.path}, % head
       deliver_dyn_part(CliSock,
              0, "appmod",
              N,
              A2,UT,
              fun(A)->Mod:out(A) end,
              fun(A)->finish_up_dyn_file(A, CliSock)
              end
             );

-module(emacs).
-author("sean dot charles at objitsu dot com").

%% Change to match your erlang installation
-include("/usr/local/lib/yaws/include/yaws_api.hrl").
-export([out/1]).

%% ------------------------------------------------------------
%% This causes yaws to compile and reload the named module.
%% A corresponding emacs hook will make this call every time we
%% C-x C-s in a buffer ending with .erl.
%%
%% This should provide for a 'seamless' integration between the
%% emacs editor and the yaws application being developed and
%% make life a whole lot easier for developers everywhere.
%%
%% Assumes that the emacs argument is the ABSOLUTE file path
%% and uses that information to:
%%
%% 1)  cd("the containing directory").
%% 2)  c("the filename").
%%
%% Because Erlang and yaws are things of beauty and elegance,
%% this arrangement also provides the benefit of outputting all
%% compiler errors to the yaws console as well which means that
%% as soon as you save it you can see what went bang!
%%
%% This is 'almost' the beginning of a SLIME like IDE dare I
%% say it: you *could* send the compiler output back as the
%% return data from the request and display it emacs friendly
%% format... maybe another day!  :)
%%
%% You can run yaws from a shell inside emacs and have it in the
%% bottom part of the display, that way you can see your errors
%% as and when they happen.
%% ------------------------------------------------------------

out(A) ->
    Module  = filename:basename(A#arg.appmoddata),
    Mod_Dir = filename:dirname(A#arg.appmoddata),

    %% Write a message to the yaws console...
    io:format("!!! Emacs refreshed module: ~s~n", [Module]),

    io:format("!!! CD: ~w~n", [c:cd(Mod_Dir)]),
    io:format("!!!  C: ~w~n", [c:c(Module)]),
        ok.

4> cd("dev/erlang/freeme/web/modules").
/Users/seancharles/Documents/Development/erlang/freeme/web/modules
ok
5> c(emacs).
{ok,emacs}
6>

;; Change the localhost:8888 to match your server configuration
(defun yaws-reload ()
                (shell-command-to-string
                  (concat "curl -o /dev/null http://localhost:8888/emacs/"\
 (buffer-file-name) )))

(add-hook 'after-save-hook 'yaws-reload)