userdiff/perl: match full line of POD headers
[git/gitweb.git] / editor.c
blobd8340031d24828483697c10257806efedfe041f5
1 #include "cache.h"
2 #include "strbuf.h"
3 #include "run-command.h"
5 #ifndef DEFAULT_EDITOR
6 #define DEFAULT_EDITOR "vi"
7 #endif
9 const char *git_editor(void)
11 const char *editor = getenv("GIT_EDITOR");
12 const char *terminal = getenv("TERM");
13 int terminal_is_dumb = !terminal || !strcmp(terminal, "dumb");
15 if (!editor && editor_program)
16 editor = editor_program;
17 if (!editor && !terminal_is_dumb)
18 editor = getenv("VISUAL");
19 if (!editor)
20 editor = getenv("EDITOR");
22 if (!editor && terminal_is_dumb)
23 return NULL;
25 if (!editor)
26 editor = DEFAULT_EDITOR;
28 return editor;
31 int launch_editor(const char *path, struct strbuf *buffer, const char *const *env)
33 const char *editor = git_editor();
35 if (!editor)
36 return error("Terminal is dumb, but EDITOR unset");
38 if (strcmp(editor, ":")) {
39 const char *args[] = { editor, path, NULL };
41 if (run_command_v_opt_cd_env(args, RUN_USING_SHELL, NULL, env))
42 return error("There was a problem with the editor '%s'.",
43 editor);
46 if (!buffer)
47 return 0;
48 if (strbuf_read_file(buffer, path, 0) < 0)
49 return error("could not read file '%s': %s",
50 path, strerror(errno));
51 return 0;